diff -r c3b3517ef4ba -r 069f6b2c5a07 src/Pure/Tools/named_theorems.ML --- a/src/Pure/Tools/named_theorems.ML Mon Aug 16 11:24:12 2021 +0200 +++ b/src/Pure/Tools/named_theorems.ML Mon Aug 16 11:49:39 2021 +0200 @@ -34,7 +34,7 @@ Data.map (fn data => if Symtab.defined data name then error ("Duplicate declaration of named theorems: " ^ quote name) - else Symtab.update (name, Thm.full_rules) data); + else Symtab.update (name, Thm.item_net) data); fun undeclared name = "Undeclared named theorems " ^ quote name; @@ -58,7 +58,7 @@ val get = content o Context.Proof; -fun clear name = map_entry name (K Thm.full_rules); +fun clear name = map_entry name (K Thm.item_net); fun add_thm name th = map_entry name (Item_Net.update (Thm.trim_context th)); fun del_thm name = map_entry name o Item_Net.remove;