diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:59:31 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:59:31 +0000 |
commit | 1b3f93e474c148331e01cce9a21fbebb2ede56fb (patch) | |
tree | 46da53707fdb50aead145f5494241316d4614b31 /theories/Arith/Arith.v | |
parent | 7a05a712afb145bd8c41ad88dcabffbbd4fe0cf1 (diff) |
Introduction de syntaxe convivial +,*,<=,<,>=
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2730 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Arith.v')
-rwxr-xr-x | theories/Arith/Arith.v | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/theories/Arith/Arith.v b/theories/Arith/Arith.v index b00d155ba..7af85c65a 100755 --- a/theories/Arith/Arith.v +++ b/theories/Arith/Arith.v @@ -30,10 +30,7 @@ Grammar constr pattern := natural_pat [ nat:pat_number($c) ] -> [$c]. Syntax constr - level 0: - myspecialvariable [ My_special_variable ] -> ["S"]; - level 10: - S [ (S $p) ] -> [$p:"nat_printer"] + S [ (S $p) ] -> [$p:"nat_printer":9] | O [ O ] -> [ "0" ] . |