1 2 3 4
(* -*- mode: coq; coq-prog-args: ("-emacs" "-indices-matter") -*- *) Definition UU := Type. Inductive toto (B : UU) : UU := c (x : B).