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
type ntactic =
| NApply of loc * CicNotationPt.term
- | NChange of loc * CicNotationPt.term * CicNotationPt.term
+ | NChange of loc * npattern * CicNotationPt.term
| NId of loc
type ('term, 'lazy_term, 'reduction, 'ident) tactic =