Section foo.
Variable A : Type.
Record bar (X : Type) := mk_bar {
a : X * A;
b : A;
c := (a,7);
_ : X;
_ : X
}.
Inductive baz (X : Type) (Y : Type) : nat -> Type :=
| K1 x (e : 0=1) (f := 3) of x=x:>X : baz X Y O
| K2 n of n=n & baz X nat 0 : baz X Y (n+1).

Lemma test x : bar nat -> baz nat nat x -> forall n : nat, Q n.