Table of ContentsTable of Contents Mathbox for Jeff Madsen < Previous   Next >
Related theorems
Unicode version

Theorem heiborlem23 17062
Description: Lemma for heibor 17082. If a set has no finite subcover, then there exists a ball of any given radius whose intersection with the set also has no finite subcover. This lemma relies on the totally bounded condition to show that S can be covered by finitely many balls.
Hypotheses
Ref Expression
heibor.1 |- J = (MetOpen` M)
heibor.2 |- X = dom dom M
heibor.9 |- M e. CMet
heibor.10 |- M e. TotBnd
heibor.11 |- U C_ J
heibor.12 |- X = U.U
heibor.13 |- D = {s e. ~PX | -. E.v e. (~PU i^i Fin)s C_ U.v}
Assertion
Ref Expression
heiborlem23 |- ((S e. D /\ R e. RR+) -> E.x e. X ((x( ball ` M)R) i^i S) e. D)
Distinct variable groups:   M,s,v,x   J,s,v,x   X,s,v,x   x,U,s,v   S,s,v,x   x,D   R,s,v,x

Proof of Theorem heiborlem23
StepHypRef Expression
1 heibor.1 . . 3 |- J = (MetOpen` M)
2 heibor.2 . . 3 |- X = dom dom M
3 heibor.9 . . 3 |- M e. CMet
4 heibor.10 . . 3 |- M e. TotBnd
5 heibor.11 . . 3 |- U C_ J
6 heibor.12 . . 3 |- X = U.U
7 heibor.13 . . 3 |- D = {s e. ~PX | -. E.v e. (~PU i^i Fin)s C_ U.v}
81, 2, 3, 4, 5, 6, 7heiborlem20 17059 . 2 |- (S e. D <-> (S C_ X /\ -. E.z e. (~PU i^i Fin)S C_ U.z))
93cmsmeti 10256 . . . . . . 7 |- M e. Met
102totbndss 17022 . . . . . . 7 |- ((M e. Met /\ M e. TotBnd /\ S C_ X) -> (M |` (S X. S)) e. TotBnd)
119, 4, 10mp3an12 1484 . . . . . 6 |- (S C_ X -> (M |` (S X. S)) e. TotBnd)
12 metres 10116 . . . . . . . 8 |- (M e. Met -> (M |` (S X. S)) e. Met)
139, 12ax-mp 7 . . . . . . 7 |- (M |` (S X. S)) e. Met
14 eqid 2170 . . . . . . . 8 |- dom dom ( M |` (S X. S)) = dom dom ( M |` (S X. S))
1514istotbnd2 17019 . . . . . . 7 |- ((M |` (S X. S)) e. Met -> ((M |` (S X. S)) e. TotBnd <-> A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))))
1613, 15ax-mp 7 . . . . . 6 |- ((M |` (S X. S)) e. TotBnd <-> A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)))
1711, 16sylib 263 . . . . 5 |- (S C_ X -> A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)))
18 opreq2 5026 . . . . . . . . . . . . . . . . . . . 20 |- (d = R -> (t( ball ` (M |` (S X. S)))d) = (t( ball ` (M |` (S X. S)))R))
1918eqeq2d 2181 . . . . . . . . . . . . . . . . . . 19 |- (d = R -> (y = (t( ball ` (M |` (S X. S)))d) <-> y = (t( ball ` (M |` (S X. S)))R)))
2019rexbidv 2404 . . . . . . . . . . . . . . . . . 18 |- (d = R -> (E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d) <-> E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)))
2120ralbidv 2403 . . . . . . . . . . . . . . . . 17 |- (d = R -> (A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d) <-> A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)))
2221anbi2d 814 . . . . . . . . . . . . . . . 16 |- (d = R -> ((U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)) <-> (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R))))
2322rexbidv 2404 . . . . . . . . . . . . . . 15 |- (d = R -> (E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)) <-> E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R))))
2423rcla4v 2647 . . . . . . . . . . . . . 14 |- (R e. RR+ -> (A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)) -> E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R))))
2524imdistani 827 . . . . . . . . . . . . 13 |- ((R e. RR+ /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> (R e. RR+ /\ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R))))
2625ancoms 512 . . . . . . . . . . . 12 |- ((A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)) /\ R e. RR+) -> (R e. RR+ /\ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R))))
272metssba2 10103 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((M e. Met /\ S C_ X) -> S = dom dom ( M |` (S X. S)))
289, 27mpan 773 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (S C_ X -> S = dom dom ( M |` (S X. S)))
2928eleq2d 2240 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (S C_ X -> (t e. S <-> t e. dom dom ( M |` (S X. S))))
3029biimprd 245 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (S C_ X -> (t e. dom dom ( M |` (S X. S)) -> t e. S))
3130ad2antrr 856 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. dom dom ( M |` (S X. S)) -> t e. S))
32 ssel 2878 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (S C_ X -> (t e. S -> t e. X))
3332ad2antrr 856 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. S -> t e. X))
34 opreq1 5025 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (x = t -> (x( ball ` M)R) = (t( ball ` M)R))
3534ineq1d 3040 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (x = t -> ((x( ball ` M)R) i^i S) = ((t( ball ` M)R) i^i S))
3635sseq1d 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (x = t -> (((x( ball ` M)R) i^i S) C_ U.w <-> ((t( ball ` M)R) i^i S) C_ U.w))
3736rexbidv 2404 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (x = t -> (E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w <-> E.w e. (~PU i^i Fin)((t( ball ` M)R) i^i S) C_ U.w))
3837rcla4cva 2650 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w /\ t e. X) -> E.w e. (~PU i^i Fin)((t( ball ` M)R) i^i S) C_ U.w)
39 eqid 2170 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 |- (M |` (S X. S)) = (M |` (S X. S))
402, 39blssp 16929 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 |- (((M e. Met /\ S C_ X) /\ (t e. S /\ R e. RR+)) -> (t( ball ` (M |` (S X. S)))R) = ((t( ball ` M)R) i^i S))
419, 40mpanl1 788 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 |- ((S C_ X /\ (t e. S /\ R e. RR+)) -> (t( ball ` (M |` (S X. S)))R) = ((t( ball ` M)R) i^i S))
4241ancom2s 909 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 |- ((S C_ X /\ (R e. RR+ /\ t e. S)) -> (t( ball ` (M |` (S X. S)))R) = ((t( ball ` M)R) i^i S))
4342anassrs 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 |- (((S C_ X /\ R e. RR+) /\ t e. S) -> (t( ball ` (M |` (S X. S)))R) = ((t( ball ` M)R) i^i S))
4443eqeq2d 2181 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 |- (((S C_ X /\ R e. RR+) /\ t e. S) -> (y = (t( ball ` (M |` (S X. S)))R) <-> y = ((t( ball ` M)R) i^i S)))
4544biimpd 244 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 |- (((S C_ X /\ R e. RR+) /\ t e. S) -> (y = (t( ball ` (M |` (S X. S)))R) -> y = ((t( ball ` M)R) i^i S)))
4645ex 494 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((S C_ X /\ R e. RR+) -> (t e. S -> (y = (t( ball ` (M |` (S X. S)))R) -> y = ((t( ball ` M)R) i^i S))))
4746com23 68 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- ((S C_ X /\ R e. RR+) -> (y = (t( ball ` (M |` (S X. S)))R) -> (t e. S -> y = ((t( ball ` M)R) i^i S))))
48473imp 1339 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (((S C_ X /\ R e. RR+) /\ y = (t( ball ` (M |` (S X. S)))R) /\ t e. S) -> y = ((t( ball ` M)R) i^i S))
4948sseq1d 2903 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (((S C_ X /\ R e. RR+) /\ y = (t( ball ` (M |` (S X. S)))R) /\ t e. S) -> (y C_ U.w <-> ((t( ball ` M)R) i^i S) C_ U.w))
5049biimprd 245 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (((S C_ X /\ R e. RR+) /\ y = (t( ball ` (M |` (S X. S)))R) /\ t e. S) -> (((t( ball ` M)R) i^i S) C_ U.w -> y C_ U.w))
5150reximdv 2482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (((S C_ X /\ R e. RR+) /\ y = (t( ball ` (M |` (S X. S)))R) /\ t e. S) -> (E.w e. (~PU i^i Fin)((t( ball ` M)R) i^i S) C_ U.w -> E.w e. (~PU i^i Fin)y C_ U.w))
52513exp 1344 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((S C_ X /\ R e. RR+) -> (y = (t( ball ` (M |` (S X. S)))R) -> (t e. S -> (E.w e. (~PU i^i Fin)((t( ball ` M)R) i^i S) C_ U.w -> E.w e. (~PU i^i Fin)y C_ U.w))))
5352com24 82 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((S C_ X /\ R e. RR+) -> (E.w e. (~PU i^i Fin)((t( ball ` M)R) i^i S) C_ U.w -> (t e. S -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w))))
5438, 53syl5 33 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((S C_ X /\ R e. RR+) -> ((A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w /\ t e. X) -> (t e. S -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w))))
5554expdimp 497 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. X -> (t e. S -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w))))
5655com23 68 . . . . . . . . . . . . . . . . . . . . . . . 24 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. S -> (t e. X -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w))))
5733, 56mpdd 20 . . . . . . . . . . . . . . . . . . . . . . 23 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. S -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w)))
5831, 57syld 31 . . . . . . . . . . . . . . . . . . . . . 22 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (t e. dom dom ( M |` (S X. S)) -> (y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w)))
5958r19.23adv 2493 . . . . . . . . . . . . . . . . . . . . 21 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) -> E.w e. (~PU i^i Fin)y C_ U.w))
6059ralimdv 2452 . . . . . . . . . . . . . . . . . . . 20 |- (((S C_ X /\ R e. RR+) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> (A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) -> A.y e. u E.w e. (~PU i^i Fin)y C_ U.w))
6160expimpd 672 . . . . . . . . . . . . . . . . . . 19 |- ((S C_ X /\ R e. RR+) -> ((A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)) -> A.y e. u E.w e. (~PU i^i Fin)y C_ U.w))
6261ancomsd 513 . . . . . . . . . . . . . . . . . 18 |- ((S C_ X /\ R e. RR+) -> ((A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> A.y e. u E.w e. (~PU i^i Fin)y C_ U.w))
6362ad2antrr 856 . . . . . . . . . . . . . . . . 17 |- ((((S C_ X /\ R e. RR+) /\ u e. Fin) /\ U.u = dom dom ( M |` (S X. S))) -> ((A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> A.y e. u E.w e. (~PU i^i Fin)y C_ U.w))
6428eqeq2d 2181 . . . . . . . . . . . . . . . . . . . . . . 23 |- (S C_ X -> (U.u = S <-> U.u = dom dom ( M |` (S X. S))))
6564biimprd 245 . . . . . . . . . . . . . . . . . . . . . 22 |- (S C_ X -> (U.u = dom dom ( M |` (S X. S)) -> U.u = S))
6665imdistani 827 . . . . . . . . . . . . . . . . . . . . 21 |- ((S C_ X /\ U.u = dom dom ( M |` (S X. S))) -> (S C_ X /\ U.u = S))
67 fvex 4817 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (MetOpen` M) e. _V
681, 67eqeltri 2243 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- J e. _V
6968, 5ssexi 3655 . . . . . . . . . . . . . . . . . . . . . . . 24 |- U e. _V
7069pwex 3686 . . . . . . . . . . . . . . . . . . . . . . 23 |- ~PU e. _V
7170inex1 3651 . . . . . . . . . . . . . . . . . . . . . 22 |- (~PU i^i Fin) e. _V
72 indexfi 5922 . . . . . . . . . . . . . . . . . . . . . 22 |- ((u e. Fin /\ (~PU i^i Fin) e. _V /\ A.y e. u E.w e. (~PU i^i Fin)y C_ U.w) -> E.s e. Fin (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w))
7371, 72mp3an2 1482 . . . . . . . . . . . . . . . . . . . . 21 |- ((u e. Fin /\ A.y e. u E.w e. (~PU i^i Fin)y C_ U.w) -> E.s e. Fin (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w))
74 ssin 3060 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((s C_ ~PU /\ s C_ Fin) <-> s C_ (~PU i^i Fin))
75 uniss 3419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (s C_ ~PU -> U.s C_ U.~PU)
76 unipw 3700 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- U.~PU = U
7775, 76syl6sseq 2924 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (s C_ ~PU -> U.s C_ U)
78 visset 2572 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- s e. _V
7978uniex 3965 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- U.s e. _V
8079elpw 3263 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (U.s e. ~PU <-> U.s C_ U)
8177, 80sylibr 264 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (s C_ ~PU -> U.s e. ~PU)
8281ad2antrl 861 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((s e. Fin /\ (s C_ ~PU /\ s C_ Fin)) -> U.s e. ~PU)
83 dfss3 2874 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (s C_ Fin <-> A.x e. s x e. Fin)
84 unifi 5914 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- ((s e. Fin /\ A.x e. s x e. Fin) -> U.s e. Fin)
8583, 84sylan2b 697 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ((s e. Fin /\ s C_ Fin) -> U.s e. Fin)
8685adantrl 836 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ((s e. Fin /\ (s C_ ~PU /\ s C_ Fin)) -> U.s e. Fin)
87 elin 3031 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (U.s e. (~PU i^i Fin) <-> (U.s e. ~PU /\ U.s e. Fin))
8882, 86, 87sylanbrc 760 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((s e. Fin /\ (s C_ ~PU /\ s C_ Fin)) -> U.s e. (~PU i^i Fin))
8974, 88sylan2br 698 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ((s e. Fin /\ s C_ (~PU i^i Fin)) -> U.s e. (~PU i^i Fin))
9089adantll 832 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((((S C_ X /\ U.u = S) /\ s e. Fin) /\ s C_ (~PU i^i Fin)) -> U.s e. (~PU i^i Fin))
91903ad2antr1 1319 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((S C_ X /\ U.u = S) /\ s e. Fin) /\ (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w)) -> U.s e. (~PU i^i Fin))
92 elssuni 3424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (w e. s -> w C_ U.s)
93 uniss 3419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (w C_ U.s -> U.w C_ U.U.s)
94 sstr 2887 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 |- ((y C_ U.w /\ U.w C_ U.U.s) -> y C_ U.U.s)
9594expcom 495 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 |- (U.w C_ U.U.s -> (y C_ U.w -> y C_ U.U.s))
9692, 93, 953syl 38 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 |- (w e. s -> (y C_ U.w -> y C_ U.U.s))
9796r19.23aiv 2489 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 |- (E.w e. s y C_ U.w -> y C_ U.U.s)
9897ralimi 2448 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (A.y e. u E.w e. s y C_ U.w -> A.y e. u y C_ U.U.s)
99 unissb 3426 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 |- (U.u C_ U.U.s <-> A.y e. u y C_ U.U.s)
10098, 99sylibr 264 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (A.y e. u E.w e. s y C_ U.w -> U.u C_ U.U.s)
101 sseq1 2897 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- (U.u = S -> (U.u C_ U.U.s <-> S C_ U.U.s))
102100, 101syl5ibcom 275 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- (A.y e. u E.w e. s y C_ U.w -> (U.u = S -> S C_ U.U.s))
103102impcom 490 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ((U.u = S /\ A.y e. u E.w e. s y C_ U.w) -> S C_ U.U.s)
104103adantll 832 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (((S C_ X /\ U.u = S) /\ A.y e. u E.w e. s y C_ U.w) -> S C_ U.U.s)
105104adantlr 834 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ((((S C_ X /\ U.u = S) /\ s e. Fin) /\ A.y e. u E.w e. s y C_ U.w) -> S C_ U.U.s)
1061053ad2antr2 1320 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((((S C_ X /\ U.u = S) /\ s e. Fin) /\ (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w)) -> S C_ U.U.s)
107 unieq 3407 . . . . . . . . . . . . . . . . . . . . . . . . . 26 |- (z = U.s -> U.z = U.U.s)
108107sseq2d 2904 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- (z = U.s -> (S C_ U.z <-> S C_ U.U.s))
109108rcla4ev 2651 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ((U.s e. (~PU i^i Fin) /\ S C_ U.U.s) -> E.z e. (~PU i^i Fin)S C_ U.z)
11091, 106, 109syl11anc 755 . . . . . . . . . . . . . . . . . . . . . . 23 |- ((((S C_ X /\ U.u = S) /\ s e. Fin) /\ (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w)) -> E.z e. (~PU i^i Fin)S C_ U.z)
111110ex 494 . . . . . . . . . . . . . . . . . . . . . 22 |- (((S C_ X /\ U.u = S) /\ s e. Fin) -> ((s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w) -> E.z e. (~PU i^i Fin)S C_ U.z))
112111r19.23adva 2494 . . . . . . . . . . . . . . . . . . . . 21 |- ((S C_ X /\ U.u = S) -> (E.s e. Fin (s C_ (~PU i^i Fin) /\ A.y e. u E.w e. s y C_ U.w /\ A.w e. s E.y e. u y C_ U.w) -> E.z e. (~PU i^i Fin)S C_ U.z))
11366, 73, 112syl2im 34 . . . . . . . . . . . . . . . . . . . 20 |- ((S C_ X /\ U.u = dom dom ( M |` (S X. S))) -> ((u e. Fin /\ A.y e. u E.w e. (~PU i^i Fin)y C_ U.w) -> E.z e. (~PU i^i Fin)S C_ U.z))
114113expdimp 497 . . . . . . . . . . . . . . . . . . 19 |- (((S C_ X /\ U.u = dom dom ( M |` (S X. S))) /\ u e. Fin) -> (A.y e. u E.w e. (~PU i^i Fin)y C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
115114an32s 912 . . . . . . . . . . . . . . . . . 18 |- (((S C_ X /\ u e. Fin) /\ U.u = dom dom ( M |` (S X. S))) -> (A.y e. u E.w e. (~PU i^i Fin)y C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
116115adantllr 842 . . . . . . . . . . . . . . . . 17 |- ((((S C_ X /\ R e. RR+) /\ u e. Fin) /\ U.u = dom dom ( M |` (S X. S))) -> (A.y e. u E.w e. (~PU i^i Fin)y C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
11763, 116syld 31 . . . . . . . . . . . . . . . 16 |- ((((S C_ X /\ R e. RR+) /\ u e. Fin) /\ U.u = dom dom ( M |` (S X. S))) -> ((A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) /\ A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w) -> E.z e. (~PU i^i Fin)S C_ U.z))
118117exp3a 496 . . . . . . . . . . . . . . 15 |- ((((S C_ X /\ R e. RR+) /\ u e. Fin) /\ U.u = dom dom ( M |` (S X. S))) -> (A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z)))
119118expimpd 672 . . . . . . . . . . . . . 14 |- (((S C_ X /\ R e. RR+) /\ u e. Fin) -> ((U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z)))
120119r19.23adva 2494 . . . . . . . . . . . . 13 |- ((S C_ X /\ R e. RR+) -> (E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z)))
121120impr 688 . . . . . . . . . . . 12 |- ((S C_ X /\ (R e. RR+ /\ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))R)))) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
12226, 121sylan2 696 . . . . . . . . . . 11 |- ((S C_ X /\ (A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d)) /\ R e. RR+)) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
123122anassrs 728 . . . . . . . . . 10 |- (((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) /\ R e. RR+) -> (A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w -> E.z e. (~PU i^i Fin)S C_ U.z))
124123con3d 157 . . . . . . . . 9 |- (((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) /\ R e. RR+) -> (-. E.z e. (~PU i^i Fin)S C_ U.z -> -. A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
125124expimpd 672 . . . . . . . 8 |- ((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> ((R e. RR+ /\ -. E.z e. (~PU i^i Fin)S C_ U.z) -> -. A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
126125ancomsd 513 . . . . . . 7 |- ((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> ((-. E.z e. (~PU i^i Fin)S C_ U.z /\ R e. RR+) -> -. A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
127 rexnal 2394 . . . . . . 7 |- (E.x e. X -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w <-> -. A.x e. X E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w)
128126, 127syl6ibr 283 . . . . . 6 |- ((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> ((-. E.z e. (~PU i^i Fin)S C_ U.z /\ R e. RR+) -> E.x e. X -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
129 inss2 3059 . . . . . . . . . . 11 |- ((x( ball ` M)R) i^i S) C_ S
130 sstr 2887 . . . . . . . . . . 11 |- ((((x( ball ` M)R) i^i S) C_ S /\ S C_ X) -> ((x( ball ` M)R) i^i S) C_ X)
131129, 130mpan 773 . . . . . . . . . 10 |- (S C_ X -> ((x( ball ` M)R) i^i S) C_ X)
132131biantrurd 1002 . . . . . . . . 9 |- (S C_ X -> (-. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w <-> (((x( ball ` M)R) i^i S) C_ X /\ -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w)))
1331, 2, 3, 4, 5, 6, 7heiborlem20 17059 . . . . . . . . 9 |- (((x( ball ` M)R) i^i S) e. D <-> (((x( ball ` M)R) i^i S) C_ X /\ -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
134132, 133syl6rbbr 327 . . . . . . . 8 |- (S C_ X -> (((x( ball ` M)R) i^i S) e. D <-> -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
135134rexbidv 2404 . . . . . . 7 |- (S C_ X -> (E.x e. X ((x( ball ` M)R) i^i S) e. D <-> E.x e. X -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
136135adantr 543 . . . . . 6 |- ((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> (E.x e. X ((x( ball ` M)R) i^i S) e. D <-> E.x e. X -. E.w e. (~PU i^i Fin)((x( ball ` M)R) i^i S) C_ U.w))
137128, 136sylibrd 268 . . . . 5 |- ((S C_ X /\ A.d e. RR+ E.u e. Fin (U.u = dom dom ( M |` (S X. S)) /\ A.y e. u E.t e. dom dom ( M |` (S X. S))y = (t( ball ` (M |` (S X. S)))d))) -> ((-. E.z e. (~PU i^i Fin)S C_ U.z /\ R e. RR+) -> E.x e. X ((x( ball ` M)R) i^i S) e. D))
13817, 137mpdan 769 . . . 4 |- (S C_ X -> ((-. E.z e. (~PU i^i Fin)S C_ U.z /\ R e. RR+) -> E.x e. X ((x( ball ` M)R) i^i S) e. D))
139138imp 489 . . 3 |- ((S C_ X /\ (-. E.z e. (~PU i^i Fin)S C_ U.z /\ R e. RR+)) -> E.x e. X ((x( ball ` M)R) i^i S) e. D)
140139anassrs 728 . 2 |- (((S C_ X /\ -. E.z e. (~PU i^i Fin)S C_ U.z) /\ R e. RR+) -> E.x e. X ((x( ball ` M)R) i^i S) e. D)
1418, 140sylanb 694 1 |- ((S e. D /\ R e. RR+) -> E.x e. X ((x( ball ` M)R) i^i S) e. D)
Colors of variables: wff set class
Syntax hints:  -. wn 2   -> wi 3   <-> wb 231   /\ wa 433   /\ w3a 1130   = wceq 1615   e. wcel 1617  A.wral 2385  E.wrex 2386  {crab 2388  _Vcvv 2569   i^i cin 2858   C_ wss 2859  ~Pcpw 3259  U.cuni 3398   X. cxp 4149  dom cdm 4151   |` cres 4153  ` cfv 4163  (class class class)co 5020  Fincfn 5630  RR+crp 7098  Metcme 10082   ball cbl 10084  MetOpencopn 10085  CMetcms 10215  TotBndctotbnd 17015
This theorem is referenced by:  heiborlem28 17067
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 1621  ax-gen 1622  ax-8 1623  ax-9 1624  ax-10 1625  ax-11 1626  ax-12 1627  ax-13 1628  ax-14 1629  ax-17 1634  ax-4 1637  ax-5o 1639  ax-6o 1642  ax-9o 1792  ax-10o 1810  ax-16 1883  ax-11o 1893  ax-ext 2152  ax-rep 3628  ax-sep 3638  ax-nul 3645  ax-pow 3681  ax-pr 3719  ax-un 3961  ax-cnex 6885  ax-resscn 6886  ax-1cn 6887  ax-icn 6888  ax-addcl 6889  ax-addrcl 6890  ax-mulcl 6891  ax-mulrcl 6892  ax-mulcom 6893  ax-addass 6894  ax-mulass 6895  ax-distr 6896  ax-i2m1 6897  ax-1ne0 6898  ax-1rid 6899  ax-rnegex 6900  ax-rrecex 6901  ax-cnre 6902  ax-pre-lttri 6903  ax-pre-lttrn 6904  ax-pre-ltadd 6905  ax-pre-mulgt0 6906
This theorem depends on definitions:  df-bi 232  df-or 434  df-an 435  df-3or 1131  df-3an 1132  df-ex 1645  df-sb 1845  df-eu 2070  df-mo 2071  df-clab 2158  df-cleq 2163  df-clel 2166  df-ne 2297  df-nel 2298  df-ral 2389  df-rex 2390  df-reu 2391  df-rab 2392  df-v 2571  df-sbc 2731  df-csb 2806  df-dif 2862  df-un 2864  df-in 2866  df-ss 2868  df-pss 2870  df-nul 3115  df-if 3213  df-pw 3261  df-sn 3274  df-pr 3275  df-tp 3277  df-op 3278  df-uni 3399  df-int 3433  df-iun 3470  df-br 3540  df-opab 3598  df-tr 3612  df-eprel 3776  df-id 3779  df-po 3784  df-so 3796  df-fr 3814  df-we 3830  df-ord 3846  df-on 3847  df-lim 3848  df-suc 3849  df-om 4118  df-xp 4165  df-rel 4166  df-cnv 4167  df-co 4168  df-dm 4169  df-rn 4170  df-res 4171  df-ima 4172  df-fun 4173  df-fn 4174  df-f 4175  df-f1 4176  df-fo 4177  df-f1o 4178  df-fv 4179  df-opr 5022  df-oprab 5023  df-mpt 5138  df-iota 5259  df-rdg 5344  df-1o 5384  df-oadd 5386  df-er 5519  df-en 5631  df-dom 5632  df-sdom 5633  df-fin 5634  df-undef 5769  df-riota 5773  df-pnf 6948  df-mnf 6949  df-xr 6950  df-ltxr 6951  df-le 6952  df-sub 7111  df-neg 7113  df-div 7325  df-2 7589  df-rp 7678  df-met 10086  df-bl 10088  df-cmet 10218  df-totbnd 17017
Copyright terms: Public domain