more Set() and Table() instances;
authorwenzelm
Mon, 10 Apr 2023 18:16:33 +0200
changeset 77805 66779a752f10
parent 77804 849c996f052b
child 77806 b6aa5eac0a1a
more Set() and Table() instances;
src/Pure/General/set.ML
src/Pure/General/table.ML
--- 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);