src/Tools/isac/BaseDefinitions/Know_Store.thy
changeset 59904 2e0fa83971e5
parent 59903 5037ca1b112b
child 59909 821f038df564
     1.1 --- a/src/Tools/isac/BaseDefinitions/Know_Store.thy	Wed Apr 22 14:36:27 2020 +0200
     1.2 +++ b/src/Tools/isac/BaseDefinitions/Know_Store.thy	Wed Apr 22 16:01:53 2020 +0200
     1.3 @@ -117,7 +117,7 @@
     1.4    fun add_pbts pbts thy = let
     1.5            fun add_pbt (pbt as {guh,...}, pblID) =
     1.6                  (* the pblID has the leaf-element as first; better readability achieved *)
     1.7 -                (if (!Check_Unique.check_guhs_unique) then Probl_Def.check_unique guh (Data.get thy) else ();
     1.8 +                (if (!Check_Unique.on) then Probl_Def.check_unique guh (Data.get thy) else ();
     1.9                    rev pblID |> Store.insert pblID pbt);
    1.10          in Data.map (fold add_pbt pbts) thy end;
    1.11  
    1.12 @@ -130,7 +130,7 @@
    1.13    val get_mets = Data.get;
    1.14    fun add_mets mets thy = let
    1.15            fun add_met (met as {guh,...}, metID) =
    1.16 -                (if (!Check_Unique.check_guhs_unique) then Meth_Def.check_unique guh (Data.get thy) else ();
    1.17 +                (if (!Check_Unique.on) then Meth_Def.check_unique guh (Data.get thy) else ();
    1.18                    Store.insert metID met metID);
    1.19          in Data.map (fold add_met mets) thy end;
    1.20