X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fparamodulation%2Fequality.ml;h=b7a8a9f6b2b0ef31783d8183d226bb1d7b4e8707;hb=acfce0988db6cce820044b174f4f485dc0a0c6ec;hp=0b0b73e3f27c74ff0d5fefc202d904937726253c;hpb=bc76b4d2f3c380894259b45fad52cf85ae6cee18;p=helm.git

diff --git a/helm/software/components/tactics/paramodulation/equality.ml b/helm/software/components/tactics/paramodulation/equality.ml
index 0b0b73e3f..b7a8a9f6b 100644
--- a/helm/software/components/tactics/paramodulation/equality.ml
+++ b/helm/software/components/tactics/paramodulation/equality.ml
@@ -574,11 +574,13 @@ 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) 
   in
+*)
   let what = List.map (fun (i,l) -> Cic.Meta (i,l)) parameters in 
   let with_what, lift_no = 
     List.fold_right (fun _ (acc,n) -> ((Cic.Rel n)::acc),n+1) what ([],1)