changeset 78095 | bc42c074e58f |
parent 74561 | 8e6c973003c8 |
child 80634 | a90ab1ea6458 |
--- a/src/HOL/Tools/functor.ML Tue May 23 10:56:41 2023 +0200 +++ b/src/HOL/Tools/functor.ML Tue May 23 18:46:15 2023 +0200 @@ -263,7 +263,7 @@ |> Local_Theory.note ((qualify identityN, []), [prove_identity lthy id_thm]) |> snd - |> Local_Theory.declaration {syntax = false, pervasive = false} + |> Local_Theory.declaration {syntax = false, pervasive = false, pos = \<^here>} (mapper_declaration comp_thm id_thm)) in lthy