diff options
| author | herbelin | 2002-04-17 11:49:07 +0000 |
|---|---|---|
| committer | herbelin | 2002-04-17 11:49:07 +0000 |
| commit | cda6963b3ca8fd75c00a0c65dd9ecffdeadfb3c3 (patch) | |
| tree | 453dbe7cc01abe5aa6413076365ad00576654572 /test-suite/output/ZSyntax.v | |
| parent | 4bdc6a6515de45027e43ad79271cf2d8793394e4 (diff) | |
Quelques bugs avec inject_nat
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2653 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/output/ZSyntax.v')
| -rw-r--r-- | test-suite/output/ZSyntax.v | 14 |
1 files changed, 14 insertions, 0 deletions
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))). |