helm/software/components/ng_tactics/nTactics.mli

   1 (*
   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.
   5     ||I||
   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_______________________________________________________________ *)
  11
  12 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
  13
  14
  15 type lowtac_status = {
  16         pstatus : NCic.obj;
  17         lstatus : LexiconEngine.status
  18 }
  19
  20 type lowtactic = lowtac_status * int -> lowtac_status * int list * int list
  21
  22 type tac_status = {
  23         gstatus : Continuationals.Stack.t;
  24         istatus : lowtac_status;
  25 }
  26
  27 type tactic = tac_status -> tac_status
  28
  29 type tactic_term = CicNotationPt.term Disambiguate.disambiguator_input
  30
  31 val dot_tac: tactic
  32 val branch_tac: tactic
  33 val shift_tac: tactic
  34 val pos_tac: int list -> tactic
  35 val wildcard_tac: tactic
  36 val merge_tac: tactic
  37 val focus_tac: int list -> tactic
  38 val unfocus_tac: tactic
  39 val skip_tac: tactic
  40
  41 val fold_tactic: lowtactic -> tactic
  42
  43 val apply_tac: tactic_term -> tactic
  44
  45
  46 val pp_tac_status: tac_status -> unit