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