1.1 --- a/src/Tools/isac/calcelems.sml	Sun Jun 22 14:58:51 2014 +0200
     1.2 +++ b/src/Tools/isac/calcelems.sml	Sun Jun 22 15:17:07 2014 +0200
     1.3 @@ -547,13 +547,6 @@
     1.4      end
     1.5    | n => error ("theID2guh called with theID = " ^ strs2str' theID);
     1.6  
     1.7 -(* an association list, gets the value once in Isac.ML.
     1.8 -   stores Isabelle's thms as terms for compatibility with Theory.axioms_of.
     1.9 -   WN1-1-28 make this data arguments and del ref ?*)
    1.10 -val isab_thm_thy = Unsynchronized.ref ([] : (thmDeriv * term) list);
    1.11 -val isabthys = Unsynchronized.ref ([] : theory list);
    1.12 -
    1.13 -
    1.14  type path = string;
    1.15  type filename = string;
    1.16  
    1.17 @@ -699,8 +692,6 @@
    1.18    | assoc' ((keyi, xi) :: pairs, key) =
    1.19        if key = keyi then SOME xi else assoc' (pairs, key);
    1.20  
    1.21 -(*100818 fun assoc_thy (thy:theory') = ((the o assoc')(!theory',thy))
    1.22 -  handle _ => error ("ME_Isa: thy '"^thy^"' not in system");*)
    1.23  fun assoc_thy (thy:theory') =
    1.24      if thy = "e_domID" then (Thy_Info.get_theory "Script") (*lower bound of Knowledge*)
    1.25      else (Thy_Info.get_theory thy)