| 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
| NIntro of loc * string
+ | NIntros of loc * string list
| NInversion of loc * CicNotationPt.term * npattern
| NLApply of loc * CicNotationPt.term
| NLetIn of loc * npattern * CicNotationPt.term * string
| NCheck of loc * CicNotationPt.term
| Screenshot of loc * string
| NAutoInteractive of loc * CicNotationPt.term auto_params
+ | NIntroGuess 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 *)