(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 8
+let magic = 9
type 'obj command =
| Default of loc * string * UriManager.uri list
| Drop of loc
| Print of loc * string
| Qed of loc
- | Coercion of loc * UriManager.uri * bool (* add composites *)
+ | Coercion of loc * UriManager.uri * bool (* add_obj *) * int (* arity *)
| Obj of loc * 'obj
type ('term, 'lazy_term, 'reduction, 'ident) tactical =