src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML
changeset 70456 c742527a25fe
parent 70326 aa7c49651f4e
child 70586 57df8a85317a
--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML	Thu Aug 01 14:46:50 2019 +0200
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML	Fri Aug 02 11:23:09 2019 +0200
@@ -844,7 +844,7 @@
     fun split_conjs i nprems th =
       if i > nprems then th
       else
-        (case try Drule.RSN (@{thm conjI}, (i, th)) of
+        (case try (op RSN) (@{thm conjI}, (i, th)) of
           SOME th' => split_conjs i (nprems + 1) th'
         | NONE => split_conjs (i + 1) nprems th)
   in