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

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