]
type 'term command =
+ | Abort
+ | Check of 'term
| Proof
+ | Qed of string option
+ (* name.
+ * Name is needed when theorem was started without providing a name
+ *)
+ | Quit
| Theorem of thm_flavour * string option * 'term * 'term option
(* flavour, name, type, body
* - name is absent when an unnamed theorem is being proved, tipically in
* - body is present when its given along with the command, otherwise it
* will be given in proof editing mode using the tactical language
*)
- | Qed of string option
- (* name.
- * Name is needed when theorem was started without providing a name
- *)
- | Quit
type ('term, 'ident) tactical =
| LocatedTactical of CicAst.location * ('term, 'ident) tactical