Module unique := fc_unique wf subst.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.
(* ------------------------------------------------------------- *)

Lemma AnnPropWff_regularity :
forall G A B A1, AnnPropWff G (Eq A B A1) -> exists B1 g,
AnnTyping G A A1 /\ AnnTyping G B B1 /\ AnnDefEq G empty g A1 B1.