Require Export Metalib.CoqEqDec.
Module fc_invert (wf : fc_wf_sig) (weak : fc_weak_sig) (subst : fc_subst_sig).
Module unique := fc_unique wf subst.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.
(* ------------------------------------------------------------- *)

(* Specifications: *)
Lemma AnnTyping_regularity :
(forall G a A, AnnTyping G a A -> AnnTyping G A a_Star).
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.