--- a/src/HOL/Tools/Transfer/transfer.ML Thu Oct 08 23:40:27 2015 +0200
+++ b/src/HOL/Tools/Transfer/transfer.ML Fri Oct 09 01:37:57 2015 +0200
@@ -632,8 +632,8 @@
fun eq_tac ctxt = eq_rules_tac ctxt (get_relator_eq_raw ctxt)
fun transfer_step_tac ctxt =
- REPEAT_ALL_NEW (resolve_tac ctxt (get_transfer_raw ctxt)
- THEN_ALL_NEW (DETERM o eq_rules_tac ctxt (get_relator_eq_raw ctxt)))
+ REPEAT_ALL_NEW (resolve_tac ctxt (get_transfer_raw ctxt))
+ THEN_ALL_NEW (DETERM o eq_rules_tac ctxt (get_relator_eq_raw ctxt))
fun transfer_tac equiv ctxt i =
let