X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fparamodulation%2Futils.mli;h=2f25415ac5ba528ecca3537e160d293c2af716bd;hb=HEAD;hp=2f1533e69260638ca834789e2820ff46732bc4b2;hpb=08a92d276c5477968b02f31097b6ed03185f34eb;p=helm.git diff --git a/helm/software/components/tactics/paramodulation/utils.mli b/helm/software/components/tactics/paramodulation/utils.mli index 2f1533e69..2f25415ac 100644 --- a/helm/software/components/tactics/paramodulation/utils.mli +++ b/helm/software/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 @@ -87,12 +84,6 @@ val compute_equality_weight: Cic.term * Cic.term * Cic.term * comparison -> int val debug_print: string Lazy.t -> unit -val eq_URI: unit -> UriManager.uri -val eq_ind_URI: unit -> UriManager.uri -val eq_ind_r_URI: unit -> UriManager.uri -val sym_eq_URI: unit -> UriManager.uri -val eq_XURI: unit -> UriManager.uri -val trans_eq_URI: unit -> UriManager.uri - val metas_of_term: Cic.term -> int list +val remove_local_context: Cic.term -> Cic.term