Section Ghosts.
Variables (A : Type) (s : spec A) (p : pre).

Lemma allC (B1 B2 : Type) (q : B1 -> B2 -> post A) :
conseq s p (fun y i m => forall x1 x2, q x1 x2 y i m) <->
conseq s p (fun y i m => forall x, q x.1 x.2 y i m).