diff options
| author | herbelin | 2003-01-30 14:04:38 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-30 14:04:38 +0000 |
| commit | b4a396e2e22e74bd8e59149c0f464c695bf16c8a (patch) | |
| tree | 27db433944295f21286c84c3e8d077120c382d1e | |
| parent | ea7e0d8c30c3af10d51b4ca4e62320be23f7fcc6 (diff) | |
Pb de parenthèse dans "Check (S (plus O O))"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3632 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/output/Arith.out | 4 | ||||
| -rw-r--r-- | test-suite/output/Arith.v | 2 | ||||
| -rw-r--r-- | theories/Init/PeanoSyntax.v | 2 |
3 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/output/Arith.out b/test-suite/output/Arith.out new file mode 100644 index 0000000000..210dd6ad31 --- /dev/null +++ b/test-suite/output/Arith.out @@ -0,0 +1,4 @@ +[n:nat](S (S n)) + : nat->nat +[n:nat](S (plus n n)) + : nat->nat diff --git a/test-suite/output/Arith.v b/test-suite/output/Arith.v new file mode 100644 index 0000000000..39989dfc36 --- /dev/null +++ b/test-suite/output/Arith.v @@ -0,0 +1,2 @@ +Check [n](S (S n)). +Check [n](S (plus n n)). diff --git a/theories/Init/PeanoSyntax.v b/theories/Init/PeanoSyntax.v index de3bac0d8e..e76dbe6654 100644 --- a/theories/Init/PeanoSyntax.v +++ b/theories/Init/PeanoSyntax.v @@ -12,7 +12,7 @@ Require Peano. Syntax constr level 0: - S [ (S $p) ] -> [$p:"nat_printer"] + S [ (S $p) ] -> [$p:"nat_printer":9] | O [ O ] -> ["(0)"]. (* Outside the module to be able to parse the grammar for 0,1,2... !! *) |