diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-16 12:03:42 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-16 12:03:42 +0000 |
| commit | 56c24c0c704119430ee5fde235cc8c76dc2746c3 (patch) | |
| tree | 0b0b43e79cac6e0eb66f3d7d40e67f67a915d504 /theories/Arith/Gt.v | |
| parent | 9a5c74b8229f90b2ac1df5c41f7857cc1b0bf067 (diff) | |
Some lemmas about dependent choice + extensions of Compare_dec +
synonyms in Le.v, Lt.v, Gt.v.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12527 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Gt.v')
| -rw-r--r-- | theories/Arith/Gt.v | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/theories/Arith/Gt.v b/theories/Arith/Gt.v index c2ed678cb..70169f52a 100644 --- a/theories/Arith/Gt.v +++ b/theories/Arith/Gt.v @@ -135,7 +135,7 @@ Hint Resolve gt_trans_S le_gt_trans gt_le_trans: arith v62. (** * Comparison to 0 *) -Theorem gt_O_eq : forall n, n > 0 \/ 0 = n. +Theorem gt_0_eq : forall n, n > 0 \/ 0 = n. Proof. intro n; apply gt_S; auto with arith. Qed. @@ -151,4 +151,8 @@ Lemma plus_gt_compat_l : forall n m p, n > m -> p + n > p + m. Proof. auto with arith. Qed. -Hint Resolve plus_gt_compat_l: arith v62.
\ No newline at end of file +Hint Resolve plus_gt_compat_l: arith v62. + +(* begin hide *) +Notation gt_O_eq := gt_0_eq (only parsing). +(* end hide *) |