thys/Re1.thy
changeset 72 9128b9440e93
parent 71 2d30c74ba67f
child 73 6e035162345a
--- a/thys/Re1.thy	Thu Feb 26 16:35:10 2015 +0000
+++ b/thys/Re1.thy	Wed Mar 04 19:34:47 2015 +0000
@@ -346,6 +346,7 @@
 apply metis
 apply(simp)
 (* ALT case *)
+thm mkeps.simps
 apply(simp)
 apply(erule disjE)
 apply(simp)
@@ -361,6 +362,7 @@
 apply(rotate_tac 4)
 apply(erule Prf.cases)
 apply(simp_all)[5]
+thm mkeps_flat
 apply(simp add: mkeps_flat)
 apply(auto)[1]
 thm Prf_flat_L nullable_correctness
@@ -369,7 +371,7 @@
 apply(subst (asm) POSIX_def)
 apply(clarify)
 apply(drule_tac x="v2" in spec)
-by metis
+by simp
 
 
 section {* Derivatives *}
@@ -727,6 +729,7 @@
 apply(erule ValOrd.cases)
 apply(simp_all)[8]
 (* EMPTY case *)
+apply(simp)
 apply(erule ValOrd.cases)
 apply(simp_all)[8]
 (* CHAR case *)