summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/6297.v
blob: a28607058ffe32ca46cad032cfeeb6bb3b0baece (plain)
1
2
3
4
5
6
7
8
Set Printing Universes.

(* Error: Anomaly "Uncaught exception "Anomaly: Incorrect universe Set
   declared for inductive type, inferred level is max(Prop, Set+1)."."
   Please report at http://coq.inria.fr/bugs/. *)
Fail Record LTS: Set :=
  lts { St: Set;
        init: St }.