Metamath Proof Explorer


Theorem uniioombllem3a

Description: Lemma for uniioombl . (Contributed by Mario Carneiro, 8-May-2015)

Ref Expression
Hypotheses uniioombl.1 ⊢ φ → F : ℕ ⟶ ≤ ∩ ℝ 2
uniioombl.2 ⊢ φ → Disj x ∈ ℕ . ⁡ F ⁡ x
uniioombl.3 ⊢ S = seq 1 + abs ∘ − ∘ F
uniioombl.a ⊢ A = ⋃ ran ⁡ . ∘ F
uniioombl.e ⊢ φ → vol * ⁡ E ∈ ℝ
uniioombl.c ⊢ φ → C ∈ ℝ +
uniioombl.g ⊢ φ → G : ℕ ⟶ ≤ ∩ ℝ 2
uniioombl.s ⊢ φ → E ⊆ ⋃ ran ⁡ . ∘ G
uniioombl.t ⊢ T = seq 1 + abs ∘ − ∘ G
uniioombl.v ⊢ φ → sup ran ⁡ T ℝ * < ≤ vol * ⁡ E + C
uniioombl.m ⊢ φ → M ∈ ℕ
uniioombl.m2 ⊢ φ → T ⁡ M − sup ran ⁡ T ℝ * < < C
uniioombl.k ⊢ K = ⋃ . ∘ G 1 … M
Assertion uniioombllem3a ⊢ φ → K = ⋃ j = 1 M . ⁡ G ⁡ j ∧ vol * ⁡ K ∈ ℝ

Proof

Step Hyp Ref Expression
1 uniioombl.1 ⊢ φ → F : ℕ ⟶ ≤ ∩ ℝ 2
2 uniioombl.2 ⊢ φ → Disj x ∈ ℕ . ⁡ F ⁡ x
3 uniioombl.3 ⊢ S = seq 1 + abs ∘ − ∘ F
4 uniioombl.a ⊢ A = ⋃ ran ⁡ . ∘ F
5 uniioombl.e ⊢ φ → vol * ⁡ E ∈ ℝ
6 uniioombl.c ⊢ φ → C ∈ ℝ +
7 uniioombl.g ⊢ φ → G : ℕ ⟶ ≤ ∩ ℝ 2
8 uniioombl.s ⊢ φ → E ⊆ ⋃ ran ⁡ . ∘ G
9 uniioombl.t ⊢ T = seq 1 + abs ∘ − ∘ G
10 uniioombl.v ⊢ φ → sup ran ⁡ T ℝ * < ≤ vol * ⁡ E + C
11 uniioombl.m ⊢ φ → M ∈ ℕ
12 uniioombl.m2 ⊢ φ → T ⁡ M − sup ran ⁡ T ℝ * < < C
13 uniioombl.k ⊢ K = ⋃ . ∘ G 1 … M
14 ioof ⊢ . : ℝ * × ℝ * ⟶ 𝒫 ℝ
15 inss2 ⊢ ≤ ∩ ℝ 2 ⊆ ℝ 2
16 rexpssxrxp ⊢ ℝ 2 ⊆ ℝ * × ℝ *
17 15 16 sstri ⊢ ≤ ∩ ℝ 2 ⊆ ℝ * × ℝ *
18 fss ⊢ G : ℕ ⟶ ≤ ∩ ℝ 2 ∧ ≤ ∩ ℝ 2 ⊆ ℝ * × ℝ * → G : ℕ ⟶ ℝ * × ℝ *
19 7 17 18 sylancl ⊢ φ → G : ℕ ⟶ ℝ * × ℝ *
20 fco ⊢ . : ℝ * × ℝ * ⟶ 𝒫 ℝ ∧ G : ℕ ⟶ ℝ * × ℝ * → . ∘ G : ℕ ⟶ 𝒫 ℝ
21 14 19 20 sylancr ⊢ φ → . ∘ G : ℕ ⟶ 𝒫 ℝ
22 ffun ⊢ . ∘ G : ℕ ⟶ 𝒫 ℝ → Fun ⁡ . ∘ G
23 funiunfv ⊢ Fun ⁡ . ∘ G → ⋃ j = 1 M . ∘ G ⁡ j = ⋃ . ∘ G 1 … M
24 21 22 23 3syl ⊢ φ → ⋃ j = 1 M . ∘ G ⁡ j = ⋃ . ∘ G 1 … M
25 elfznn ⊢ j ∈ 1 … M → j ∈ ℕ
26 fvco3 ⊢ G : ℕ ⟶ ≤ ∩ ℝ 2 ∧ j ∈ ℕ → . ∘ G ⁡ j = . ⁡ G ⁡ j
27 7 25 26 syl2an ⊢ φ ∧ j ∈ 1 … M → . ∘ G ⁡ j = . ⁡ G ⁡ j
28 27 iuneq2dv ⊢ φ → ⋃ j = 1 M . ∘ G ⁡ j = ⋃ j = 1 M . ⁡ G ⁡ j
29 24 28 eqtr3d ⊢ φ → ⋃ . ∘ G 1 … M = ⋃ j = 1 M . ⁡ G ⁡ j
30 13 29 eqtrid ⊢ φ → K = ⋃ j = 1 M . ⁡ G ⁡ j
31 ffvelcdm ⊢ G : ℕ ⟶ ≤ ∩ ℝ 2 ∧ j ∈ ℕ → G ⁡ j ∈ ≤ ∩ ℝ 2
32 7 25 31 syl2an ⊢ φ ∧ j ∈ 1 … M → G ⁡ j ∈ ≤ ∩ ℝ 2
33 32 elin2d ⊢ φ ∧ j ∈ 1 … M → G ⁡ j ∈ ℝ 2
34 1st2nd2 ⊢ G ⁡ j ∈ ℝ 2 → G ⁡ j = 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
35 33 34 syl ⊢ φ ∧ j ∈ 1 … M → G ⁡ j = 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
36 35 fveq2d ⊢ φ ∧ j ∈ 1 … M → . ⁡ G ⁡ j = . ⁡ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
37 df-ov ⊢ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j = . ⁡ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
38 36 37 eqtr4di ⊢ φ ∧ j ∈ 1 … M → . ⁡ G ⁡ j = 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
39 ioossre ⊢ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j ⊆ ℝ
40 38 39 eqsstrdi ⊢ φ ∧ j ∈ 1 … M → . ⁡ G ⁡ j ⊆ ℝ
41 40 ralrimiva ⊢ φ → ∀ j ∈ 1 … M . ⁡ G ⁡ j ⊆ ℝ
42 iunss ⊢ ⋃ j = 1 M . ⁡ G ⁡ j ⊆ ℝ ↔ ∀ j ∈ 1 … M . ⁡ G ⁡ j ⊆ ℝ
43 41 42 sylibr ⊢ φ → ⋃ j = 1 M . ⁡ G ⁡ j ⊆ ℝ
44 30 43 eqsstrd ⊢ φ → K ⊆ ℝ
45 fzfid ⊢ φ → 1 … M ∈ Fin
46 38 fveq2d ⊢ φ ∧ j ∈ 1 … M → vol * ⁡ . ⁡ G ⁡ j = vol * ⁡ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j
47 ovolfcl ⊢ G : ℕ ⟶ ≤ ∩ ℝ 2 ∧ j ∈ ℕ → 1 st ⁡ G ⁡ j ∈ ℝ ∧ 2 nd ⁡ G ⁡ j ∈ ℝ ∧ 1 st ⁡ G ⁡ j ≤ 2 nd ⁡ G ⁡ j
48 7 25 47 syl2an ⊢ φ ∧ j ∈ 1 … M → 1 st ⁡ G ⁡ j ∈ ℝ ∧ 2 nd ⁡ G ⁡ j ∈ ℝ ∧ 1 st ⁡ G ⁡ j ≤ 2 nd ⁡ G ⁡ j
49 ovolioo ⊢ 1 st ⁡ G ⁡ j ∈ ℝ ∧ 2 nd ⁡ G ⁡ j ∈ ℝ ∧ 1 st ⁡ G ⁡ j ≤ 2 nd ⁡ G ⁡ j → vol * ⁡ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j = 2 nd ⁡ G ⁡ j − 1 st ⁡ G ⁡ j
50 48 49 syl ⊢ φ ∧ j ∈ 1 … M → vol * ⁡ 1 st ⁡ G ⁡ j 2 nd ⁡ G ⁡ j = 2 nd ⁡ G ⁡ j − 1 st ⁡ G ⁡ j
51 46 50 eqtrd ⊢ φ ∧ j ∈ 1 … M → vol * ⁡ . ⁡ G ⁡ j = 2 nd ⁡ G ⁡ j − 1 st ⁡ G ⁡ j
52 48 simp2d ⊢ φ ∧ j ∈ 1 … M → 2 nd ⁡ G ⁡ j ∈ ℝ
53 48 simp1d ⊢ φ ∧ j ∈ 1 … M → 1 st ⁡ G ⁡ j ∈ ℝ
54 52 53 resubcld ⊢ φ ∧ j ∈ 1 … M → 2 nd ⁡ G ⁡ j − 1 st ⁡ G ⁡ j ∈ ℝ
55 51 54 eqeltrd ⊢ φ ∧ j ∈ 1 … M → vol * ⁡ . ⁡ G ⁡ j ∈ ℝ
56 45 55 fsumrecl ⊢ φ → ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j ∈ ℝ
57 30 fveq2d ⊢ φ → vol * ⁡ K = vol * ⁡ ⋃ j = 1 M . ⁡ G ⁡ j
58 40 55 jca ⊢ φ ∧ j ∈ 1 … M → . ⁡ G ⁡ j ⊆ ℝ ∧ vol * ⁡ . ⁡ G ⁡ j ∈ ℝ
59 58 ralrimiva ⊢ φ → ∀ j ∈ 1 … M . ⁡ G ⁡ j ⊆ ℝ ∧ vol * ⁡ . ⁡ G ⁡ j ∈ ℝ
60 ovolfiniun ⊢ 1 … M ∈ Fin ∧ ∀ j ∈ 1 … M . ⁡ G ⁡ j ⊆ ℝ ∧ vol * ⁡ . ⁡ G ⁡ j ∈ ℝ → vol * ⁡ ⋃ j = 1 M . ⁡ G ⁡ j ≤ ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j
61 45 59 60 syl2anc ⊢ φ → vol * ⁡ ⋃ j = 1 M . ⁡ G ⁡ j ≤ ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j
62 57 61 eqbrtrd ⊢ φ → vol * ⁡ K ≤ ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j
63 ovollecl ⊢ K ⊆ ℝ ∧ ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j ∈ ℝ ∧ vol * ⁡ K ≤ ∑ j = 1 M vol * ⁡ . ⁡ G ⁡ j → vol * ⁡ K ∈ ℝ
64 44 56 62 63 syl3anc ⊢ φ → vol * ⁡ K ∈ ℝ
65 30 64 jca ⊢ φ → K = ⋃ j = 1 M . ⁡ G ⁡ j ∧ vol * ⁡ K ∈ ℝ