Module red_one := ext_red_one invert.
Export red_one.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.
(* 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. *)
(* See: reduction_in_one_lc in ext_red_one.  Lemma reduction_lc : forall a a', reduction_in_one a a' -> lc_tm a -> lc_tm a'. *)

Lemma reduction_preservation : forall a a', reduction_in_one a a' -> forall G A, Typing G a A -> Typing G a' A.