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