module WrongConstructorArity;

type T :=
  | A : T → T;

f : T → T
  | (A i x) := i;