helm/ocaml/paramodulation/inference.mli

   1 type equality =
   2     int *                (* weight *)
   3     proof *
   4     (Cic.term *          (* type *)
   5      Cic.term *          (* left side *)
   6      Cic.term *          (* right side *)
   7      Utils.comparison) * (* ordering *)
   8     Cic.metasenv *       (* environment for metas *)
   9     Cic.term list        (* arguments *)
  10
  11 and proof =
  12   | BasicProof of Cic.term
  13   | ProofBlock of
  14       Cic.substitution * UriManager.uri *
  15         (* name, ty, eq_ty, left, right *)
  16         (Cic.name * Cic.term * Cic.term * Cic.term * Cic.term) *
  17         (Utils.pos * equality) * equality
  18   | NoProof
  19
  20
  21 type environment = Cic.metasenv * Cic.context * CicUniv.universe_graph
  22
  23
  24 exception MatchingFailure
  25
  26 val matching:
  27   Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
  28   CicUniv.universe_graph ->
  29   Cic.substitution * Cic.metasenv * CicUniv.universe_graph
  30
  31 val unification:
  32   Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
  33   CicUniv.universe_graph ->
  34   Cic.substitution * Cic.metasenv * CicUniv.universe_graph
  35
  36
  37 (**
  38    Performs the beta expansion of the term "where" w.r.t. "what",
  39    i.e. returns the list of all the terms t s.t. "(t what) = where".
  40 *)
  41 val beta_expand:
  42   ?metas_ok:bool -> ?match_only:bool -> Cic.term -> Cic.term -> Cic.term ->
  43   Cic.context -> Cic.metasenv -> CicUniv.universe_graph ->
  44   (Cic.term * Cic.substitution * Cic.metasenv * CicUniv.universe_graph) list
  45
  46
  47 (**
  48    scans the context to find all Declarations "left = right"; returns a
  49    list of tuples (proof, (type, left, right), newmetas). Uses
  50    PrimitiveTactics.new_metasenv_for_apply to replace bound variables with
  51    fresh metas...
  52 *)
  53 val find_equalities:
  54   ?eq_uri:UriManager.uri -> Cic.context -> ProofEngineTypes.proof ->
  55   equality list * int
  56
  57
  58 exception TermIsNotAnEquality;;
  59
  60 (**
  61    raises TermIsNotAnEquality if term is not an equation.
  62    The first Cic.term is a proof of the equation
  63 *)
  64 val equality_of_term: ?eq_uri:UriManager.uri -> Cic.term -> Cic.term ->
  65   equality
  66
  67 (**
  68    superposition_left env target source
  69    returns a list of new clauses inferred with a left superposition step
  70    the negative equation "target" and the positive equation "source"
  71 *)
  72 (* val superposition_left: environment -> equality -> equality -> equality list *)
  73
  74 (**
  75    superposition_right newmeta env target source
  76    returns a list of new clauses inferred with a right superposition step
  77    the positive equations "target" and "source"
  78    "newmeta" is the first free meta index, i.e. the first number above the
  79    highest meta index: its updated value is also returned
  80 *)
  81 (* val superposition_right: *)
  82 (*   int -> environment -> equality -> equality -> int * equality list *)
  83
  84 (* val demodulation: int -> environment -> equality -> equality -> int * equality *)
  85
  86 val meta_convertibility_eq: equality -> equality -> bool
  87
  88 val is_identity: environment -> equality -> bool
  89
  90 val string_of_equality: ?env:environment -> equality -> string
  91
  92 (* val subsumption: environment -> equality -> equality -> bool *)
  93
  94 val metas_of_term: Cic.term -> int list
  95
  96 val fix_metas: int -> equality -> int * equality
  97
  98 val extract_differing_subterms:
  99   Cic.term -> Cic.term -> (Cic.term * Cic.term) option
 100
 101
 102 val build_term_proof: equality -> Cic.term