Module invert := fc_invert wf weak subst.Module consist := ext_consist e_invert wf.Module erase' := erase wf weak subst e_invert.Module head := fc_head_reduction  e_invert weak wf subst.Module pres := fc_preservation wf weak subst e_subst.

Lemma erased_tm_erase_type : forall G0 a B, AnnTyping G0 a B -> erased_tm (erase B).