diff options
Diffstat (limited to 'test-suite/failure/inductive1.v')
-rw-r--r-- | test-suite/failure/inductive1.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/failure/inductive1.v b/test-suite/failure/inductive1.v index 3b57d9198..7f42e7e16 100644 --- a/test-suite/failure/inductive1.v +++ b/test-suite/failure/inductive1.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:Type) (B:Prop) => (prod A B : Prop)). +Fail Check (fun (A:Type) (B:Prop) => (prod A B : Prop)). |