diff options
| -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... !! *) |