proposition: Theorem MonotoneMax : MonotoneP isMax.
proof: Proof. red in |- *. intros p q p' q' H' H'0 H'1. elim H'0; intros H'2 H'3; elim H'3; intros H'4 H'5; apply H'5; clear H'3 H'0. case H'1; auto. apply Rle_trans with q; auto. apply Rlt_le; auto. apply isMax_inv1 with (1 := H'1); auto. Qed.
imports: Reals ZArith List PeanoNat Psatz