type ('term, 'ident) tactic =
| Absurd of loc * 'term
| Apply of loc * 'term
- | Auto of loc
+ | Auto of loc * int option
| Assumption of loc
| Change of loc * 'term * 'term * 'ident option (* what, with what, where *)
| Change_pattern of loc * 'term pattern * 'term * 'ident option