2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
12 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
14 exception Error of string lazy_t
16 type lowtac_status = {
18 lstatus : LexiconEngine.status
21 type lowtactic = lowtac_status -> int -> lowtac_status
24 gstatus : Continuationals.Stack.t;
25 istatus : lowtac_status;
28 type tactic = tac_status -> tac_status
30 type tactic_term = CicNotationPt.term Disambiguate.disambiguator_input
31 type tactic_pattern = GrafiteAst.npattern Disambiguate.disambiguator_input
34 val branch_tac: tactic
36 val pos_tac: int list -> tactic
37 val wildcard_tac: tactic
39 val focus_tac: int list -> tactic
40 val unfocus_tac: tactic
43 val distribute_tac: lowtactic -> tactic
44 val block_tac: tactic list -> tactic
46 val apply_tac: tactic_term -> tactic
47 val change_tac: where:tactic_pattern -> with_what:tactic_term -> tactic
48 val elim_tac: what:tactic_term -> where:tactic_pattern -> tactic
49 val intro_tac: string -> tactic
51 val pp_tac_status: tac_status -> unit