Module unique := fc_unique wf subst.

Lemma erase_app_Rel : forall AB0 A B C G, erase AB0 = (a_App A Rel B) -> AnnTyping G AB0 C -> exists A1 B0 g D, erase AB0 = erase (a_App A1 Rel B0) /\ erase A1 = A /\ erase B0 = B /\ AnnTyping G (a_App A1 Rel B0) D /\ AnnDefEq G (dom G) g C D.