Isabelle_DOF
/
Isabelle_DOF
1
0
Fork 2
Code Issues 1 Pull Requests Releases Wiki Activity

Clarified signature

This commit is contained in:
Makarius Wenzel 2022-12-03 14:44:04 +01:00
parent b12e61511d
commit e8c7fa6018
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/DOF/Isa_DOF.thy
View File

@ -2883,7 +2883,7 @@ val _ = Outer_Syntax.command \<^command_keyword>\<open>define_macro*\<close> "d
section \<open>Document templates\<close>
ML \<open>
signature DOCUMENT_TEMPLATE =
signature DOCUMENT_CONTEXT =
sig
val template_space: Context.generic -> Name_Space.T
val print_template: Context.generic -> string -> string
@ -2892,7 +2892,7 @@ sig
val define_template: binding * string -> theory -> string * theory
end;
structure Document_Template: DOCUMENT_TEMPLATE =
structure Document_Context: DOCUMENT_CONTEXT =
struct
(* theory data *)
@ -2904,6 +2904,11 @@ structure Data = Theory_Data
val merge = Name_Space.merge_tables;
);
fun naming_context thy =
Proof_Context.init_global thy
|> Proof_Context.map_naming (Name_Space.root_path #> Name_Space.add_path "Isabelle_DOF")
|> Context.Proof;
val template_space = Name_Space.space_of_table o Data.get o Context.theory_of;
fun print_template context =
@ -2920,11 +2925,7 @@ fun use_template context arg =
fun define_template (binding, text) thy =
let
val naming_context =
Proof_Context.init_global thy
|> Proof_Context.map_naming (Name_Space.root_path #> Name_Space.add_path "Isabelle_DOF")
|> Context.Proof;
val (name, data') = Data.get thy |> Name_Space.define naming_context true (binding, text);
val (name, data') = Data.get thy |> Name_Space.define (naming_context thy) true (binding, text);
val thy' = Data.put data' thy;
in (name, thy') end;