diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-21 22:05:23 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-21 22:05:23 +0000 |
commit | 45a33238f36b0d3ced493f83c2db9b9e150a214f (patch) | |
tree | 732758a2b82777196e8e7fd482630cd2bf2a83c3 /theories/Reals/Rdefinitions.v | |
parent | efffc572428b14f1f59b5820b1f23d452d29a1e7 (diff) |
Les notations 'x <= y <= z' sont réservées et s'appliquent maintenant aussi à nat
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4427 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rdefinitions.v')
-rw-r--r-- | theories/Reals/Rdefinitions.v | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/theories/Reals/Rdefinitions.v b/theories/Reals/Rdefinitions.v index 42a15c031..96b682e04 100644 --- a/theories/Reals/Rdefinitions.v +++ b/theories/Reals/Rdefinitions.v @@ -64,15 +64,9 @@ V8Infix "<=" Rle : R_scope. V8Infix ">=" Rge : R_scope. V8Infix ">" Rgt : R_scope. -V8Notation "x = y = z" := (eqT R x y)/\(eqT R y z) - (at level 50, y at next level, no associativity) : R_scope. -V8Notation "x <= y <= z" := (Rle x y)/\(Rle y z) - (at level 50, y at next level, no associativity) : R_scope. -V8Notation "x <= y < z" := (Rle x y)/\(Rlt y z) - (at level 50, y at next level, no associativity) : R_scope. -V8Notation "x < y < z" := (Rlt x y)/\(Rlt y z) - (at level 50, y at next level, no associativity) : R_scope. -V8Notation "x < y <= z" := (Rlt x y)/\(Rle y z) - (at level 50, y at next level, no associativity) : R_scope. +V8Notation "x <= y <= z" := (Rle x y)/\(Rle y z) : R_scope. +V8Notation "x <= y < z" := (Rle x y)/\(Rlt y z) : R_scope. +V8Notation "x < y < z" := (Rlt x y)/\(Rlt y z) : R_scope. +V8Notation "x < y <= z" := (Rlt x y)/\(Rle y z) : R_scope. Hints Unfold Rgt : real. |