(* ----- *)

Lemma co_subst_co_tm_Value_mutual :
(forall v,  CoercedValue v -> forall b x,  lc_co b -> CoercedValue (co_subst_co_tm b x v)) /\
(forall v, Value v -> forall b x,  lc_co b -> Value (co_subst_co_tm b x v)).