Step | Hyp | Ref
| Expression |
1 | | itgeqa.3 |
. . . . 5
⊢ (𝜑 → 𝐴 ⊆ ℝ) |
2 | | itgeqa.4 |
. . . . 5
⊢ (𝜑 → (vol*‘𝐴) = 0) |
3 | | itgeqa.5 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐵 ∖ 𝐴)) → 𝐶 = 𝐷) |
4 | | itgeqa.1 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐶 ∈ ℂ) |
5 | | itgeqa.2 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐷 ∈ ℂ) |
6 | 1, 2, 3, 4, 5 | mbfeqa 23410 |
. . . 4
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ↔ (𝑥 ∈ 𝐵 ↦ 𝐷) ∈ MblFn)) |
7 | | ifan 4134 |
. . . . . . . . . 10
⊢ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) |
8 | 4 | adantlr 751 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → 𝐶 ∈ ℂ) |
9 | | elfzelz 12342 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑘 ∈ (0...3) → 𝑘 ∈
ℤ) |
10 | 9 | ad2antlr 763 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → 𝑘 ∈ ℤ) |
11 | | ax-icn 9995 |
. . . . . . . . . . . . . . . . . 18
⊢ i ∈
ℂ |
12 | | ine0 10465 |
. . . . . . . . . . . . . . . . . 18
⊢ i ≠
0 |
13 | | expclz 12885 |
. . . . . . . . . . . . . . . . . 18
⊢ ((i
∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈
ℂ) |
14 | 11, 12, 13 | mp3an12 1414 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑘 ∈ ℤ →
(i↑𝑘) ∈
ℂ) |
15 | 10, 14 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (i↑𝑘) ∈ ℂ) |
16 | | expne0i 12892 |
. . . . . . . . . . . . . . . . . 18
⊢ ((i
∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0) |
17 | 11, 12, 16 | mp3an12 1414 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑘 ∈ ℤ →
(i↑𝑘) ≠
0) |
18 | 10, 17 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (i↑𝑘) ≠ 0) |
19 | 8, 15, 18 | divcld 10801 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (𝐶 / (i↑𝑘)) ∈ ℂ) |
20 | 19 | recld 13934 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ) |
21 | | 0re 10040 |
. . . . . . . . . . . . . 14
⊢ 0 ∈
ℝ |
22 | | ifcl 4130 |
. . . . . . . . . . . . . 14
⊢
(((ℜ‘(𝐶 /
(i↑𝑘))) ∈ ℝ
∧ 0 ∈ ℝ) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ ℝ) |
23 | 20, 21, 22 | sylancl 694 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ ℝ) |
24 | 23 | rexrd 10089 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈
ℝ*) |
25 | | max1 12016 |
. . . . . . . . . . . . 13
⊢ ((0
∈ ℝ ∧ (ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ) → 0 ≤ if(0 ≤
(ℜ‘(𝐶 /
(i↑𝑘))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0)) |
26 | 21, 20, 25 | sylancr 695 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → 0 ≤ if(0 ≤
(ℜ‘(𝐶 /
(i↑𝑘))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0)) |
27 | | elxrge0 12281 |
. . . . . . . . . . . 12
⊢ (if(0
≤ (ℜ‘(𝐶 /
(i↑𝑘))),
(ℜ‘(𝐶 /
(i↑𝑘))), 0) ∈
(0[,]+∞) ↔ (if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ ℝ* ∧ 0
≤ if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) |
28 | 24, 26, 27 | sylanbrc 698 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
29 | | 0e0iccpnf 12283 |
. . . . . . . . . . . 12
⊢ 0 ∈
(0[,]+∞) |
30 | 29 | a1i 11 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ ¬ 𝑥 ∈ 𝐵) → 0 ∈
(0[,]+∞)) |
31 | 28, 30 | ifclda 4120 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) ∈
(0[,]+∞)) |
32 | 7, 31 | syl5eqel 2705 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
33 | 32 | adantr 481 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
34 | | eqid 2622 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0)) |
35 | 33, 34 | fmptd 6385 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))),
0)):ℝ⟶(0[,]+∞)) |
36 | | ifan 4134 |
. . . . . . . . . 10
⊢ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0) = if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0), 0) |
37 | 5 | adantlr 751 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → 𝐷 ∈ ℂ) |
38 | 37, 15, 18 | divcld 10801 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (𝐷 / (i↑𝑘)) ∈ ℂ) |
39 | 38 | recld 13934 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐷 / (i↑𝑘))) ∈ ℝ) |
40 | | ifcl 4130 |
. . . . . . . . . . . . . 14
⊢
(((ℜ‘(𝐷 /
(i↑𝑘))) ∈ ℝ
∧ 0 ∈ ℝ) → if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈ ℝ) |
41 | 39, 21, 40 | sylancl 694 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈ ℝ) |
42 | 41 | rexrd 10089 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈
ℝ*) |
43 | | max1 12016 |
. . . . . . . . . . . . 13
⊢ ((0
∈ ℝ ∧ (ℜ‘(𝐷 / (i↑𝑘))) ∈ ℝ) → 0 ≤ if(0 ≤
(ℜ‘(𝐷 /
(i↑𝑘))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0)) |
44 | 21, 39, 43 | sylancr 695 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → 0 ≤ if(0 ≤
(ℜ‘(𝐷 /
(i↑𝑘))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0)) |
45 | | elxrge0 12281 |
. . . . . . . . . . . 12
⊢ (if(0
≤ (ℜ‘(𝐷 /
(i↑𝑘))),
(ℜ‘(𝐷 /
(i↑𝑘))), 0) ∈
(0[,]+∞) ↔ (if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈ ℝ* ∧ 0
≤ if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) |
46 | 42, 44, 45 | sylanbrc 698 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝐵) → if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
47 | 46, 30 | ifclda 4120 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐷 / (i↑𝑘))), (ℜ‘(𝐷 / (i↑𝑘))), 0), 0) ∈
(0[,]+∞)) |
48 | 36, 47 | syl5eqel 2705 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
49 | 48 | adantr 481 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈
(0[,]+∞)) |
50 | | eqid 2622 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0)) |
51 | 49, 50 | fmptd 6385 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))),
0)):ℝ⟶(0[,]+∞)) |
52 | 1 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → 𝐴 ⊆ ℝ) |
53 | 2 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (vol*‘𝐴) = 0) |
54 | | simpll 790 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → 𝜑) |
55 | | simpr 477 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → 𝑥 ∈ 𝐵) |
56 | | eldifn 3733 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑥 ∈ (ℝ ∖ 𝐴) → ¬ 𝑥 ∈ 𝐴) |
57 | 56 | ad2antlr 763 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → ¬ 𝑥 ∈ 𝐴) |
58 | 55, 57 | eldifd 3585 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → 𝑥 ∈ (𝐵 ∖ 𝐴)) |
59 | 54, 58, 3 | syl2anc 693 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → 𝐶 = 𝐷) |
60 | 59 | oveq1d 6665 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → (𝐶 / (i↑𝑘)) = (𝐷 / (i↑𝑘))) |
61 | 60 | fveq2d 6195 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐷 / (i↑𝑘)))) |
62 | 61 | ibllem 23531 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) → if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0)) |
63 | | eldifi 3732 |
. . . . . . . . . . . . . 14
⊢ (𝑥 ∈ (ℝ ∖ 𝐴) → 𝑥 ∈ ℝ) |
64 | 63 | adantl 482 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) → 𝑥 ∈ ℝ) |
65 | | fvex 6201 |
. . . . . . . . . . . . . 14
⊢
(ℜ‘(𝐶 /
(i↑𝑘))) ∈
V |
66 | | c0ex 10034 |
. . . . . . . . . . . . . 14
⊢ 0 ∈
V |
67 | 65, 66 | ifex 4156 |
. . . . . . . . . . . . 13
⊢ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ V |
68 | 34 | fvmpt2 6291 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ ∧ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ V) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) |
69 | 64, 67, 68 | sylancl 694 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) |
70 | | fvex 6201 |
. . . . . . . . . . . . . 14
⊢
(ℜ‘(𝐷 /
(i↑𝑘))) ∈
V |
71 | 70, 66 | ifex 4156 |
. . . . . . . . . . . . 13
⊢ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈ V |
72 | 50 | fvmpt2 6291 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ ∧ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0) ∈ V) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0)) |
73 | 64, 71, 72 | sylancl 694 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0)) |
74 | 62, 69, 73 | 3eqtr4d 2666 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑥 ∈ (ℝ ∖ 𝐴)) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥)) |
75 | 74 | ralrimiva 2966 |
. . . . . . . . . 10
⊢ (𝜑 → ∀𝑥 ∈ (ℝ ∖ 𝐴)((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥)) |
76 | | nfv 1843 |
. . . . . . . . . . 11
⊢
Ⅎ𝑦((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0))‘𝑥) = ((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0))‘𝑥) |
77 | | nffvmpt1 6199 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑥((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦) |
78 | | nffvmpt1 6199 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑥((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦) |
79 | 77, 78 | nfeq 2776 |
. . . . . . . . . . 11
⊢
Ⅎ𝑥((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0))‘𝑦) = ((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0))‘𝑦) |
80 | | fveq2 6191 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑦 → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦)) |
81 | | fveq2 6191 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑦 → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦)) |
82 | 80, 81 | eqeq12d 2637 |
. . . . . . . . . . 11
⊢ (𝑥 = 𝑦 → (((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑥) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑥) ↔ ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦))) |
83 | 76, 79, 82 | cbvral 3167 |
. . . . . . . . . 10
⊢
(∀𝑥 ∈
(ℝ ∖ 𝐴)((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0))‘𝑥) = ((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0))‘𝑥) ↔
∀𝑦 ∈ (ℝ
∖ 𝐴)((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0))‘𝑦) = ((𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0))‘𝑦)) |
84 | 75, 83 | sylib 208 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑦 ∈ (ℝ ∖ 𝐴)((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦)) |
85 | 84 | r19.21bi 2932 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ (ℝ ∖ 𝐴)) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦)) |
86 | 85 | adantlr 751 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑦 ∈ (ℝ ∖ 𝐴)) → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))‘𝑦) = ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))‘𝑦)) |
87 | 35, 51, 52, 53, 86 | itg2eqa 23512 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) →
(∫2‘(𝑥
∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) = (∫2‘(𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0)))) |
88 | 87 | eleq1d 2686 |
. . . . 5
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) →
((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ ↔
(∫2‘(𝑥
∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) ∈ ℝ)) |
89 | 88 | ralbidva 2985 |
. . . 4
⊢ (𝜑 → (∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ ↔ ∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) ∈ ℝ)) |
90 | 6, 89 | anbi12d 747 |
. . 3
⊢ (𝜑 → (((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ) ↔ ((𝑥 ∈ 𝐵 ↦ 𝐷) ∈ MblFn ∧ ∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) ∈ ℝ))) |
91 | | eqidd 2623 |
. . . 4
⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) |
92 | | eqidd 2623 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘)))) |
93 | 91, 92, 4 | isibl2 23533 |
. . 3
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿1 ↔
((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ))) |
94 | | eqidd 2623 |
. . . 4
⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) |
95 | | eqidd 2623 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐷 / (i↑𝑘))) = (ℜ‘(𝐷 / (i↑𝑘)))) |
96 | 94, 95, 5 | isibl2 23533 |
. . 3
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐷) ∈ 𝐿1 ↔
((𝑥 ∈ 𝐵 ↦ 𝐷) ∈ MblFn ∧ ∀𝑘 ∈
(0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))) ∈ ℝ))) |
97 | 90, 93, 96 | 3bitr4d 300 |
. 2
⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿1 ↔ (𝑥 ∈ 𝐵 ↦ 𝐷) ∈
𝐿1)) |
98 | 87 | oveq2d 6666 |
. . . 4
⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → ((i↑𝑘) ·
(∫2‘(𝑥
∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))) = ((i↑𝑘) · (∫2‘(𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0))))) |
99 | 98 | sumeq2dv 14433 |
. . 3
⊢ (𝜑 → Σ𝑘 ∈ (0...3)((i↑𝑘) · (∫2‘(𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))), 0)))) =
Σ𝑘 ∈
(0...3)((i↑𝑘) ·
(∫2‘(𝑥
∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐷 / (i↑𝑘)))), (ℜ‘(𝐷 / (i↑𝑘))), 0))))) |
100 | | eqid 2622 |
. . . 4
⊢
(ℜ‘(𝐶 /
(i↑𝑘))) =
(ℜ‘(𝐶 /
(i↑𝑘))) |
101 | 100 | dfitg 23536 |
. . 3
⊢
∫𝐵𝐶 d𝑥 = Σ𝑘 ∈ (0...3)((i↑𝑘) · (∫2‘(𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐶 /
(i↑𝑘)))),
(ℜ‘(𝐶 /
(i↑𝑘))),
0)))) |
102 | | eqid 2622 |
. . . 4
⊢
(ℜ‘(𝐷 /
(i↑𝑘))) =
(ℜ‘(𝐷 /
(i↑𝑘))) |
103 | 102 | dfitg 23536 |
. . 3
⊢
∫𝐵𝐷 d𝑥 = Σ𝑘 ∈ (0...3)((i↑𝑘) · (∫2‘(𝑥 ∈ ℝ ↦
if((𝑥 ∈ 𝐵 ∧ 0 ≤
(ℜ‘(𝐷 /
(i↑𝑘)))),
(ℜ‘(𝐷 /
(i↑𝑘))),
0)))) |
104 | 99, 101, 103 | 3eqtr4g 2681 |
. 2
⊢ (𝜑 → ∫𝐵𝐶 d𝑥 = ∫𝐵𝐷 d𝑥) |
105 | 97, 104 | jca 554 |
1
⊢ (𝜑 → (((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿1 ↔ (𝑥 ∈ 𝐵 ↦ 𝐷) ∈ 𝐿1) ∧
∫𝐵𝐶 d𝑥 = ∫𝐵𝐷 d𝑥)) |