diff -r f0d9f873f470 -r c742527a25fe src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML --- 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