diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-13 15:17:56 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-13 15:17:56 +0000 |
| commit | 010d031cc016ee7d539e3a0ea486a54229f769f6 (patch) | |
| tree | f70e22d377d1148d06f5edeb0bf3ce20a6926f17 /contrib/extraction | |
| parent | 2420b7e35388ed976e796333e271ed096c63b90c (diff) | |
Finite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1458 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction')
| -rw-r--r-- | contrib/extraction/test_extraction.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/contrib/extraction/test_extraction.v b/contrib/extraction/test_extraction.v index dbf48ec85..22a2cb99a 100644 --- a/contrib/extraction/test_extraction.v +++ b/contrib/extraction/test_extraction.v @@ -40,3 +40,14 @@ Extraction (id' Set nat). Extraction let t = nat in (id' Set t). (* 5904-5916: Assertion failed *) +Definition Ensemble := [U:Type]U->Prop. + +Definition Empty_set := [U:Type][x:U]False. + +Definition Add := [U:Type][A:(Ensemble U)][x:U][y:U](A y) \/ x==y. + +Inductive Finite [U:Type] : (Ensemble U) -> Set := + Empty_is_finite: (Finite U (Empty_set U)) + | Union_is_finite: + (A: (Ensemble U)) (Finite U A) -> + (x: U) ~ (A x) -> (Finite U (Add U A x)). |