src/HOL/Tools/semiring_normalizer.ML
changeset 78095 bc42c074e58f
parent 77879 dd222e2af01a
--- a/src/HOL/Tools/semiring_normalizer.ML	Tue May 23 10:56:41 2023 +0200
+++ b/src/HOL/Tools/semiring_normalizer.ML	Tue May 23 18:46:15 2023 +0200
@@ -173,7 +173,7 @@
     val raw_ring = prepare_ops raw_ring0;
     val raw_field = prepare_ops raw_field0;
   in
-    lthy |> Local_Theory.declaration {syntax = false, pervasive = false} (fn phi => fn context =>
+    lthy |> Local_Theory.declaration {syntax = false, pervasive = false, pos = \<^here>} (fn phi => fn context =>
       let
         val ctxt = Context.proof_of context;
         val key = Morphism.thm phi raw_key;