--- 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