lib/Eisbach_Tools: morphism type changed in Isabelle2023
Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
parent
6721c7a15e
commit
3f66cb0005
|
@ -484,14 +484,14 @@ fun maybe_bind st (_,[tok]) ctxt =
|
|||
|
||||
val local_facts = Facts.dest_static true [(Proof_Context.facts_of target)] local_facts;
|
||||
|
||||
val _ = Token.assign (SOME (Token.Declaration (fn phi =>
|
||||
Data.put (SOME (phi,ctxt, {private_dyn_facts = private_dyns, local_facts = local_facts}))))) tok;
|
||||
val _ = Token.assign (SOME (Token.Declaration (Morphism.entity (fn phi =>
|
||||
Data.put (SOME (phi,ctxt, {private_dyn_facts = private_dyns, local_facts = local_facts})))))) tok;
|
||||
|
||||
in ctxt end
|
||||
else
|
||||
let
|
||||
val SOME (Token.Declaration decl) = Token.get_value tok;
|
||||
val dummy_ctxt = decl Morphism.identity (Context.Proof ctxt);
|
||||
val dummy_ctxt = Morphism.form decl (Context.Proof ctxt);
|
||||
val SOME (phi,static_ctxt,{private_dyn_facts, local_facts}) = Data.get dummy_ctxt;
|
||||
|
||||
val old_facts = Proof_Context.facts_of static_ctxt;
|
||||
|
|
|
@ -225,7 +225,7 @@ let
|
|||
|
||||
val deps = case query of SOME (raw_query,pos) =>
|
||||
let
|
||||
val pos' = perhaps (try (Position.advance_offsets 1)) pos;
|
||||
val pos' = perhaps (try (Position.shift_offsets {remove_id = false} 1)) pos;
|
||||
val q = Find_Theorems.read_query pos' raw_query;
|
||||
val results = Find_Theorems.find_theorems_cmd ctxt (SOME thm) (SOME 1000000000) false q
|
||||
|> snd
|
||||
|
|
Loading…
Reference in New Issue