src/HOL/Hoare_Parallel/OG_Examples.thy

--- a/src/HOL/Hoare_Parallel/OG_Examples.thy	Sun Sep 11 22:56:05 2011 +0200
+++ b/src/HOL/Hoare_Parallel/OG_Examples.thy	Mon Sep 12 07:55:43 2011 +0200
@@ -192,7 +192,7 @@
 --{* 6 subgoals left *}
 prefer 6
 apply(erule_tac x=i in allE)
-apply fastsimp
+apply fastforce
 --{* 5 subgoals left *}
 prefer 5
 apply(case_tac [!] "j=k")