Module fc_weak (wf : fc_wf_sig) <: fc_weak_sig.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.
(* Weakening *)
(* ------------------------------------------------------------------- *)

Lemma ann_respects_atoms_eq_mutual :
(forall G a A,       AnnTyping  G a A       -> True) /\
(forall G phi,       AnnPropWff G phi       -> True) /\
(forall G D g p1 p2, AnnIso     G D g p1 p2 -> forall D', D [=] D' -> AnnIso   G D' g p1 p2) /\
(forall G D g A B,   AnnDefEq   G D g A B   -> forall D', D [=] D' -> AnnDefEq G D' g A B) /\
(forall G,           AnnCtx     G           -> True).