changeset 81218 | 94bace5078ba |
parent 81116 | 0fb1e2dd4122 |
child 81558 | b57996a0688c |
--- a/src/Pure/Isar/specification.ML Sun Oct 20 22:40:18 2024 +0200 +++ b/src/Pure/Isar/specification.ML Mon Oct 21 11:55:51 2024 +0200 @@ -94,7 +94,7 @@ fun get Cs (Const ("_type_constraint_", C) $ t) = get (C :: Cs) t | get Cs (Free (y, T)) = if x = y then - map_filter Term_Position.decode_positionT + maps Term_Position.decode_positionT (T :: map (Type.constraint_type ctxt) Cs) else [] | get _ (t $ u) = get [] t @ get [] u