From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 20 Jul 2006 13:11:23 +0000 (+0000)
Subject: removed abstractios for dummy metavariables when generating letins body
X-Git-Tag: make_still_working~7029
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c39567bfa25333be8a51c969dabbaf0aeb4dfa57;p=helm.git

removed abstractios for dummy metavariables when generating letins body
---

diff --git a/helm/software/components/tactics/paramodulation/equality.ml b/helm/software/components/tactics/paramodulation/equality.ml
index ac5cb1a0c..2634752e7 100644
--- a/helm/software/components/tactics/paramodulation/equality.ml
+++ b/helm/software/components/tactics/paramodulation/equality.ml
@@ -562,7 +562,7 @@ let build_proof_step eq lift subst p1 p2 pos l r pred =
 let parametrize_proof p l r ty = 
   let uniq l = HExtlib.list_uniq (List.sort Pervasives.compare l) in
   let mot = CicUtil.metas_of_term_set in
-  let parameters = uniq (mot p @ mot l @ mot r) in 
+  let parameters = uniq ((*mot p @*) mot l @ mot r) in 
   (* ?if they are under a lambda? *)
   let parameters = 
     HExtlib.list_uniq (List.sort Pervasives.compare parameters)