AddXEs [someI_ex];

--- a/src/HOL/HOL.ML	Tue Oct 10 12:31:00 2000 +0200
+++ b/src/HOL/HOL.ML	Tue Oct 10 23:43:23 2000 +0200
@@ -32,6 +32,6 @@
 end;
 
 AddXIs [equal_intr_rule, disjI1, disjI2, ext];
-AddXEs [ex1_implies_ex];
+AddXEs [ex1_implies_ex, someI_ex];
 
 open HOL;