diff options
author | Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
commit | 3ef7797ef6fc605dfafb32523261fe1b023aeecb (patch) | |
tree | ad89c6bb57ceee608fcba2bb3435b74e0f57919e /test-suite/failure/Case2.v | |
parent | 018ee3b0c2be79eb81b1f65c3f3fa142d24129c8 (diff) |
Imported Upstream version 8.0pl3+8.1alphaupstream/8.0pl3+8.1alpha
Diffstat (limited to 'test-suite/failure/Case2.v')
-rw-r--r-- | test-suite/failure/Case2.v | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/test-suite/failure/Case2.v b/test-suite/failure/Case2.v index 183f612b..7d81ee81 100644 --- a/test-suite/failure/Case2.v +++ b/test-suite/failure/Case2.v @@ -1,13 +1,13 @@ -Inductive IFExpr : Set := - Var : nat -> IFExpr - | Tr : IFExpr - | Fa : IFExpr - | IfE : IFExpr -> IFExpr -> IFExpr -> IFExpr. - -Type [F:IFExpr] - <Prop>Cases F of - (IfE (Var _) H I) => True - | (IfE _ _ _) => False - | _ => True - end. +Inductive IFExpr : Set := + | Var : nat -> IFExpr + | Tr : IFExpr + | Fa : IFExpr + | IfE : IFExpr -> IFExpr -> IFExpr -> IFExpr. +Type + (fun F : IFExpr => + match F return Prop with + | IfE (Var _) H I => True + | IfE _ _ _ => False + | _ => True + end). |