diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-09 11:27:06 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-09 11:27:06 +0000 |
| commit | af0f51807d1e4765c97d4a39494b04268121bae3 (patch) | |
| tree | 0c6f6fb65866ced4e631b31142821e970f95b546 /theories/Init/Peano.v | |
| parent | a0f0f3982bf6991407f399ac430b354375a48dd2 (diff) | |
Suppression de l'étage "Import nat/Z/R_scope". "Open Scope" remplace "Import"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3881 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init/Peano.v')
| -rwxr-xr-x | theories/Init/Peano.v | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/theories/Init/Peano.v b/theories/Init/Peano.v index a3774efb6..0cb7edd7f 100755 --- a/theories/Init/Peano.v +++ b/theories/Init/Peano.v @@ -174,3 +174,28 @@ Proof. Induction n; Auto. Induction m; Auto. Qed. + +(** Notations *) +V7only[ +Syntax constr + level 0: + S [ (S $p) ] -> [$p:"nat_printer":9] + | O [ O ] -> ["(0)"]. +]. +V7only [ +Module nat_scope. +]. + +(* For parsing/printing based on scopes *) +Infix 4 "+" plus : nat_scope V8only (left associativity). +Infix 4 "-" minus : nat_scope V8only (left associativity). +Infix 3 "*" mult : nat_scope V8only (left associativity). +Infix NONA 5 "<=" le : nat_scope. +Infix NONA 5 "<" lt : nat_scope. +Infix NONA 5 ">=" ge : nat_scope. +Infix NONA 5 ">" gt : nat_scope. + +V7only [ +End nat_scope. +]. +Delimits Scope nat_scope with N. |