src/FOLP/IFOLP.thy
changeset 29305 76af2a3c9d28
parent 29269 5c25a2012975
child 32740 9dd0a2f83429
--- a/src/FOLP/IFOLP.thy	Fri Jan 02 00:21:59 2009 +0100
+++ b/src/FOLP/IFOLP.thy	Fri Jan 02 11:31:07 2009 +0100
@@ -339,6 +339,7 @@
   shows "?a : R"
   apply (insert assms(1) [unfolded ex1_def])
   apply (erule exE conjE | assumption | rule assms(1))+
+  apply (erule assms(2), assumption)
   done