2 files changed, 36 insertions, 0 deletions
diff --git a/test-suite/output/ZSyntax.out b/test-suite/output/ZSyntax.out
index 7ef79aba4..9774f20cf 100644
--- a/test-suite/output/ZSyntax.out
+++ b/test-suite/output/ZSyntax.out
@@ -2,3 +2,25 @@
      : Z
 [f:(nat->Z)]`(f O)+0`
      : (nat->Z)->Z
+[x:positive](POS (xO x))
+     : positive->Z
+[x:positive]`(POS x)+1`
+     : positive->Z
+[x:positive](POS x)
+     : positive->Z
+[x:positive](NEG (xO x))
+     : positive->Z
+[x:positive]`(POS (xO x))+0`
+     : positive->Z
+[x:positive]`(Zopp (POS (xO x)))`
+     : positive->Z
+[x:positive]`(Zopp (POS (xO x)))+0`
+     : positive->Z
+`(inject_nat (0))+1`
+     : Z
+`0+(inject_nat (plus (0) (0)))`
+     : Z
+`(inject_nat (0)) = 0`
+     : Prop
+`0+(inject_nat (789))`
+     : Z
diff --git a/test-suite/output/ZSyntax.v b/test-suite/output/ZSyntax.v
index 0f5092c41..531d1afa7 100644
--- a/test-suite/output/ZSyntax.v
+++ b/test-suite/output/ZSyntax.v
@@ -1,3 +1,17 @@
 Require ZArith.
 Check `32`.
 Check [f:nat->Z]`(f O) + 0`.
+Check [x:positive]`(POS (xO x))`.
+Check [x:positive]`(POS x)+1`.
+Check [x:positive]`(POS x)`.
+Check [x:positive]`(NEG (xO x))`.
+Check [x:positive]`(POS (xO x))+0`.
+Check [x:positive]`(Zopp (POS (xO x)))`.
+Check [x:positive]`(Zopp (POS (xO x)))+0`.
+Check `(inject_nat O)+1`.
+Check (Zplus `0` (inject_nat (plus O O))).
+Check `(inject_nat O)=0`.
+
+(* Submitted by Pierre Casteran *)
+Require Arith.
+Check (Zplus `0` (inject_nat (789))).