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 confl_closure : confluent (R_rt R).