changeset 9838 | dc84dda48a5a |
parent 9422 | 4b6bc2b347e5 |
child 9969 | 4753185f1dd2 |
--- a/src/HOL/Fun.ML Tue Sep 05 10:12:48 2000 +0200 +++ b/src/HOL/Fun.ML Tue Sep 05 10:13:20 2000 +0200 @@ -21,9 +21,7 @@ (** "Axiom" of Choice, proved using the description operator **) -Goal "!!Q. ALL x. EX y. Q x y ==> EX f. ALL x. Q x (f x)"; -by (fast_tac (claset() addEs [selectI]) 1); -qed "choice"; +(*"choice" is now proved in Tools/meson.ML*) Goal "!!S. ALL x:S. EX y. Q x y ==> EX f. ALL x:S. Q x (f x)"; by (fast_tac (claset() addEs [selectI]) 1);