blob: 57878a5f1502b78c11e9b6a78cd50d2e08dc9c6b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Definition T := nat.
Definition le := le.
Hint Unfold le.
Lemma le_refl : forall n : nat, le n n.
auto.
Qed.
Require Import Le.
Lemma le_trans : forall n m k : nat, le n m -> le m k -> le n k.
eauto with arith.
Qed.
Lemma le_antis : forall n m : nat, le n m -> le m n -> n = m.
eauto with arith.
Qed.
|
