revert 17fda85a33dc: renaming is not necessarily unique, e.g. [("x", "x"), ("x", "y")];
authorwenzelm
Mon, 11 Dec 2023 19:36:28 +0100
changeset 79248 288229384ed7
parent 79247 dc1681739247
child 79249 718798653cf1
revert 17fda85a33dc: renaming is not necessarily unique, e.g. [("x", "x"), ("x", "y")];
src/Pure/term.ML
--- a/src/Pure/term.ML	Mon Dec 11 19:33:31 2023 +0100
+++ b/src/Pure/term.ML	Mon Dec 11 19:36:28 2023 +0100
@@ -668,7 +668,7 @@
 
 fun rename_abs pat obj t =
   let
-    val renaming = match_bvs (pat, obj) [] |> filter_out (op =);
+    val renaming = match_bvs (pat, obj) [];
     fun rename x = perhaps (AList.lookup (op =) renaming) x;
   in if null renaming then NONE else Same.catch (map_abs_vars_same rename) t end;