X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fparamodulation%2Fequality.ml;h=2bf3600f289d4de84e76daa71a2f3197bd78c1bb;hb=a40dbe4ef22688b1e9d8b31a7f10150bfc28e111;hp=cb12f7a77c6ffbc335de5c4cf7f680dab55f5fea;hpb=25564c06c570e5ab9be455904c0b381842f8d4c4;p=helm.git diff --git a/helm/software/components/tactics/paramodulation/equality.ml b/helm/software/components/tactics/paramodulation/equality.ml index cb12f7a77..2bf3600f2 100644 --- a/helm/software/components/tactics/paramodulation/equality.ml +++ b/helm/software/components/tactics/paramodulation/equality.ml @@ -716,7 +716,6 @@ let topological_sort bag l = rc ;; - (* returns the list of ids that should be factorized *) let get_duplicate_step_in_wfo bag l p = let ol = List.rev l in