Commit 9c46a4fe authored by Guillaume Melquiond's avatar Guillaume Melquiond

Remove useless hypotheses.

parent 4161c990
...@@ -1485,22 +1485,22 @@ Qed. ...@@ -1485,22 +1485,22 @@ Qed.
Theorem lt_succ_le : Theorem lt_succ_le :
forall x y, forall x y,
F x -> F y -> (y <> 0)%R -> (y <> 0)%R ->
(x <= y)%R -> (x <= y)%R ->
(x < succ y)%R. (x < succ y)%R.
Proof. Proof.
intros x y Fx Fy Zy Hxy. intros x y Zy Hxy.
apply Rle_lt_trans with (1 := Hxy). apply Rle_lt_trans with (1 := Hxy).
now apply succ_gt_id. now apply succ_gt_id.
Qed. Qed.
Theorem pred_lt_le : Theorem pred_lt_le :
forall x y, forall x y,
F x -> F y -> (x <> 0)%R -> (x <> 0)%R ->
(x <= y)%R -> (x <= y)%R ->
(pred x < y)%R. (pred x < y)%R.
Proof. Proof.
intros x y Fx Fy Zy Hxy. intros x y Zy Hxy.
apply Rlt_le_trans with (2 := Hxy). apply Rlt_le_trans with (2 := Hxy).
now apply pred_lt_id. now apply pred_lt_id.
Qed. Qed.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment