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 local_facts = Facts.dest_static true [(Proof_Context.facts_of target)] local_facts;
|
||||||
|
|
||||||
val _ = Token.assign (SOME (Token.Declaration (fn phi =>
|
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;
|
Data.put (SOME (phi,ctxt, {private_dyn_facts = private_dyns, local_facts = local_facts})))))) tok;
|
||||||
|
|
||||||
in ctxt end
|
in ctxt end
|
||||||
else
|
else
|
||||||
let
|
let
|
||||||
val SOME (Token.Declaration decl) = Token.get_value tok;
|
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 SOME (phi,static_ctxt,{private_dyn_facts, local_facts}) = Data.get dummy_ctxt;
|
||||||
|
|
||||||
val old_facts = Proof_Context.facts_of static_ctxt;
|
val old_facts = Proof_Context.facts_of static_ctxt;
|
||||||
|
|
|
@ -225,7 +225,7 @@ let
|
||||||
|
|
||||||
val deps = case query of SOME (raw_query,pos) =>
|
val deps = case query of SOME (raw_query,pos) =>
|
||||||
let
|
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 q = Find_Theorems.read_query pos' raw_query;
|
||||||
val results = Find_Theorems.find_theorems_cmd ctxt (SOME thm) (SOME 1000000000) false q
|
val results = Find_Theorems.find_theorems_cmd ctxt (SOME thm) (SOME 1000000000) false q
|
||||||
|> snd
|
|> snd
|
||||||
|
|
Loading…
Reference in New Issue