src/HOL/TLA/Action.thy
changeset 52037 837211662fb8
parent 47968 3119ad2b5ad3
child 54742 7a86358a3c0b
     1.1 --- a/src/HOL/TLA/Action.thy	Thu May 16 15:21:12 2013 +0200
     1.2 +++ b/src/HOL/TLA/Action.thy	Thu May 16 17:39:38 2013 +0200
     1.3 @@ -260,7 +260,7 @@
     1.4  *)
     1.5  fun action_simp_tac ss intros elims =
     1.6      asm_full_simp_tac
     1.7 -         (ss setloop ((resolve_tac ((map action_use intros)
     1.8 +         (ss setloop (fn _ => (resolve_tac ((map action_use intros)
     1.9                                      @ [refl,impI,conjI,@{thm actionI},@{thm intI},allI]))
    1.10                        ORELSE' (eresolve_tac ((map action_use elims)
    1.11                                               @ [conjE,disjE,exE]))));