changeset 67649 | 1e1782c1aedf |
parent 67644 | 15c6256709d6 |
child 69593 | 3dda49e08b9d |
--- a/src/Provers/splitter.ML Sat Feb 17 20:03:37 2018 +0100 +++ b/src/Provers/splitter.ML Sun Feb 18 15:05:21 2018 +0100 @@ -440,7 +440,7 @@ val (name, asm) = split_thm_info split val split0 = Thm.trim_context split fun tac ctxt' = - let val split' = Thm.transfer (Proof_Context.theory_of ctxt') split0 in + let val split' = Thm.transfer' ctxt' split0 in (if asm then split_asm_tac ctxt' [split'] else if bang then split_tac ctxt' [split'] THEN_ALL_NEW