diff options
Diffstat (limited to 'test-suite/failure/inductive2.v')
-rw-r--r-- | test-suite/failure/inductive2.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/failure/inductive2.v b/test-suite/failure/inductive2.v index b77474be0..827c6f9fa 100644 --- a/test-suite/failure/inductive2.v +++ b/test-suite/failure/inductive2.v @@ -1,4 +1,4 @@ (* A check that sort-polymorphic product is not set too low *) Inductive prod (A B:Type) : Type := pair : A -> B -> prod A B. -Check (fun (A:Prop) (B:Type) => (prod A B : Prop)). +Fail Check (fun (A:Prop) (B:Type) => (prod A B : Prop)). |