Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned;
authorwenzelm
Wed, 09 Jul 2025 11:28:56 +0200
changeset 82831 30c746b4dbeb
parent 82830 3c60d0a340cb
child 82832 bf1bc2932343
tuned;
src/Provers/classical.ML file | annotate | diff | comparison | revisions 
--- a/src/Provers/classical.ML	Wed Jul 09 11:22:42 2025 +0200
+++ b/src/Provers/classical.ML	Wed Jul 09 11:28:56 2025 +0200
@@ -189,13 +189,14 @@
 
 (*Creates rules to eliminate ~A, from rules to introduce A*)
 fun swapify intrs = intrs RLN (2, [Data.swap]);
-val swapped = Thm.rule_attribute [] (fn _ => fn th => th RSN (2, Data.swap));
+fun swap_rule intr = intr RSN (2, Data.swap);
+val swapped = Thm.rule_attribute [] (K swap_rule);
 
 (*Uses introduction rules in the normal way, or on negated assumptions,
   trying rules in order. *)
 fun swap_res_tac ctxt rls =
   let
-    fun addrl rl brls = (false, rl) :: (true, rl RSN (2, Data.swap)) :: brls;
+    fun addrl rl brls = (false, rl) :: (true, swap_rule rl) :: brls;
   in
     assume_tac ctxt ORELSE'
     contr_tac ctxt ORELSE'
isabelle