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

Lemma Par_Abs_exists: ∀ x (G : context) D rho (a a' : tm),
x `notin` fv_tm_tm_tm a
→ Par G D (open_tm_wrt_tm a (a_Var_f x)) a'
→ Par G D (a_UAbs rho a) (a_UAbs rho (close_tm_wrt_tm x a')).