X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Ftactics%2Fparamodulation%2Futils.mli;h=2f25415ac5ba528ecca3537e160d293c2af716bd;hb=b8f54b66890a55cfc255fa1df3e40fe60b78ee15;hp=c64eacfd61f3c3364df483305e51624d04e96aab;hpb=dd5b7e474d70a87846f977f887d045f77342ae62;p=helm.git diff --git a/components/tactics/paramodulation/utils.mli b/components/tactics/paramodulation/utils.mli index c64eacfd6..2f25415ac 100644 --- a/components/tactics/paramodulation/utils.mli +++ b/components/tactics/paramodulation/utils.mli @@ -63,6 +63,7 @@ val names_of_context: Cic.context -> (Cic.name option) list module TermMap: Map.S with type key = Cic.term val symbols_of_term: Cic.term -> int TermMap.t +val set_goal_symbols: Cic.term -> unit val lpo: Cic.term -> Cic.term -> comparison @@ -75,10 +76,6 @@ val compare_terms: (Cic.term -> Cic.term -> comparison) ref val guarded_simpl: ?debug:bool -> Cic.context -> Cic.term -> Cic.term -type equality_sign = Negative | Positive - -val string_of_sign: equality_sign -> string - type pos = Left | Right val string_of_pos: pos -> string