author | wenzelm |
Wed, 20 Dec 2023 22:32:57 +0100 | |
changeset 79324 | b03e22697999 |
parent 79323 | 3bbe31b35f5b |
child 79325 | 30eed4e3badd |
--- a/src/Pure/axclass.ML Wed Dec 20 20:58:56 2023 +0100 +++ b/src/Pure/axclass.ML Wed Dec 20 22:32:57 2023 +0100 @@ -161,7 +161,8 @@ fun inst_thms ctxt = Symtab.fold - (Symtab.fold (cons o #2 o #2) o #2) (#1 (inst_params_of (Proof_Context.theory_of ctxt))) []; + (Symtab.fold (cons o #2 o #2) o #2) (#1 (inst_params_of (Proof_Context.theory_of ctxt))) [] + |> map (Thm.transfer' ctxt); fun get_inst_tyco consts = try (#1 o dest_Type o the_single o Consts.typargs consts);