--- a/src/HOL/HoareParallel/RG_Examples.thy Mon Jul 21 15:26:26 2008 +0200
+++ b/src/HOL/HoareParallel/RG_Examples.thy Mon Jul 21 15:27:23 2008 +0200
@@ -293,7 +293,7 @@
apply force
apply force
apply(rule Basic)
- apply (simp add: mod_add_self2)
+ apply simp
apply clarify
apply simp
apply (case_tac "X x (j mod n) \<le> j")
@@ -346,7 +346,7 @@
apply(rule Basic)
apply simp
apply clarify
- apply (simp add: mod_add_self2)
+ apply simp
apply(rule allI)
apply(rule impI)+
apply(case_tac "X x ! i\<le> j")