diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-12 16:40:02 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-12 16:40:02 +0000 |
| commit | a28e2d94c7a0ee0c85d7f018115ffc2c64e62d5f (patch) | |
| tree | 28edbc838b59e8f58f289eb11508499b6e4d23a2 /test-suite/success/Inductive.v | |
| parent | 74db2b0098893a5912d7480a259ad91664a86120 (diff) | |
fixed minor pbs with test cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12865 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Inductive.v')
| -rw-r--r-- | test-suite/success/Inductive.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/success/Inductive.v b/test-suite/success/Inductive.v index 8ffe4fcdb..41819d921 100644 --- a/test-suite/success/Inductive.v +++ b/test-suite/success/Inductive.v @@ -56,11 +56,11 @@ Check (* Check inductive types with local definitions (constructors) *) -Inductive I1 : Set := c (_:I1) (_:=0). +Inductive I1 : Set := C1 (_:I1) (_:=0). Check (fun x:I1 => match x with - | c i n => (i,n) + | C1 i n => (i,n) end). (* Check implicit parameters of inductive types (submitted by Pierre |