Module invert := fc_invert wf weak subst.Definition get_tpg (G : context) (a:tm) : tm :=
  get_tpg_n (size_tm a) G a.Definition get_deq (G : context) (g:co) : (tm*tm) :=
  get_deq_n (size_co g) G g.Definition get_iso (G : context) (g:co) : (constraint*constraint) :=
  get_iso_n (size_co g) G g.

Lemma get_tpg_correct : (forall G a A B, AnnTyping G a A -> get_tpg G a = B -> A = B).