aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/failure/inductive1.v
blob: 3b57d9198df085170e3859c56ea0487b166999ba (plain)
1
2
3
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)).