Section MonotonicCorrect.
Variable F: function X Y.
Hypothesis HF: monotonic TX TY F.
Variable R: relation2 X Y.
Hypothesis HR: evolve TX TY R (F R).
(** predicate for the induction *)
Let phi: forall n, evolve TX TY (UExp F R n) (UExp F R (S n)).

(** Proposition 1.6 *)
Theorem monotonic_correct: simulation TX TY (UIter F R).