From cda6963b3ca8fd75c00a0c65dd9ecffdeadfb3c3 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 17 Apr 2002 11:49:07 +0000
Subject: Quelques bugs avec inject_nat

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2653 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/output/ZSyntax.out | 22 ++++++++++++++++++++++
 test-suite/output/ZSyntax.v   | 14 ++++++++++++++
 2 files changed, 36 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/output/ZSyntax.out b/test-suite/output/ZSyntax.out
index 7ef79aba44..9774f20cf1 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 0f5092c416..531d1afa76 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))).
-- 
cgit v1.2.3