src/Tools/code/code_ml.ML
changeset 28971 300ec36a19af
parent 28743 eda4a5f64f2e
child 29175 27cd8cce605e
equal deleted inserted replaced
28945:da79ac67794b 28971:300ec36a19af
   910 
   910 
   911 local
   911 local
   912 
   912 
   913 structure CodeAntiqData = ProofDataFun
   913 structure CodeAntiqData = ProofDataFun
   914 (
   914 (
   915   type T = string list * (bool * (string * (string * (string * string) list) Lazy.T));
   915   type T = string list * (bool * (string * (string * (string * string) list) lazy));
   916   fun init _ = ([], (true, ("", Lazy.value ("", []))));
   916   fun init _ = ([], (true, ("", Lazy.value ("", []))));
   917 );
   917 );
   918 
   918 
   919 val is_first_occ = fst o snd o CodeAntiqData.get;
   919 val is_first_occ = fst o snd o CodeAntiqData.get;
   920 
   920