components/tactics/paramodulation/saturation.mli

   1 (* Copyright (C) 2006, HELM Team.
   2  *
   3  * This file is part of HELM, an Hypertextual, Electronic
   4  * Library of Mathematics, developed at the Computer Science
   5  * Department, University of Bologna, Italy.
   6  *
   7  * HELM is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation; either version 2
  10  * of the License, or (at your option) any later version.
  11  *
  12  * HELM is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with HELM; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  20  * MA  02111-1307, USA.
  21  *
  22  * For details, see the HELM World-Wide-Web page,
  23  * http://helm.cs.unibo.it/
  24  *)
  25
  26 (* $Id$ *)
  27
  28 val saturate : (* FIXME: should be exported a a tactic *)
  29   bool ->
  30   HMysql.dbd ->
  31   ?full:bool ->
  32   ?depth:int ->
  33   ?width:int ->
  34   ?timeout:float ->
  35   Equality_retrieval.auto_type option ->
  36   ProofEngineTypes.status ->
  37   ProofEngineTypes.proof * ProofEngineTypes.goal list
  38
  39 type active_table
  40 type passive_table
  41 val make_active: Equality.equality list -> active_table
  42 val make_passive: Equality.equality list -> passive_table
  43 val add_to_passive: Equality.equality list -> passive_table -> passive_table
  44
  45 val find_equalities:
  46   HMysql.dbd ->
  47   ProofEngineTypes.status ->
  48   bool -> (* smart_flag *)
  49   Equality_retrieval.auto_type option ->
  50   AutoCache.cache ->
  51   Equality.equality_bag *
  52     Equality.equality list * AutoCache.cache * int
  53
  54 val close_more:
  55   Equality.equality_bag ->
  56   active_table ->
  57   int -> (* maxmeta *)
  58   ProofEngineTypes.status ->
  59   bool -> (* smart flag *)
  60   Equality_retrieval.auto_type option ->
  61   AutoCache.cache ->
  62     Equality.equality_bag * Equality.equality list * AutoCache.cache * int
  63
  64 val given_clause:
  65   Equality.equality_bag ->
  66   int -> (* maxmeta *)
  67   ProofEngineTypes.status ->
  68   active_table ->
  69   passive_table ->
  70   int -> int -> float ->
  71     (Cic.substitution *
  72      ProofEngineTypes.proof *
  73      ProofEngineTypes.goal list) option *
  74     active_table * passive_table * int
  75
  76 val demodulate_tac: dbd:HMysql.dbd ->  ProofEngineTypes.tactic
  77
  78 val superposition_tac:
  79   target:string -> table:string -> subterms_only:bool ->
  80   demod_table:string ->  ProofEngineTypes.proof * ProofEngineTypes.goal ->
  81    ProofEngineTypes.proof * ProofEngineTypes.goal list
  82
  83 val get_stats: unit -> string
  84
  85 (* this is used only in saturate_main: MUST BE REMOVED!  *)
  86 val weight_age_ratio : int ref
  87 val weight_age_counter: int ref
  88 val symbols_ratio: int ref
  89 val symbols_counter: int ref
  90 val use_fullred: bool ref
  91 val time_limit: float ref
  92 val maxwidth: int ref
  93 val maxdepth: int ref
  94 val retrieve_and_print:
  95   HMysql.dbd -> Cic.term -> Cic.conjecture list -> 'a -> unit
  96 val main_demod_equalities: HMysql.dbd ->
  97     Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
  98 val main: HMysql.dbd ->
  99     bool -> Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
 100 (* eof *)