type 'ident intros_spec = int option * 'ident option list
-type 'term auto_params = 'term list * (string*string) list
+type 'term auto_params = 'term list option * (string*string) list
type 'term just =
[ `Term of 'term
| 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
type nmacro =
| 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 *)