Theorem heibor 38895

Description: Generalized Heine-Borel Theorem. A metric space is compact iff it is complete and totally bounded. See heibor1 38884 and heiborlem1 38885 for a description of the proof. (Contributed by Jeff Madsen, 2-Sep-2009.) (Revised by Mario Carneiro, 28-Jan-2014.)

Hypothesis

Ref	Expression
heibor.1	⊢ 𝐽 = (MetOpen‘𝐷)

Assertion

Ref	Expression
heibor	⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐽 ∈ Comp) ↔ (𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)))

Proof of Theorem heibor

Dummy variables 𝑡 𝑛 𝑦 𝑘 𝑟 𝑢 𝑚 𝑣 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		heibor.1	. . 3 ⊢ 𝐽 = (MetOpen‘𝐷)
2	1	heibor1 38884	. 2 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐽 ∈ Comp) → (𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)))
3		cmetmet 25619	. . . 4 ⊢ (𝐷 ∈ (CMet‘𝑋) → 𝐷 ∈ (Met‘𝑋))
4	3	adantr 486	. . 3 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)) → 𝐷 ∈ (Met‘𝑋))
5		metxmet 24665	. . . . . 6 ⊢ (𝐷 ∈ (Met‘𝑋) → 𝐷 ∈ (∞Met‘𝑋))
6	1	mopntop 24771	. . . . . 6 ⊢ (𝐷 ∈ (∞Met‘𝑋) → 𝐽 ∈ Top)
7	3, 5, 6	3syl 19	. . . . 5 ⊢ (𝐷 ∈ (CMet‘𝑋) → 𝐽 ∈ Top)
8	7	adantr 486	. . . 4 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)) → 𝐽 ∈ Top)
9		istotbnd 38843	. . . . . . . . . . . . 13 ⊢ (𝐷 ∈ (TotBnd‘𝑋) ↔ (𝐷 ∈ (Met‘𝑋) ∧ ∀𝑟 ∈ ℝ+ ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟))))
10	9	simprbi 503	. . . . . . . . . . . 12 ⊢ (𝐷 ∈ (TotBnd‘𝑋) → ∀𝑟 ∈ ℝ+ ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟)))
11		2nn 12426	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℕ
12		nnexpcl 14227	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℕ ∧ 𝑛 ∈ ℕ0) → (2↑𝑛) ∈ ℕ)
13	11, 12	mpan 703	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ0 → (2↑𝑛) ∈ ℕ)
14	13	nnrpd 13172	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ0 → (2↑𝑛) ∈ ℝ+)
15	14	rpreccld 13184	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ0 → (1 / (2↑𝑛)) ∈ ℝ+)
16		oveq2 7435	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = (1 / (2↑𝑛)) → (𝑦(ball‘𝐷)𝑟) = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
17	16	eqeq2d 2774	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = (1 / (2↑𝑛)) → (𝑣 = (𝑦(ball‘𝐷)𝑟) ↔ 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
18	17	rexbidv 3189	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = (1 / (2↑𝑛)) → (∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟) ↔ ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
19	18	ralbidv 3188	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = (1 / (2↑𝑛)) → (∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟) ↔ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
20	19	anbi2d 642	. . . . . . . . . . . . . 14 ⊢ (𝑟 = (1 / (2↑𝑛)) → ((∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟)) ↔ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))))
21	20	rexbidv 3189	. . . . . . . . . . . . 13 ⊢ (𝑟 = (1 / (2↑𝑛)) → (∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟)) ↔ ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))))
22	21	rspccva 3578	. . . . . . . . . . . 12 ⊢ ((∀𝑟 ∈ ℝ+ ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)𝑟)) ∧ (1 / (2↑𝑛)) ∈ ℝ+) → ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
23	10, 15, 22	syl2an 608	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ (TotBnd‘𝑋) ∧ 𝑛 ∈ ℕ0) → ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
24	23	expcom 419	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ0 → (𝐷 ∈ (TotBnd‘𝑋) → ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))))
25	24	adantl 487	. . . . . . . . 9 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) → (𝐷 ∈ (TotBnd‘𝑋) → ∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))))
26		oveq1 7434	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = (𝑚‘𝑣) → (𝑦(ball‘𝐷)(1 / (2↑𝑛))) = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
27	26	eqeq2d 2774	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑚‘𝑣) → (𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
28	27	ac6sfi 9286	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ Fin ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑚(𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
29	28	adantrl 729	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ Fin ∧ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → ∃𝑚(𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
30	29	adantl 487	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))) → ∃𝑚(𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
31		simp3l 1220	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → 𝑚:𝑢⟶𝑋)
32	31	frnd 6726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ran 𝑚 ⊆ 𝑋)
33	1	mopnuni 24772	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐷 ∈ (∞Met‘𝑋) → 𝑋 = ∪ 𝐽)
34	3, 5, 33	3syl 19	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐷 ∈ (CMet‘𝑋) → 𝑋 = ∪ 𝐽)
35	34	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) → 𝑋 = ∪ 𝐽)
36	35	3ad2ant1 1151	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → 𝑋 = ∪ 𝐽)
37	32, 36	sseqtrd 3948	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ran 𝑚 ⊆ ∪ 𝐽)
38	1	fvexi 6907	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐽 ∈ V
39	38	uniex 7765	. . . . . . . . . . . . . . . . . 18 ⊢ ∪ 𝐽 ∈ V
40	39	elpw2 5299	. . . . . . . . . . . . . . . . 17 ⊢ (ran 𝑚 ∈ 𝒫 ∪ 𝐽 ↔ ran 𝑚 ⊆ ∪ 𝐽)
41	37, 40	sylibr 237	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ran 𝑚 ∈ 𝒫 ∪ 𝐽)
42		simp2l 1218	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → 𝑢 ∈ Fin)
43		ffn 6717	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑚:𝑢⟶𝑋 → 𝑚 Fn 𝑢)
44		dffn4 6810	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑚 Fn 𝑢 ↔ 𝑚:𝑢–onto→ran 𝑚)
45	43, 44	sylib 221	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚:𝑢⟶𝑋 → 𝑚:𝑢–onto→ran 𝑚)
46		fofi 9316	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑢 ∈ Fin ∧ 𝑚:𝑢–onto→ran 𝑚) → ran 𝑚 ∈ Fin)
47	45, 46	sylan2 605	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑢 ∈ Fin ∧ 𝑚:𝑢⟶𝑋) → ran 𝑚 ∈ Fin)
48	42, 31, 47	syl2anc 596	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ran 𝑚 ∈ Fin)
49	41, 48	elind 4099	. . . . . . . . . . . . . . 15 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ran 𝑚 ∈ (𝒫 ∪ 𝐽 ∩ Fin))
50	26	eleq2d 2849	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = (𝑚‘𝑣) → (𝑟 ∈ (𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ 𝑟 ∈ ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
51	50	rexrn 7095	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑚 Fn 𝑢 → (∃𝑦 ∈ ran 𝑚 𝑟 ∈ (𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ ∃𝑣 ∈ 𝑢 𝑟 ∈ ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
52		eliun 4957	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 ∈ ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ ∃𝑦 ∈ ran 𝑚 𝑟 ∈ (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
53		eliun 4957	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 ∈ ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))) ↔ ∃𝑣 ∈ 𝑢 𝑟 ∈ ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
54	51, 52, 53	3bitr4g 317	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 Fn 𝑢 → (𝑟 ∈ ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ 𝑟 ∈ ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))))
55	54	eqrdv 2761	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 Fn 𝑢 → ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))) = ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
56	31, 43, 55	3syl 19	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))) = ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
57		simp3r 1221	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
58		uniiun 5019	. . . . . . . . . . . . . . . . . 18 ⊢ ∪ 𝑢 = ∪ 𝑣 ∈ 𝑢 𝑣
59		iuneq2 4973	. . . . . . . . . . . . . . . . . 18 ⊢ (∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))) → ∪ 𝑣 ∈ 𝑢 𝑣 = ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
60	58, 59	eqtrid 2810	. . . . . . . . . . . . . . . . 17 ⊢ (∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))) → ∪ 𝑢 = ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
61	57, 60	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ∪ 𝑢 = ∪ 𝑣 ∈ 𝑢 ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))
62		simp2r 1219	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ∪ 𝑢 = 𝑋)
63	56, 61, 62	3eqtr2rd 2805	. . . . . . . . . . . . . . 15 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → 𝑋 = ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))))
64		iuneq1 4970	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = ran 𝑚 → ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))) = ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛))))
65	64	rspceeqv 3601	. . . . . . . . . . . . . . 15 ⊢ ((ran 𝑚 ∈ (𝒫 ∪ 𝐽 ∩ Fin) ∧ 𝑋 = ∪ 𝑦 ∈ ran 𝑚(𝑦(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
66	49, 63, 65	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋) ∧ (𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛))))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
67	66	3expia 1139	. . . . . . . . . . . . 13 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ ∪ 𝑢 = 𝑋)) → ((𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
68	67	adantrrr 738	. . . . . . . . . . . 12 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))) → ((𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
69	68	exlimdv 1967	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))) → (∃𝑚(𝑚:𝑢⟶𝑋 ∧ ∀𝑣 ∈ 𝑢 𝑣 = ((𝑚‘𝑣)(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
70	30, 69	mpd 16	. . . . . . . . . 10 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) ∧ (𝑢 ∈ Fin ∧ (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
71	70	rexlimdvaa 3167	. . . . . . . . 9 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) → (∃𝑢 ∈ Fin (∪ 𝑢 = 𝑋 ∧ ∀𝑣 ∈ 𝑢 ∃𝑦 ∈ 𝑋 𝑣 = (𝑦(ball‘𝐷)(1 / (2↑𝑛)))) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
72	25, 71	syld 48	. . . . . . . 8 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑛 ∈ ℕ0) → (𝐷 ∈ (TotBnd‘𝑋) → ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
73	72	ralrimdva 3165	. . . . . . 7 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝐷 ∈ (TotBnd‘𝑋) → ∀𝑛 ∈ ℕ0 ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
74	39	pwex 5345	. . . . . . . . 9 ⊢ 𝒫 ∪ 𝐽 ∈ V
75	74	inex1 5280	. . . . . . . 8 ⊢ (𝒫 ∪ 𝐽 ∩ Fin) ∈ V
76		nn0ennn 14132	. . . . . . . . 9 ⊢ ℕ0 ≈ ℕ
77		nnenom 14133	. . . . . . . . 9 ⊢ ℕ ≈ ω
78	76, 77	entri 9046	. . . . . . . 8 ⊢ ℕ0 ≈ ω
79		iuneq1 4970	. . . . . . . . 9 ⊢ (𝑡 = (𝑚‘𝑛) → ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))) = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))
80	79	eqeq2d 2774	. . . . . . . 8 ⊢ (𝑡 = (𝑚‘𝑛) → (𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))) ↔ 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
81	75, 78, 80	axcc4 10527	. . . . . . 7 ⊢ (∀𝑛 ∈ ℕ0 ∃𝑡 ∈ (𝒫 ∪ 𝐽 ∩ Fin)𝑋 = ∪ 𝑦 ∈ 𝑡 (𝑦(ball‘𝐷)(1 / (2↑𝑛))) → ∃𝑚(𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
82	73, 81	syl6 36	. . . . . 6 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝐷 ∈ (TotBnd‘𝑋) → ∃𝑚(𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))))
83		elpwi 4566	. . . . . . . . . 10 ⊢ (𝑟 ∈ 𝒫 𝐽 → 𝑟 ⊆ 𝐽)
84		eqid 2763	. . . . . . . . . . . 12 ⊢ {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)𝑢 ⊆ ∪ 𝑣} = {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)𝑢 ⊆ ∪ 𝑣}
85		eqid 2763	. . . . . . . . . . . 12 ⊢ {⟨𝑡, 𝑘⟩ ∣ (𝑘 ∈ ℕ0 ∧ 𝑡 ∈ (𝑚‘𝑘) ∧ (𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘) ∈ {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)𝑢 ⊆ ∪ 𝑣})} = {⟨𝑡, 𝑘⟩ ∣ (𝑘 ∈ ℕ0 ∧ 𝑡 ∈ (𝑚‘𝑘) ∧ (𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘) ∈ {𝑢 ∣ ¬ ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)𝑢 ⊆ ∪ 𝑣})}
86		eqid 2763	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚)))) = (𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))
87		simpl 488	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → 𝐷 ∈ (CMet‘𝑋))
88	34	pweqd 4576	. . . . . . . . . . . . . . . 16 ⊢ (𝐷 ∈ (CMet‘𝑋) → 𝒫 𝑋 = 𝒫 ∪ 𝐽)
89	88	ineq1d 4118	. . . . . . . . . . . . . . 15 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝒫 𝑋 ∩ Fin) = (𝒫 ∪ 𝐽 ∩ Fin))
90	89	feq3d 6702	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝑚:ℕ0⟶(𝒫 𝑋 ∩ Fin) ↔ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)))
91	90	biimpar 483	. . . . . . . . . . . . 13 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) → 𝑚:ℕ0⟶(𝒫 𝑋 ∩ Fin))
92	91	adantrr 730	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → 𝑚:ℕ0⟶(𝒫 𝑋 ∩ Fin))
93		oveq1 7434	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑦 → (𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = (𝑦(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛))
94	93	cbviunv 4999	. . . . . . . . . . . . . . . . . 18 ⊢ ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛)
95		id 23	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) → 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin))
96		inss1 4135	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝒫 ∪ 𝐽 ∩ Fin) ⊆ 𝒫 ∪ 𝐽
97	96, 88	sseqtrrid 3955	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝒫 ∪ 𝐽 ∩ Fin) ⊆ 𝒫 𝑋)
98		fss 6734	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ (𝒫 ∪ 𝐽 ∩ Fin) ⊆ 𝒫 𝑋) → 𝑚:ℕ0⟶𝒫 𝑋)
99	95, 97, 98	syl2anr 609	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) → 𝑚:ℕ0⟶𝒫 𝑋)
100	99	ffvelcdmda 7092	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → (𝑚‘𝑛) ∈ 𝒫 𝑋)
101	100	elpwid 4568	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → (𝑚‘𝑛) ⊆ 𝑋)
102	101	sselda 3912	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑦 ∈ (𝑚‘𝑛)) → 𝑦 ∈ 𝑋)
103		simplr 781	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑦 ∈ (𝑚‘𝑛)) → 𝑛 ∈ ℕ0)
104		oveq1 7434	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑧 = 𝑦 → (𝑧(ball‘𝐷)(1 / (2↑𝑚))) = (𝑦(ball‘𝐷)(1 / (2↑𝑚))))
105		oveq2 7435	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = 𝑛 → (2↑𝑚) = (2↑𝑛))
106	105	oveq2d 7443	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 = 𝑛 → (1 / (2↑𝑚)) = (1 / (2↑𝑛)))
107	106	oveq2d 7443	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 = 𝑛 → (𝑦(ball‘𝐷)(1 / (2↑𝑚))) = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
108		ovex 7460	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦(ball‘𝐷)(1 / (2↑𝑛))) ∈ V
109	104, 107, 86, 108	ovmpo 7587	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 ∈ 𝑋 ∧ 𝑛 ∈ ℕ0) → (𝑦(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
110	102, 103, 109	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) ∧ 𝑦 ∈ (𝑚‘𝑛)) → (𝑦(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = (𝑦(ball‘𝐷)(1 / (2↑𝑛))))
111	110	iuneq2dv 4978	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))
112	94, 111	eqtrid 2810	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))
113	112	eqeq2d 2774	. . . . . . . . . . . . . . . 16 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → (𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) ↔ 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛)))))
114	113	biimprd 251	. . . . . . . . . . . . . . 15 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) ∧ 𝑛 ∈ ℕ0) → (𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))) → 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛)))
115	114	ralimdva 3177	. . . . . . . . . . . . . 14 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin)) → (∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))) → ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛)))
116	115	impr 460	. . . . . . . . . . . . 13 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛))
117		fveq2 6893	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = 𝑘 → (𝑚‘𝑛) = (𝑚‘𝑘))
118	117	iuneq1d 4981	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑘 → ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛))
119		simpl 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 = 𝑘 ∧ 𝑡 ∈ (𝑚‘𝑘)) → 𝑛 = 𝑘)
120	119	oveq2d 7443	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑛 = 𝑘 ∧ 𝑡 ∈ (𝑚‘𝑘)) → (𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = (𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘))
121	120	iuneq2dv 4978	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑘 → ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘))
122	118, 121	eqtrd 2798	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑘 → ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘))
123	122	eqeq2d 2774	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑘 → (𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) ↔ 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘)))
124	123	cbvralvw 3243	. . . . . . . . . . . . 13 ⊢ (∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑛)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑛) ↔ ∀𝑘 ∈ ℕ0 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘))
125	116, 124	sylib 221	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → ∀𝑘 ∈ ℕ0 𝑋 = ∪ 𝑡 ∈ (𝑚‘𝑘)(𝑡(𝑧 ∈ 𝑋, 𝑚 ∈ ℕ0 ↦ (𝑧(ball‘𝐷)(1 / (2↑𝑚))))𝑘))
126	1, 84, 85, 86, 87, 92, 125	heiborlem10 38894	. . . . . . . . . . 11 ⊢ (((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) ∧ (𝑟 ⊆ 𝐽 ∧ ∪ 𝐽 = ∪ 𝑟)) → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)
127	126	exp32 426	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → (𝑟 ⊆ 𝐽 → (∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
128	83, 127	syl5 35	. . . . . . . . 9 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → (𝑟 ∈ 𝒫 𝐽 → (∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
129	128	ralrimiv 3156	. . . . . . . 8 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ (𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛))))) → ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣))
130	129	ex 418	. . . . . . 7 ⊢ (𝐷 ∈ (CMet‘𝑋) → ((𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛)))) → ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
131	130	exlimdv 1967	. . . . . 6 ⊢ (𝐷 ∈ (CMet‘𝑋) → (∃𝑚(𝑚:ℕ0⟶(𝒫 ∪ 𝐽 ∩ Fin) ∧ ∀𝑛 ∈ ℕ0 𝑋 = ∪ 𝑦 ∈ (𝑚‘𝑛)(𝑦(ball‘𝐷)(1 / (2↑𝑛)))) → ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
132	82, 131	syld 48	. . . . 5 ⊢ (𝐷 ∈ (CMet‘𝑋) → (𝐷 ∈ (TotBnd‘𝑋) → ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
133	132	imp 412	. . . 4 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)) → ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣))
134		eqid 2763	. . . . 5 ⊢ ∪ 𝐽 = ∪ 𝐽
135	134	iscmp 23718	. . . 4 ⊢ (𝐽 ∈ Comp ↔ (𝐽 ∈ Top ∧ ∀𝑟 ∈ 𝒫 𝐽(∪ 𝐽 = ∪ 𝑟 → ∃𝑣 ∈ (𝒫 𝑟 ∩ Fin)∪ 𝐽 = ∪ 𝑣)))
136	8, 133, 135	sylanbrc 595	. . 3 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)) → 𝐽 ∈ Comp)
137	4, 136	jca 521	. 2 ⊢ ((𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)) → (𝐷 ∈ (Met‘𝑋) ∧ 𝐽 ∈ Comp))
138	2, 137	impbii 212	1 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐽 ∈ Comp) ↔ (𝐷 ∈ (CMet‘𝑋) ∧ 𝐷 ∈ (TotBnd‘𝑋)))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569  ∃wex 1811   ∈ wcel 2146  {cab 2741  ∀wral 3079  ∃wrex 3089   ⊆ wss 3899   ∩ cin 4091  𝒫 cpw 4559  ∪ cuni 4869  ∪ ciun 4953  {copab 5169  ran crn 5655   Fn wfn 6541  ⟶wf 6542  –onto→wfo 6544  ‘cfv 6546  (class class class)co 7427   ∈ cmpo 7429  ωcom 7884  Fincfn 8984  1c1 11211   / cdiv 11983  ℕcn 12345  2c2 12407  ℕ₀cn0 12616  ℝ⁺crp 13130  ↑cexp 14214  ∞Metcxmet 21675  Metcmet 21676  ballcbl 21677  MetOpencmopn 21680  Topctop 23223  Compccmp 23716  CMetccmet 25587  TotBndctotbnd 38840

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5234  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394  ax-un 7758  ax-inf2 9652  ax-cc 10523  ax-cnex 11266  ax-resscn 11267  ax-1cn 11268  ax-icn 11269  ax-addcl 11270  ax-addrcl 11271  ax-mulcl 11272  ax-mulrcl 11273  ax-mulcom 11274  ax-addass 11275  ax-mulass 11276  ax-distr 11277  ax-i2m1 11278  ax-1ne0 11279  ax-1rid 11280  ax-rnegex 11281  ax-rrecex 11282  ax-cnre 11283  ax-pre-lttri 11284  ax-pre-lttrn 11285  ax-pre-ltadd 11286  ax-pre-mulgt0 11287  ax-pre-sup 11288

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3455  df-sbc 3742  df-csb 3851  df-ss 3900  df-pss 4016  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-int 4910  df-iun 4955  df-iin 4956  df-br 5106  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5549  df-eprel 5554  df-po 5562  df-so 5563  df-fr 5607  df-se 5608  df-we 5609  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6310  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6500  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7384  df-ov 7430  df-oprab 7431  df-mpo 7432  df-om 7885  df-1st 8008  df-2nd 8009  df-frecs 8310  df-wrecs 8341  df-recs 8390  df-rdg 8429  df-1o 8487  df-2o 8488  df-oadd 8491  df-omul 8492  df-er 8728  df-map 8860  df-pm 8861  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-fi 9413  df-sup 9444  df-inf 9445  df-oi 9514  df-card 10030  df-acn 10033  df-pnf 11355  df-mnf 11356  df-xr 11357  df-ltxr 11358  df-le 11359  df-sub 11553  df-neg 11554  df-div 11984  df-nn 12346  df-2 12415  df-3 12416  df-n0 12617  df-z 12704  df-uz 12976  df-q 13086  df-rp 13131  df-xneg 13251  df-xadd 13252  df-xmul 13253  df-ico 13492  df-icc 13493  df-fz 13650  df-fl 13942  df-seq 14155  df-exp 14215  df-cj 15278  df-re 15279  df-im 15280  df-sqrt 15414  df-abs 15415  df-clim 15667  df-rlim 15668  df-rest 17605  df-topgen 17626  df-psmet 21682  df-xmet 21683  df-met 21684  df-bl 21685  df-mopn 21686  df-fbas 21687  df-fg 21688  df-top 23224  df-topon 23241  df-bases 23276  df-cld 23349  df-ntr 23350  df-cls 23351  df-nei 23428  df-lm 23559  df-haus 23645  df-cmp 23717  df-fil 24177  df-fm 24269  df-flim 24270  df-flf 24271  df-cfil 25588  df-cau 25589  df-cmet 25590  df-totbnd 38842

This theorem is used by:  rrnheibor  38911