(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 2
+let magic = 3
type ('term,'obj) command =
| Default of loc * string * UriManager.uri list
(** name.
* Name is needed when theorem was started without providing a name
*)
- | Coercion of loc * 'term
+ | Coercion of loc * 'term * bool (* add composites *)
| Alias of loc * alias_spec
(** parameters, name, type, fields *)
| Obj of loc * 'obj