(* Lemma Par_fv_preservation: forall G D x a b, Par G D a b -> x `notin` fv_tm_tm_tm a -> x `notin` fv_tm_tm_tm b. *)

Lemma reduction_rhocheck : forall a a' rho x, reduction_in_one a a' -> RhoCheck rho x a -> RhoCheck rho x a'.