equal
deleted
inserted
replaced
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 |