thys/Sulzmann.thy
changeset 313 3b8e3a156200
parent 307 ee1caac29bb2
child 362 e51c9a67a68d
--- a/thys/Sulzmann.thy	Wed Feb 20 00:00:30 2019 +0000
+++ b/thys/Sulzmann.thy	Sat Feb 23 21:52:06 2019 +0000
@@ -247,6 +247,12 @@
   shows "bmkeps r = retrieve r (mkeps (erase r))"
   using assms
   apply(induct r)
+       apply(simp)
+      apply(simp)
+     apply(simp)
+    apply(simp) 
+   apply(simp only: bmkeps.simps bnullable_correctness)
+  apply(auto simp only: split: if_split)
   apply(auto simp add: bnullable_correctness)
   done