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).

Lemma TML_Church_rosser : church_rosser R.
End Tait_Martin_Lof.