| NCut of loc * CicNotationPt.term
(* | NDiscriminate of loc * CicNotationPt.term
| NSubst of loc * CicNotationPt.term *)
- | NDestruct of loc
+ | NDestruct of loc * string list option * string list
| NElim of loc * CicNotationPt.term * npattern
| NGeneralize of loc * npattern
| NId of loc
(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 33
+let magic = 34
type ('term,'obj) command =
| Index of loc * 'term option (* key *) * UriManager.uri (* value *)