From 8314921ff537eb5081765ec26cd54ff0a77e08f7 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Sun, 23 Jul 2006 08:36:35 +0000 Subject: [PATCH] see BOO025-1 as an example of failure if (mot p) is commented out. --- helm/software/components/tactics/paramodulation/equality.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/helm/software/components/tactics/paramodulation/equality.ml b/helm/software/components/tactics/paramodulation/equality.ml index 0b0b73e3f..2dbc618f7 100644 --- a/helm/software/components/tactics/paramodulation/equality.ml +++ b/helm/software/components/tactics/paramodulation/equality.ml @@ -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) -- 2.39.2