--- a/src/Pure/General/set.ML Mon Apr 10 18:13:23 2023 +0200
+++ b/src/Pure/General/set.ML Mon Apr 10 18:16:33 2023 +0200
@@ -445,4 +445,5 @@
end;
structure Intset = Set(Inttab.Key);
+structure Intset' = Set(Inttab'.Key);
structure Symset = Set(Symtab.Key);
--- a/src/Pure/General/table.ML Mon Apr 10 18:13:23 2023 +0200
+++ b/src/Pure/General/table.ML Mon Apr 10 18:16:33 2023 +0200
@@ -645,6 +645,7 @@
end;
structure Inttab = Table(type key = int val ord = int_ord);
+structure Inttab' = Table(type key = int val ord = rev_order o int_ord);
structure Symtab = Table(type key = string val ord = fast_string_ord);
structure Symreltab = Table(type key = string * string
val ord = prod_ord fast_string_ord fast_string_ord);