| NReduce of loc * [ `Normalize of bool | `Whd of bool ] * npattern
| NRewrite of loc * direction * CicNotationPt.term * npattern
| NAuto of loc * CicNotationPt.term auto_params
+ | NDot of loc
+ | NSemicolon of loc
+ | NBranch of loc
+ | NShift of loc
+ | NPos of loc * int list
+ | NWildcard of loc
+ | NMerge of loc
+ | NSkip of loc
+ | NFocus of loc * int list
+ | NUnfocus of loc
type ('term, 'lazy_term, 'reduction, 'ident) tactic =
(* Higher order tactics (i.e. tacticals) *)
(** To be increased each time the command type below changes, used for "safe"
* marshalling *)
-let magic = 22
+let magic = 23
type ('term,'obj) command =
| Index of loc * 'term option (* key *) * UriManager.uri (* value *)
type ('term, 'lazy_term, 'reduction, 'obj, 'ident) code =
| Command of loc * ('term, 'obj) command
| Macro of loc * ('term,'lazy_term) macro
- | NTactic of loc * ntactic * punctuation_tactical
+ | NTactic of loc * ntactic list
| Tactic of loc * ('term, 'lazy_term, 'reduction, 'ident) tactic option
* punctuation_tactical
| NonPunctuationTactical of loc * non_punctuation_tactical
* punctuation_tactical
- | NNonPunctuationTactical of loc * non_punctuation_tactical
- * punctuation_tactical
type ('term, 'lazy_term, 'reduction, 'obj, 'ident) comment =
| Note of loc * string