diff options
| author | mohring | 2003-03-28 17:25:57 +0000 |
|---|---|---|
| committer | mohring | 2003-03-28 17:25:57 +0000 |
| commit | e123d91faac12f9d304e7b245365ce5326e77f7a (patch) | |
| tree | f9cf16d5b1ab582baa3c842f88fcb692dd72a343 /theories | |
| parent | 4fb5ef358e3e0fbfad378ea5037fea6dafd5e27a (diff) | |
notations <>, Assumption avec existentiel, replace term
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3802 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Init/LogicSyntax.v | 1 | ||||
| -rw-r--r-- | theories/ZArith/Zsyntax.v | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/theories/Init/LogicSyntax.v b/theories/Init/LogicSyntax.v index 7fd29d5956..8326de6f83 100644 --- a/theories/Init/LogicSyntax.v +++ b/theories/Init/LogicSyntax.v @@ -18,6 +18,7 @@ Notation "< P , Q > { p , q }" := (conj P Q p q) (P annot, at level 1). Notation "~ x" := (not x) (at level 5, right associativity) V8only (at level 55, right associativity). Notation "x = y" := (eq ? x y) (at level 5, no associativity). +Notation "x <> y" := (not (eq ? x y)) (at level 5, no associativity). Infix RIGHTA 6 "/\\" and. Infix RIGHTA 7 "\\/" or. diff --git a/theories/ZArith/Zsyntax.v b/theories/ZArith/Zsyntax.v index a0610b56d2..81c0d98170 100644 --- a/theories/ZArith/Zsyntax.v +++ b/theories/ZArith/Zsyntax.v @@ -260,7 +260,10 @@ Notation "x = y = z" := x=y/\y=z (at level 5, y at level 4) : Z_scope V8only (at level 50, y at level 49). +(* Now a polymorphic notation Notation "x <> y" := ~(eq Z x y) (at level 5, no associativity) : Z_scope. +*) + (* Notation "| x |" (Zabs x) : Z_scope.(* "|" conflicts with THENS *)*) V7only[ |