type universe = (bool * NUri.uri) list
(* Max of non-empty list of named universes, or their successor (when true) *)
-type sort = Prop | Type of universe | CProp
+type sort = Prop | Type of universe
type implicit_annotation = [ `Closed | `Type | `Hole | `Term ]