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