Removed
authornipkow
Sun Nov 16 16:18:31 1997 +0100 (1997-11-16)
changeset 4231a73f5a63f197
parent 4230 eb5586526bc9
child 4232 29f3875596ad
Removed
"(ALL x:f``A. P x) = (ALL x:A. P(f x))",
"(EX x:f``A. P x) = (EX x:A. P(f x))",
again, because they were already there and added
"(UN x:f``A. B x) = (UN a:A. B(f a))"
"(INT x:f``A. B x) = (INT a:A. B(f a))"
instead.
src/HOL/Set.ML
src/HOL/equalities.ML
     1.1 --- a/src/HOL/Set.ML	Sat Nov 15 18:41:06 1997 +0100
     1.2 +++ b/src/HOL/Set.ML	Sun Nov 16 16:18:31 1997 +0100
     1.3 @@ -610,16 +610,6 @@
     1.4  qed "image_iff";
     1.5  
     1.6  
     1.7 -goal Set.thy "(! x : f `` A. P x) = (! a:A. P(f a))";
     1.8 -by (Blast_tac 1);
     1.9 -qed "ball_image";
    1.10 -
    1.11 -goal Set.thy "(? x : f `` A. P x) = (? a:A. P(f a))";
    1.12 -by (Blast_tac 1);
    1.13 -qed "bex_image";
    1.14 -
    1.15 -Addsimps [ball_image,bex_image];
    1.16 -
    1.17  (*** Range of a function -- just a translation for image! ***)
    1.18  
    1.19  goal thy "!!b. b=f(x) ==> b : range(f)";
     2.1 --- a/src/HOL/equalities.ML	Sat Nov 15 18:41:06 1997 +0100
     2.2 +++ b/src/HOL/equalities.ML	Sun Nov 16 16:18:31 1997 +0100
     2.3 @@ -626,7 +626,8 @@
     2.4       "(UN x:C. A x Int B)  = ((UN x:C. A x) Int B)",
     2.5       "(UN x:C. A Int B x)  = (A Int (UN x:C. B x))",
     2.6       "(UN x:C. A x - B)    = ((UN x:C. A x) - B)",
     2.7 -     "(UN x:C. A - B x)    = (A - (INT x:C. B x))"];
     2.8 +     "(UN x:C. A - B x)    = (A - (INT x:C. B x))",
     2.9 +     "(UN x:f``A. B x)     = (UN a:A. B(f a))"];
    2.10  
    2.11  val INT_simps = map prover
    2.12      ["!!C. C ~= {} ==> (INT x:C. A x Int B) = ((INT x:C. A x) Int B)",
    2.13 @@ -635,7 +636,8 @@
    2.14       "!!C. C ~= {} ==> (INT x:C. A - B x)   = (A - (UN x:C. B x))",
    2.15       "(INT x:C. insert a (B x)) = insert a (INT x:C. B x)",
    2.16       "(INT x:C. A x Un B)  = ((INT x:C. A x) Un B)",
    2.17 -     "(INT x:C. A Un B x)  = (A Un (INT x:C. B x))"];
    2.18 +     "(INT x:C. A Un B x)  = (A Un (INT x:C. B x))",
    2.19 +     "(INT x:f``A. B x)    = (INT a:A. B(f a))"];
    2.20  
    2.21  
    2.22  val ball_simps = map prover