path: root/test-suite/failure/inductive1.v

(* 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)).