author | wenzelm |
Mon, 11 Dec 2023 19:36:28 +0100 | |
changeset 79248 | 288229384ed7 |
parent 79247 | dc1681739247 |
child 79249 | 718798653cf1 |
src/Pure/term.ML | file | annotate | diff | comparison | revisions |
--- 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;