type binder_kind = [ `Lambda | `Pi | `Exists | `Forall ]
type induction_kind = [ `Inductive | `CoInductive ]
-type sort_kind = [ `Prop | `Set | `Type | `CProp ]
+type sort_kind = [ `Prop | `Set | `Type of CicUniv.universe | `CProp ]
type fold_kind = [ `Left | `Right ]
type location = Lexing.position * Lexing.position
type case_indtype = string * href option
+(** To be increased each time the term type below changes, used for "safe"
+ * marshalling *)
+let magic = 1
+
type term =
(* CIC AST *)