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

Lemma Par_CAbs_exists: forall c (G : context) D (a a': tm),
c `notin` fv_co_co_tm a
-> Par G D (open_tm_wrt_co a (g_Var_f c)) a'
→ Par G D (a_UCAbs a) (a_UCAbs (close_tm_wrt_co c a')).