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

(* Specifications: *)
Lemma Value_UAbsIrrel_exists : ∀ x (a : tm),
x `notin` fv_tm a
→ (Value (open_tm_wrt_tm a (a_Var_f x)))
→ Value (a_UAbs Irrel a).
Lemma Value_AbsIrrel_exists : ∀ x (A a : tm),
x `notin` fv_tm a
-> lc_tm A
→ (CoercedValue (open_tm_wrt_tm a (a_Var_f x)))
→ Value (a_Abs Irrel A a).