X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fparamodulation%2Fequality.mli;h=1a909dfc4b387c40465d5743bfc940964ba5e79c;hb=4ab3123d6a8e5080009d7b471b0cefd05f4817ed;hp=019578ccc363d53d43c7c36f5af90bc9f707af4c;hpb=9de2bb1a68109ae9e15b78ed4225e4846d2e2b0a;p=helm.git diff --git a/helm/software/components/tactics/paramodulation/equality.mli b/helm/software/components/tactics/paramodulation/equality.mli index 019578ccc..1a909dfc4 100644 --- a/helm/software/components/tactics/paramodulation/equality.mli +++ b/helm/software/components/tactics/paramodulation/equality.mli @@ -39,6 +39,8 @@ val pp_proof: (Cic.name option) list -> goal_proof -> proof -> Subst.substitution -> int -> Cic.term -> string +val pp_proofterm: Cic.term -> string + val reset : unit -> unit val mk_equality : @@ -71,7 +73,8 @@ val build_goal_proof: UriManager.uri -> goal_proof -> proof -> Cic.term-> int list -> Cic.context -> Cic.metasenv -> Cic.term * Cic.term list -val build_proof_term : UriManager.uri -> (int * Cic.term) list -> int -> proof -> Cic.term +val build_proof_term : + UriManager.uri -> (int * Cic.term) list -> int -> proof -> Cic.term val refl_proof: UriManager.uri -> Cic.term -> Cic.term -> Cic.term (** ensures that metavariables in equality are unique *) val fix_metas_goal: int -> goal -> int * goal