src/Tools/isac/BridgeLibisabelle/present-tool.sml
changeset 60649 b2ff1902420f
parent 60559 aba19e46dd84
     1.1 --- a/src/Tools/isac/BridgeLibisabelle/present-tool.sml	Wed Jan 11 06:06:12 2023 +0100
     1.2 +++ b/src/Tools/isac/BridgeLibisabelle/present-tool.sml	Wed Jan 11 09:23:18 2023 +0100
     1.3 @@ -76,7 +76,8 @@
     1.4     EXCEPT theory hierarchy ... compare 'fun keref2xml'    *)
     1.5  fun pblID2guh ctxt pblID = (((#guh o (Problem.from_store ctxt)) pblID)
     1.6    handle ERROR _ => raise ERROR ("Ptool.pblID2guh: not for \"" ^ strs2str' pblID ^ "\""));
     1.7 -fun metID2guh metID = (((#guh o MethodC.from_store ("Isac_Knowledge" |> ThyC.get_theory |> Proof_Context.init_global)) metID)
     1.8 +fun metID2guh metID =
     1.9 +  (((#guh o MethodC.from_store ("Isac_Knowledge" |> Know_Store.get_via_last_thy |> Proof_Context.init_global)) metID)
    1.10    handle ERROR _ => raise ERROR ("metID2guh: no 'Met_' for \"" ^ strs2str' metID ^ "\""));
    1.11  fun kestoreID2guh ctxt Pbl_ kestoreID = pblID2guh ctxt kestoreID
    1.12    | kestoreID2guh _ Met_ kestoreID = metID2guh kestoreID