(* ----------------------------------------------------------------------------- *)

Lemma E_CAbs2 : ∀ (L : atoms) (G : context) (a : tm) (phi : constraint) (B : tm),
(∀ c : atom,
c `notin` L → Typing ([(c, Co phi)] ++ G) (open_tm_wrt_co a (g_Var_f c)) (open_tm_wrt_co B (g_Var_f c)))
→ Typing G (a_UCAbs a) (a_CPi phi B).