adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lib/Eisbach_Tools: morphism type changed in Isabelle2023 

Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
Gerwin Klein 2023-09-01 18:27:31 +02:00
parent 6721c7a15e
commit 3f66cb0005
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Eisbach_Tools/Apply_Debug.thy
View File

@ -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;

2
lib/Eisbach_Tools/Apply_Trace.thy
View File

@ -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