Section Tait_Martin_Lof.
Variable R R' : red_rule.
Hypothesis R'_confl : confluent R'.
Hypothesis incl_R_R' : forall e : env, inclusion term (R e) (R' e).
Hypothesis incl_R'_R_rt : forall e : env, inclusion term (R' e) (R_rt R e).

(* Specifications: *)
Lemma closures_are_equal :
forall e : env, same_relation term (R_rt R' e) (R_rt R e).
Lemma confl_closure : confluent (R_rt R).
Lemma TML_Church_rosser : church_rosser R.
End Tait_Martin_Lof.