src/HOL/Induct/Com.thy
changeset 59807 22bc39064290
parent 58889 5b7a9633cfa8
child 60530 44f9873d6f6f
     1.1 --- a/src/HOL/Induct/Com.thy	Wed Mar 25 10:41:53 2015 +0100
     1.2 +++ b/src/HOL/Induct/Com.thy	Wed Mar 25 10:44:57 2015 +0100
     1.3 @@ -184,7 +184,7 @@
     1.4     apply blast
     1.5    apply blast
     1.6   apply (blast elim: exec_WHILE_case)
     1.7 -apply (erule_tac V = "(?c,s2) -[?ev]-> s3" in thin_rl)
     1.8 +apply (erule_tac V = "(c,s2) -[ev]-> s3" for c ev in thin_rl)
     1.9  apply clarify
    1.10  apply (erule exec_WHILE_case, blast+)
    1.11  done