diff options
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). |