Coq：缩写归纳类型的定义

Question

假设我有一个类型相同的归纳类型，例如

Inductive A := a (x:nat)(y:Set) | b (x:nat)(y:Set).

是否可以缩写其定义，以便我不必为每个构造函数重复（可能是参数化的）类型，例如

之类的东西

Inductive A := (a | b) (x:nat)(y:Set).