diff options
| author | herbelin | 2004-04-14 15:42:57 +0000 |
|---|---|---|
| committer | herbelin | 2004-04-14 15:42:57 +0000 |
| commit | deb5eb5575efa9dc4b50e3ea798466428d0eeda2 (patch) | |
| tree | c0431bd58fc5a5688bec2bcfa7c02a352a207a17 | |
| parent | 831954c0a7aeedac29b4d6565beb51728f627632 (diff) | |
Ajout exemple Bruno
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5673 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/success/CasesDep.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/CasesDep.v b/test-suite/success/CasesDep.v index 07c9dbf242..0256280cea 100644 --- a/test-suite/success/CasesDep.v +++ b/test-suite/success/CasesDep.v @@ -391,3 +391,15 @@ end. (* ------------------------------------------------------------------ *) End Sig. + +(* Exemple soumis par Bruno *) + +Definition bProp [b:bool] : Prop := + if b then True else False. + +Definition f0 [F:False;ty:bool]: (bProp ty) := + <[_:bool][ty:bool](bProp ty)>Cases ty ty of + true true => I + | _ false => F + | _ true => I + end. |