tuned: order does not matter here;
authorwenzelm
Fri, 11 Jul 2025 12:04:31 +0200
changeset 82841 53e56e6a67c3
parent 82840 c3085510366e
child 82842 8aa1c98b948b
tuned: order does not matter here;
src/Provers/classical.ML
--- a/src/Provers/classical.ML	Fri Jul 11 11:59:22 2025 +0200
+++ b/src/Provers/classical.ML	Fri Jul 11 12:04:31 2025 +0200
@@ -287,12 +287,12 @@
 
 (*Insert into netpair from next index, which is negative to give the
   new insertions the lowest priority.*)
-fun insert k = fold_rev Bires.insert_tagged_rule o (tag_brls (2 * k)) o joinrules;
+fun insert k = fold Bires.insert_tagged_rule o (tag_brls (2 * k)) o joinrules;
 
 fun insert_default_weight w0 w k =
-  fold_rev Bires.insert_tagged_rule o tag_weight_brls (the_default w0 w) k o single;
+  fold Bires.insert_tagged_rule o tag_weight_brls (the_default w0 w) k o single;
 
-fun delete x = fold_rev Bires.delete_tagged_rule (joinrules x);
+fun delete x = fold Bires.delete_tagged_rule (joinrules x);
 
 fun bad_thm ctxt msg th = error (msg ^ "\n" ^ Thm.string_of_thm ctxt th);