Proof of Theorem itgabsnc
Step | Hyp | Ref
| Expression |
1 | | itgabsnc.1 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉) |
2 | | itgabsnc.2 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈
𝐿1) |
3 | 1, 2 | itgcl 23356 |
. . . . . . . . . . 11
⊢ (𝜑 → ∫𝐴𝐵 d𝑥 ∈ ℂ) |
4 | 3 | cjcld 13784 |
. . . . . . . . . 10
⊢ (𝜑 → (∗‘∫𝐴𝐵 d𝑥) ∈ ℂ) |
5 | | iblmbf 23340 |
. . . . . . . . . . . . . . 15
⊢ ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿1 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn) |
6 | 2, 5 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn) |
7 | 6, 1 | mbfmptcl 23210 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ) |
8 | 7 | ralrimiva 2949 |
. . . . . . . . . . . 12
⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐵 ∈ ℂ) |
9 | | nfv 1830 |
. . . . . . . . . . . . 13
⊢
Ⅎ𝑦 𝐵 ∈ ℂ |
10 | | nfcsb1v 3515 |
. . . . . . . . . . . . . 14
⊢
Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 |
11 | 10 | nfel1 2765 |
. . . . . . . . . . . . 13
⊢
Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵 ∈ ℂ |
12 | | csbeq1a 3508 |
. . . . . . . . . . . . . 14
⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵) |
13 | 12 | eleq1d 2672 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 𝑦 → (𝐵 ∈ ℂ ↔ ⦋𝑦 / 𝑥⦌𝐵 ∈ ℂ)) |
14 | 9, 11, 13 | cbvral 3143 |
. . . . . . . . . . . 12
⊢
(∀𝑥 ∈
𝐴 𝐵 ∈ ℂ ↔ ∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ ℂ) |
15 | 8, 14 | sylib 207 |
. . . . . . . . . . 11
⊢ (𝜑 → ∀𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ∈ ℂ) |
16 | 15 | r19.21bi 2916 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ⦋𝑦 / 𝑥⦌𝐵 ∈ ℂ) |
17 | | nfcv 2751 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑦𝐵 |
18 | 17, 10, 12 | cbvmpt 4677 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵) |
19 | 18, 2 | syl5eqelr 2693 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦ ⦋𝑦 / 𝑥⦌𝐵) ∈
𝐿1) |
20 | | itgabsnc.m2 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦ ((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ∈ MblFn) |
21 | 4, 16, 19, 20 | iblmulc2nc 32645 |
. . . . . . . . 9
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦ ((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ∈
𝐿1) |
22 | 4 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → (∗‘∫𝐴𝐵 d𝑥) ∈ ℂ) |
23 | 22, 16 | mulcld 9939 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) ∈ ℂ) |
24 | 23 | iblcn 23371 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑦 ∈ 𝐴 ↦ ((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ∈ 𝐿1 ↔
((𝑦 ∈ 𝐴 ↦
(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈ 𝐿1 ∧
(𝑦 ∈ 𝐴 ↦
(ℑ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈
𝐿1))) |
25 | 21, 24 | mpbid 221 |
. . . . . . . 8
⊢ (𝜑 → ((𝑦 ∈ 𝐴 ↦
(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈ 𝐿1 ∧
(𝑦 ∈ 𝐴 ↦
(ℑ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈
𝐿1)) |
26 | 25 | simpld 474 |
. . . . . . 7
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦
(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈
𝐿1) |
27 | 22, 16 | absmuld 14041 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) = ((abs‘(∗‘∫𝐴𝐵 d𝑥)) · (abs‘⦋𝑦 / 𝑥⦌𝐵))) |
28 | 27 | mpteq2dva 4672 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) = (𝑦 ∈ 𝐴 ↦
((abs‘(∗‘∫𝐴𝐵 d𝑥)) · (abs‘⦋𝑦 / 𝑥⦌𝐵)))) |
29 | 6, 1 | mbfdm2 23211 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ∈ dom vol) |
30 | 22 | abscld 14023 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(abs‘(∗‘∫𝐴𝐵 d𝑥)) ∈ ℝ) |
31 | 16 | abscld 14023 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → (abs‘⦋𝑦 / 𝑥⦌𝐵) ∈ ℝ) |
32 | | fconstmpt 5085 |
. . . . . . . . . . . 12
⊢ (𝐴 ×
{(abs‘(∗‘∫𝐴𝐵 d𝑥))}) = (𝑦 ∈ 𝐴 ↦
(abs‘(∗‘∫𝐴𝐵 d𝑥))) |
33 | 32 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐴 ×
{(abs‘(∗‘∫𝐴𝐵 d𝑥))}) = (𝑦 ∈ 𝐴 ↦
(abs‘(∗‘∫𝐴𝐵 d𝑥)))) |
34 | | nfcv 2751 |
. . . . . . . . . . . . 13
⊢
Ⅎ𝑦(abs‘𝐵) |
35 | | nfcv 2751 |
. . . . . . . . . . . . . 14
⊢
Ⅎ𝑥abs |
36 | 35, 10 | nffv 6110 |
. . . . . . . . . . . . 13
⊢
Ⅎ𝑥(abs‘⦋𝑦 / 𝑥⦌𝐵) |
37 | 12 | fveq2d 6107 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 𝑦 → (abs‘𝐵) = (abs‘⦋𝑦 / 𝑥⦌𝐵)) |
38 | 34, 36, 37 | cbvmpt 4677 |
. . . . . . . . . . . 12
⊢ (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) = (𝑦 ∈ 𝐴 ↦ (abs‘⦋𝑦 / 𝑥⦌𝐵)) |
39 | 38 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) = (𝑦 ∈ 𝐴 ↦ (abs‘⦋𝑦 / 𝑥⦌𝐵))) |
40 | 29, 30, 31, 33, 39 | offval2 6812 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 ×
{(abs‘(∗‘∫𝐴𝐵 d𝑥))}) ∘𝑓 ·
(𝑥 ∈ 𝐴 ↦ (abs‘𝐵))) = (𝑦 ∈ 𝐴 ↦
((abs‘(∗‘∫𝐴𝐵 d𝑥)) · (abs‘⦋𝑦 / 𝑥⦌𝐵)))) |
41 | 28, 40 | eqtr4d 2647 |
. . . . . . . . 9
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) = ((𝐴 ×
{(abs‘(∗‘∫𝐴𝐵 d𝑥))}) ∘𝑓 ·
(𝑥 ∈ 𝐴 ↦ (abs‘𝐵)))) |
42 | | itgabsnc.m1 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ MblFn) |
43 | 4 | abscld 14023 |
. . . . . . . . . 10
⊢ (𝜑 →
(abs‘(∗‘∫𝐴𝐵 d𝑥)) ∈ ℝ) |
44 | 7 | abscld 14023 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℝ) |
45 | 44 | recnd 9947 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℂ) |
46 | | eqid 2610 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) = (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) |
47 | 45, 46 | fmptd 6292 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)):𝐴⟶ℂ) |
48 | 42, 43, 47 | mbfmulc2re 23221 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐴 ×
{(abs‘(∗‘∫𝐴𝐵 d𝑥))}) ∘𝑓 ·
(𝑥 ∈ 𝐴 ↦ (abs‘𝐵))) ∈ MblFn) |
49 | 41, 48 | eqeltrd 2688 |
. . . . . . . 8
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈ MblFn) |
50 | 23, 21, 49 | iblabsnc 32644 |
. . . . . . 7
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) ∈
𝐿1) |
51 | 23 | recld 13782 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ∈ ℝ) |
52 | 23 | abscld 14023 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ∈ ℝ) |
53 | 23 | releabsd 14038 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) ≤
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵))) |
54 | 26, 50, 51, 52, 53 | itgle 23382 |
. . . . . 6
⊢ (𝜑 → ∫𝐴(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦 ≤ ∫𝐴(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
55 | 3 | abscld 14023 |
. . . . . . . . 9
⊢ (𝜑 → (abs‘∫𝐴𝐵 d𝑥) ∈ ℝ) |
56 | 55 | recnd 9947 |
. . . . . . . 8
⊢ (𝜑 → (abs‘∫𝐴𝐵 d𝑥) ∈ ℂ) |
57 | 56 | sqvald 12867 |
. . . . . . 7
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥)↑2) = ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥))) |
58 | 3 | absvalsqd 14029 |
. . . . . . . . . 10
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥)↑2) = (∫𝐴𝐵 d𝑥 · (∗‘∫𝐴𝐵 d𝑥))) |
59 | 3, 4 | mulcomd 9940 |
. . . . . . . . . 10
⊢ (𝜑 → (∫𝐴𝐵 d𝑥 · (∗‘∫𝐴𝐵 d𝑥)) = ((∗‘∫𝐴𝐵 d𝑥) · ∫𝐴𝐵 d𝑥)) |
60 | 12, 17, 10 | cbvitg 23348 |
. . . . . . . . . . . 12
⊢
∫𝐴𝐵 d𝑥 = ∫𝐴⦋𝑦 / 𝑥⦌𝐵 d𝑦 |
61 | 60 | oveq2i 6560 |
. . . . . . . . . . 11
⊢
((∗‘∫𝐴𝐵 d𝑥) · ∫𝐴𝐵 d𝑥) = ((∗‘∫𝐴𝐵 d𝑥) · ∫𝐴⦋𝑦 / 𝑥⦌𝐵 d𝑦) |
62 | 4, 16, 19, 20 | itgmulc2nc 32648 |
. . . . . . . . . . 11
⊢ (𝜑 →
((∗‘∫𝐴𝐵 d𝑥) · ∫𝐴⦋𝑦 / 𝑥⦌𝐵 d𝑦) = ∫𝐴((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) d𝑦) |
63 | 61, 62 | syl5eq 2656 |
. . . . . . . . . 10
⊢ (𝜑 →
((∗‘∫𝐴𝐵 d𝑥) · ∫𝐴𝐵 d𝑥) = ∫𝐴((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) d𝑦) |
64 | 58, 59, 63 | 3eqtrd 2648 |
. . . . . . . . 9
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥)↑2) = ∫𝐴((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) d𝑦) |
65 | 64 | fveq2d 6107 |
. . . . . . . 8
⊢ (𝜑 →
(ℜ‘((abs‘∫𝐴𝐵 d𝑥)↑2)) = (ℜ‘∫𝐴((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) d𝑦)) |
66 | 55 | resqcld 12897 |
. . . . . . . . 9
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥)↑2) ∈ ℝ) |
67 | 66 | rered 13812 |
. . . . . . . 8
⊢ (𝜑 →
(ℜ‘((abs‘∫𝐴𝐵 d𝑥)↑2)) = ((abs‘∫𝐴𝐵 d𝑥)↑2)) |
68 | | ovex 6577 |
. . . . . . . . . 10
⊢
((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) ∈ V |
69 | 68 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) ∈ V) |
70 | 69, 21 | itgre 23373 |
. . . . . . . 8
⊢ (𝜑 → (ℜ‘∫𝐴((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵) d𝑦) = ∫𝐴(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
71 | 65, 67, 70 | 3eqtr3d 2652 |
. . . . . . 7
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥)↑2) = ∫𝐴(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
72 | 57, 71 | eqtr3d 2646 |
. . . . . 6
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥)) = ∫𝐴(ℜ‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
73 | 37, 34, 36 | cbvitg 23348 |
. . . . . . . 8
⊢
∫𝐴(abs‘𝐵) d𝑥 = ∫𝐴(abs‘⦋𝑦 / 𝑥⦌𝐵) d𝑦 |
74 | 73 | oveq2i 6560 |
. . . . . . 7
⊢
((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥) = ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘⦋𝑦 / 𝑥⦌𝐵) d𝑦) |
75 | 1, 2, 42 | iblabsnc 32644 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈
𝐿1) |
76 | 38, 75 | syl5eqelr 2693 |
. . . . . . . . 9
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦ (abs‘⦋𝑦 / 𝑥⦌𝐵)) ∈
𝐿1) |
77 | 55 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → (abs‘∫𝐴𝐵 d𝑥) ∈ ℝ) |
78 | | fconstmpt 5085 |
. . . . . . . . . . . 12
⊢ (𝐴 × {(abs‘∫𝐴𝐵 d𝑥)}) = (𝑦 ∈ 𝐴 ↦ (abs‘∫𝐴𝐵 d𝑥)) |
79 | 78 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐴 × {(abs‘∫𝐴𝐵 d𝑥)}) = (𝑦 ∈ 𝐴 ↦ (abs‘∫𝐴𝐵 d𝑥))) |
80 | 29, 77, 31, 79, 39 | offval2 6812 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 × {(abs‘∫𝐴𝐵 d𝑥)}) ∘𝑓 ·
(𝑥 ∈ 𝐴 ↦ (abs‘𝐵))) = (𝑦 ∈ 𝐴 ↦ ((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵)))) |
81 | 42, 55, 47 | mbfmulc2re 23221 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 × {(abs‘∫𝐴𝐵 d𝑥)}) ∘𝑓 ·
(𝑥 ∈ 𝐴 ↦ (abs‘𝐵))) ∈ MblFn) |
82 | 80, 81 | eqeltrrd 2689 |
. . . . . . . . 9
⊢ (𝜑 → (𝑦 ∈ 𝐴 ↦ ((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵))) ∈ MblFn) |
83 | 56, 31, 76, 82 | itgmulc2nc 32648 |
. . . . . . . 8
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘⦋𝑦 / 𝑥⦌𝐵) d𝑦) = ∫𝐴((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
84 | 3 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) → ∫𝐴𝐵 d𝑥 ∈ ℂ) |
85 | 84 | abscjd 14037 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(abs‘(∗‘∫𝐴𝐵 d𝑥)) = (abs‘∫𝐴𝐵 d𝑥)) |
86 | 85 | oveq1d 6564 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
((abs‘(∗‘∫𝐴𝐵 d𝑥)) · (abs‘⦋𝑦 / 𝑥⦌𝐵)) = ((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵))) |
87 | 27, 86 | eqtrd 2644 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴) →
(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) = ((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵))) |
88 | 87 | itgeq2dv 23354 |
. . . . . . . 8
⊢ (𝜑 → ∫𝐴(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦 = ∫𝐴((abs‘∫𝐴𝐵 d𝑥) · (abs‘⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
89 | 83, 88 | eqtr4d 2647 |
. . . . . . 7
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘⦋𝑦 / 𝑥⦌𝐵) d𝑦) = ∫𝐴(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
90 | 74, 89 | syl5eq 2656 |
. . . . . 6
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥) = ∫𝐴(abs‘((∗‘∫𝐴𝐵 d𝑥) · ⦋𝑦 / 𝑥⦌𝐵)) d𝑦) |
91 | 54, 72, 90 | 3brtr4d 4615 |
. . . . 5
⊢ (𝜑 → ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥)) ≤ ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥)) |
92 | 91 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥)) ≤ ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥)) |
93 | 55 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → (abs‘∫𝐴𝐵 d𝑥) ∈ ℝ) |
94 | 44, 75 | itgrecl 23370 |
. . . . . 6
⊢ (𝜑 → ∫𝐴(abs‘𝐵) d𝑥 ∈ ℝ) |
95 | 94 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → ∫𝐴(abs‘𝐵) d𝑥 ∈ ℝ) |
96 | | simpr 476 |
. . . . 5
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → 0 < (abs‘∫𝐴𝐵 d𝑥)) |
97 | | lemul2 10755 |
. . . . 5
⊢
(((abs‘∫𝐴𝐵 d𝑥) ∈ ℝ ∧ ∫𝐴(abs‘𝐵) d𝑥 ∈ ℝ ∧ ((abs‘∫𝐴𝐵 d𝑥) ∈ ℝ ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥))) → ((abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥 ↔ ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥)) ≤ ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥))) |
98 | 93, 95, 93, 96, 97 | syl112anc 1322 |
. . . 4
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → ((abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥 ↔ ((abs‘∫𝐴𝐵 d𝑥) · (abs‘∫𝐴𝐵 d𝑥)) ≤ ((abs‘∫𝐴𝐵 d𝑥) · ∫𝐴(abs‘𝐵) d𝑥))) |
99 | 92, 98 | mpbird 246 |
. . 3
⊢ ((𝜑 ∧ 0 <
(abs‘∫𝐴𝐵 d𝑥)) → (abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥) |
100 | 99 | ex 449 |
. 2
⊢ (𝜑 → (0 <
(abs‘∫𝐴𝐵 d𝑥) → (abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥)) |
101 | 7 | absge0d 14031 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘𝐵)) |
102 | 75, 44, 101 | itgge0 23383 |
. . 3
⊢ (𝜑 → 0 ≤ ∫𝐴(abs‘𝐵) d𝑥) |
103 | | breq1 4586 |
. . 3
⊢ (0 =
(abs‘∫𝐴𝐵 d𝑥) → (0 ≤ ∫𝐴(abs‘𝐵) d𝑥 ↔ (abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥)) |
104 | 102, 103 | syl5ibcom 234 |
. 2
⊢ (𝜑 → (0 = (abs‘∫𝐴𝐵 d𝑥) → (abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥)) |
105 | 3 | absge0d 14031 |
. . 3
⊢ (𝜑 → 0 ≤
(abs‘∫𝐴𝐵 d𝑥)) |
106 | | 0re 9919 |
. . . 4
⊢ 0 ∈
ℝ |
107 | | leloe 10003 |
. . . 4
⊢ ((0
∈ ℝ ∧ (abs‘∫𝐴𝐵 d𝑥) ∈ ℝ) → (0 ≤
(abs‘∫𝐴𝐵 d𝑥) ↔ (0 < (abs‘∫𝐴𝐵 d𝑥) ∨ 0 = (abs‘∫𝐴𝐵 d𝑥)))) |
108 | 106, 55, 107 | sylancr 694 |
. . 3
⊢ (𝜑 → (0 ≤
(abs‘∫𝐴𝐵 d𝑥) ↔ (0 < (abs‘∫𝐴𝐵 d𝑥) ∨ 0 = (abs‘∫𝐴𝐵 d𝑥)))) |
109 | 105, 108 | mpbid 221 |
. 2
⊢ (𝜑 → (0 <
(abs‘∫𝐴𝐵 d𝑥) ∨ 0 = (abs‘∫𝐴𝐵 d𝑥))) |
110 | 100, 104,
109 | mpjaod 395 |
1
⊢ (𝜑 → (abs‘∫𝐴𝐵 d𝑥) ≤ ∫𝐴(abs‘𝐵) d𝑥) |