\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-(* $Id: nCicReduction.ml 8250 2008-03-25 17:56:20Z tassi $ *)
+(* $Id$ *)
(********************************* TERMS ************************************)
-type sort = Prop | Type of int | CProp
+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
type implicit_annotation = [ `Closed | `Type | `Hole | `Term ]
type context = hypothesis list
-type conjecture = int * string option * context * term
+type conjecture = string option * context * term
-type metasenv = conjecture list
+type metasenv = (int * conjecture) list
type subst_entry = string option * context * term * term