(** * Study of the class of monotonic functions (Lemma 1.7 and 1.8) *)
Require Export Settings.
Set Implicit Arguments.
Section Global.
Variable A: Type.
Section A.
Variables X Y: Type.
Variable TX: reduction_t A X.
Variable TY: reduction_t A Y.
Section A'.
Variable R: relation2 X Y.
Variable E: relation2 X X.
Variable T: relation2 Y Y.

(** expansion-left-chaining is monotonic *)
Lemma chaining_l_mon: expansion1 TX TX E -> monotonic TX TY (chaining_l E).
End A'.