aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/failure/inductive2.v
blob: b77474be08ad1df653ebb0e68bbecc21876fd8a9 (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:Prop) (B:Type) => (prod A B : Prop)).