right parenthesization
authorkuncar
Fri, 09 Oct 2015 01:37:57 +0200
changeset 61366 3933c0d7edc9
parent 61365 1190beb20762
child 61367 46af4f577c7e
right parenthesization
src/HOL/Tools/Transfer/transfer.ML
--- 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