Module get := fc_get wf weak subst unique.
Unset Implicit Arguments.
Ltac obtacpre :=
intros; simpl in *.
Ltac obtacsolve :=
intros; simpl in *; try solve [ok].

Lemma An_IsoConv': ∀ (G : context) (D : available_props)
(a1 a2 A a1' a2' B : tm) phi1 phi2 (g : co),
phi1 =  (Eq a1 a2 A)  →
phi2 = (Eq a1' a2' B) →
AnnDefEq G D g A B  →
AnnPropWff G phi1 →
AnnPropWff G phi2 →
erase_tm a1 = erase_tm a1' →
erase_tm a2 = erase_tm a2' →
AnnIso G D (g_IsoConv phi1 phi2 g) phi1 phi2.