type binder_kind = [ `Lambda | `Pi | `Exists | `Forall ]
type induction_kind = [ `Inductive | `CoInductive ]
-type sort_kind = [ `Prop | `Set | `Type of CicUniv.universe | `CProp of CicUniv.universe]
+type sort_kind = [ `Prop | `Set | `Type of CicUniv.universe | `CProp of CicUniv.universe | `NType of string]
type fold_kind = [ `Left | `Right ]
type location = Stdpp.location
(** To be increased each time the term type below changes, used for "safe"
* marshalling *)
-let magic = 4
+let magic = 6
type term =
(* CIC AST *)
| InfRule of term * term * term
(* | array of term * literal option * literal option
|+ column separator, row separator +| *)
+ | Maction of term list
| Sqrt of term
| Root of term * term (* argument, index *)
| Break
| Box of box_spec * term list
| Group of term list
+ | Mstyle of (string * string) list * term list
+ | Mpadded of (string * string) list * term list
and magic_term =
(* level 1 magics *)