]> matita.cs.unibo.it Git - helm.git/commitdiff
see BOO025-1 as an example of failure if (mot p) is commented out.
authorEnrico Tassi <enrico.tassi@inria.fr>
Sun, 23 Jul 2006 08:36:35 +0000 (08:36 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Sun, 23 Jul 2006 08:36:35 +0000 (08:36 +0000)
helm/software/components/tactics/paramodulation/equality.ml

index 0b0b73e3f27c74ff0d5fefc202d904937726253c..2dbc618f7eec4a1d735197993661039b0d1de764 100644 (file)
@@ -574,7 +574,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)