type ('term, 'lazy_term, 'ident) pattern =
'lazy_term option * ('ident * 'term) list * 'term option
+type npattern =
+ CicNotationPt.term option * (string * CicNotationPt.term) list * CicNotationPt.term option
+
type 'lazy_term reduction =
[ `Normalize
| `Simpl
| `Auto of 'term auto_params ]
type ntactic =
- NApply of loc * CicNotationPt.term
+ | NApply of loc * CicNotationPt.term
+ | NCase1 of loc * string
+ | NChange of loc * npattern * CicNotationPt.term
+ | NElim of loc * CicNotationPt.term * npattern
+ | NId of loc
+ | NIntro of loc * string
type ('term, 'lazy_term, 'reduction, 'ident) tactic =
(* Higher order tactics (i.e. tacticals) *)
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 option * punctuation_tactical
+ | NTactic of loc * ntactic * punctuation_tactical
| Tactic of loc * ('term, 'lazy_term, 'reduction, 'ident) tactic option
* punctuation_tactical
| NonPunctuationTactical of loc * non_punctuation_tactical