type metasenv = conjecture list
-type substitution = (int * (string option * context * term * term)) list
+type subst_entry = string option * context * term * term
+
+type substitution = (int * subst_entry) list
(******************************** OBJECTS **********************************)
type obj_kind =
| Constant of relevance * string * term option * term * c_attr
| Fixpoint of bool * inductiveFun list * f_attr
+ (* true -> fix, funcs, arrts *)
| Inductive of bool * int * inductiveType list * i_attr
- (* (co)inductive, leftno, types *)
+ (* true -> inductive, leftno, types *)
+ (* the int must be 0 if the object has no body *)
type obj = NUri.uri * int * metasenv * substitution * obj_kind