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 closures_are_equal :
forall e : env, same_relation term (R_rt R' e) (R_rt R e).