blob: b71682e4fe5bbc68e4b0eefa2eabd41c42545927 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(*i $Id: i*)
Require Export Axioms.
Require Export LtProps.
(*s Axiomatizing [<=] from [<] *)
Axiom lt_or_eq_le : (x,y:N)((x<y)\/(x=y))->(x<=y).
Axiom le_lt_or_eq : (x,y:N)(x<=y)->(x<y)\/(x=y).
Hints Resolve lt_or_eq_le : num.
Hints Immediate le_lt_or_eq : num.
|