diff options
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 a3774efb66..0cb7edd7f8 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. |