(** 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 =
| Try of loc * ('term, 'lazy_term, 'reduction, 'ident) tactical
(* try a tactical and mask failures *)
| Solve of loc * ('term, 'lazy_term, 'reduction, 'ident) tactical list
+ | Progress of loc * ('term, 'lazy_term, 'reduction, 'ident) tactical
| Dot of loc
| Semicolon of loc