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   ?auto:Equality_retrieval.auto_type ->
  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   ?auto:Equality_retrieval.auto_type ->
  50   AutoCache.cache ->
  51   Equality.equality_bag *
  52     Equality.equality list * AutoCache.cache * int
  53 val saturate_more:
  54   Equality.equality_bag ->
  55   active_table ->
  56   int -> (* maxmeta *)
  57   ProofEngineTypes.status ->
  58   bool -> (* smart flag *)
  59   ?auto:Equality_retrieval.auto_type ->
  60   AutoCache.cache ->
  61     Equality.equality_bag * Equality.equality list * AutoCache.cache * int
  62
  63 val given_clause:
  64   Equality.equality_bag ->
  65   int -> (* maxmeta *)
  66   ProofEngineTypes.status ->
  67   active_table ->
  68   passive_table ->
  69   int -> int -> float ->
  70     (Cic.substitution *
  71      ProofEngineTypes.proof *
  72      ProofEngineTypes.goal list) option *
  73     active_table * passive_table * int
  74
  75 val demodulate_tac: dbd:HMysql.dbd ->  ProofEngineTypes.tactic
  76
  77 val superposition_tac:
  78   target:string -> table:string -> subterms_only:bool ->
  79   demod_table:string ->  ProofEngineTypes.proof * ProofEngineTypes.goal ->
  80    ProofEngineTypes.proof * ProofEngineTypes.goal list
  81
  82 val get_stats: unit -> string
  83
  84 (* this is used only in saturate_main: MUST BE REMOVED!  *)
  85 val weight_age_ratio : int ref
  86 val weight_age_counter: int ref
  87 val symbols_ratio: int ref
  88 val symbols_counter: int ref
  89 val use_fullred: bool ref
  90 val time_limit: float ref
  91 val maxwidth: int ref
  92 val maxdepth: int ref
  93 val retrieve_and_print:
  94   HMysql.dbd -> Cic.term -> Cic.conjecture list -> 'a -> unit
  95 val main_demod_equalities: HMysql.dbd ->
  96     Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
  97 val main: HMysql.dbd ->
  98     bool -> Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
  99 (* eof *)