type ('term, 'ident) pattern = 'term option * ('ident * 'term) list * 'term
+type ('term, 'ident) type_spec =
+ | Ident of 'ident
+ | Type of UriManager.uri * int
+
type ('term, 'ident) tactic =
| Absurd of loc * 'term
| Apply of loc * 'term
| Assumption of loc
- | Auto of loc * int option * int option (* depth, width *)
+ | Auto of loc * int option * int option * string option (* depth, width, paramodulation ALB *)
| Change of loc * ('term,'ident) pattern * 'term
| Clear of loc * 'ident
| ClearBody of loc * 'ident
| Contradiction of loc
| Cut of loc * 'ident option * 'term
| DecideEquality of loc
- | Decompose of loc * 'term
+ | Decompose of loc * ('term, 'ident) type_spec list * 'ident * 'ident list
| Discriminate of loc * 'term
| Elim of loc * 'term * 'term option * int option * 'ident list
| ElimType of loc * 'term * 'term option * int option * 'ident list
| Inductive of (string * CicNotationPt.term) list *
CicNotationPt.term inductive_type list
(** parameters, list of loc * mutual inductive types *)
- | Theorem of thm_flavour * string * CicNotationPt.term * CicNotationPt.term option
+ | Theorem of thm_flavour * string * CicNotationPt.term *
+ CicNotationPt.term option
(** flavour, name, type, body
* - name is absent when an unnamed theorem is being proved, tipically in
* interactive usage
* - body is present when its given along with the command, otherwise it
* will be given in proof editing mode using the tactical language
*)
- | Record of
- (string * CicNotationPt.term) list * string * CicNotationPt.term *
+ | Record of (string * CicNotationPt.term) list * string * CicNotationPt.term *
(string * CicNotationPt.term) list
type ('term,'obj) command =
| Alias of loc * alias_spec
(** parameters, name, type, fields *)
| Obj of loc * 'obj
- | Notation of loc * CicNotationPt.term * Gramext.g_assoc option * int option *
- CicNotationPt.term
- (* level 1 pattern, associativity, precedence, level 2 pattern *)
+ | Notation of loc * direction option * CicNotationPt.term * Gramext.g_assoc *
+ int * CicNotationPt.term
+ (* direction, l1 pattern, associativity, precedence, l2 pattern *)
| Interpretation of loc *
string * (string * CicNotationPt.argument_pattern list) *
CicNotationPt.cic_appl_pattern