Section Props_Confluence.
Variable R R' : red_rule.
Hypothesis same_rel : forall e : env, same_relation term (R e) (R' e).
Hypothesis R_confl : confluent R.

(* Specifications: *)
Lemma confluent_is_ext : confluent R'.
Lemma strip_confl :
forall e : env, commut term (R_rt R e) (transp term (R e)).
Lemma strongly_confluent : confluent (R_rt R).
End Props_Confluence.