--- a/src/HOL/Real/HahnBanach/FunctionOrder.thy Tue Aug 07 19:29:08 2001 +0200
+++ b/src/HOL/Real/HahnBanach/FunctionOrder.thy Tue Aug 07 21:27:00 2001 +0200
@@ -27,7 +27,7 @@
"graph F f \<equiv> {(x, f x) | x. x \<in> F}"
lemma graphI [intro?]: "x \<in> F \<Longrightarrow> (x, f x) \<in> graph F f"
- by (unfold graph_def, intro CollectI exI) blast
+ by (unfold graph_def) blast
lemma graphI2 [intro?]: "x \<in> F \<Longrightarrow> \<exists>t\<in> (graph F f). t = (x, f x)"
by (unfold graph_def) blast