Proof of Theorem ftc1cnnclem
Step | Hyp | Ref
| Expression |
1 | | ovexd 7310 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → ((𝐹‘𝑡) − (𝐹‘𝑐)) ∈ V) |
2 | | ftc1cnnc.a |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 ∈ ℝ) |
3 | 2 | rexrd 11025 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴 ∈
ℝ*) |
4 | | ftc1cnnc.b |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐵 ∈ ℝ) |
5 | 4 | rexrd 11025 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐵 ∈
ℝ*) |
6 | | ftc1cnnclem.x1 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑋 ∈ (𝐴[,]𝐵)) |
7 | | elicc1 13123 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → (𝑋 ∈ (𝐴[,]𝐵) ↔ (𝑋 ∈ ℝ* ∧ 𝐴 ≤ 𝑋 ∧ 𝑋 ≤ 𝐵))) |
8 | 7 | biimpa 477 |
. . . . . . . . . . . . . 14
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑋 ∈ (𝐴[,]𝐵)) → (𝑋 ∈ ℝ* ∧ 𝐴 ≤ 𝑋 ∧ 𝑋 ≤ 𝐵)) |
9 | 8 | simp2d 1142 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑋 ∈ (𝐴[,]𝐵)) → 𝐴 ≤ 𝑋) |
10 | 3, 5, 6, 9 | syl21anc 835 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴 ≤ 𝑋) |
11 | | ftc1cnnclem.y1 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑌 ∈ (𝐴[,]𝐵)) |
12 | | iccleub 13134 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝑌
∈ (𝐴[,]𝐵)) → 𝑌 ≤ 𝐵) |
13 | 3, 5, 11, 12 | syl3anc 1370 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑌 ≤ 𝐵) |
14 | | ioossioo 13173 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ (𝐴 ≤ 𝑋 ∧ 𝑌 ≤ 𝐵)) → (𝑋(,)𝑌) ⊆ (𝐴(,)𝐵)) |
15 | 3, 5, 10, 13, 14 | syl22anc 836 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋(,)𝑌) ⊆ (𝐴(,)𝐵)) |
16 | 15 | sselda 3921 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑡 ∈ (𝐴(,)𝐵)) |
17 | | ftc1cnnc.f |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐹 ∈ ((𝐴(,)𝐵)–cn→ℂ)) |
18 | | cncff 24056 |
. . . . . . . . . . . 12
⊢ (𝐹 ∈ ((𝐴(,)𝐵)–cn→ℂ) → 𝐹:(𝐴(,)𝐵)⟶ℂ) |
19 | 17, 18 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐹:(𝐴(,)𝐵)⟶ℂ) |
20 | 19 | ffvelrnda 6961 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴(,)𝐵)) → (𝐹‘𝑡) ∈ ℂ) |
21 | 16, 20 | syldan 591 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝐹‘𝑡) ∈ ℂ) |
22 | | ioombl 24729 |
. . . . . . . . . . 11
⊢ (𝑋(,)𝑌) ∈ dom vol |
23 | 22 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋(,)𝑌) ∈ dom vol) |
24 | | fvexd 6789 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴(,)𝐵)) → (𝐹‘𝑡) ∈ V) |
25 | 19 | feqmptd 6837 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐹 = (𝑡 ∈ (𝐴(,)𝐵) ↦ (𝐹‘𝑡))) |
26 | | ftc1cnnc.i |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐹 ∈
𝐿1) |
27 | 25, 26 | eqeltrrd 2840 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑡 ∈ (𝐴(,)𝐵) ↦ (𝐹‘𝑡)) ∈
𝐿1) |
28 | 15, 23, 24, 27 | iblss 24969 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑡)) ∈
𝐿1) |
29 | | ftc1cnnclem.c |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑐 ∈ (𝐴(,)𝐵)) |
30 | 19, 29 | ffvelrnd 6962 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐹‘𝑐) ∈ ℂ) |
31 | 30 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝐹‘𝑐) ∈ ℂ) |
32 | | fconstmpt 5649 |
. . . . . . . . . 10
⊢ ((𝑋(,)𝑌) × {(𝐹‘𝑐)}) = (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑐)) |
33 | | mblvol 24694 |
. . . . . . . . . . . . 13
⊢ ((𝑋(,)𝑌) ∈ dom vol → (vol‘(𝑋(,)𝑌)) = (vol*‘(𝑋(,)𝑌))) |
34 | 22, 33 | ax-mp 5 |
. . . . . . . . . . . 12
⊢
(vol‘(𝑋(,)𝑌)) = (vol*‘(𝑋(,)𝑌)) |
35 | | ioossicc 13165 |
. . . . . . . . . . . . . 14
⊢ (𝑋(,)𝑌) ⊆ (𝑋[,]𝑌) |
36 | 35 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑋(,)𝑌) ⊆ (𝑋[,]𝑌)) |
37 | | iccssre 13161 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴[,]𝐵) ⊆ ℝ) |
38 | 2, 4, 37 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ) |
39 | 38, 6 | sseldd 3922 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑋 ∈ ℝ) |
40 | 38, 11 | sseldd 3922 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑌 ∈ ℝ) |
41 | | iccmbl 24730 |
. . . . . . . . . . . . . . 15
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝑋[,]𝑌) ∈ dom vol) |
42 | 39, 40, 41 | syl2anc 584 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑋[,]𝑌) ∈ dom vol) |
43 | | mblss 24695 |
. . . . . . . . . . . . . 14
⊢ ((𝑋[,]𝑌) ∈ dom vol → (𝑋[,]𝑌) ⊆ ℝ) |
44 | 42, 43 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑋[,]𝑌) ⊆ ℝ) |
45 | | mblvol 24694 |
. . . . . . . . . . . . . . 15
⊢ ((𝑋[,]𝑌) ∈ dom vol → (vol‘(𝑋[,]𝑌)) = (vol*‘(𝑋[,]𝑌))) |
46 | 42, 45 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (vol‘(𝑋[,]𝑌)) = (vol*‘(𝑋[,]𝑌))) |
47 | | iccvolcl 24731 |
. . . . . . . . . . . . . . 15
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) →
(vol‘(𝑋[,]𝑌)) ∈
ℝ) |
48 | 39, 40, 47 | syl2anc 584 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (vol‘(𝑋[,]𝑌)) ∈ ℝ) |
49 | 46, 48 | eqeltrrd 2840 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (vol*‘(𝑋[,]𝑌)) ∈ ℝ) |
50 | | ovolsscl 24650 |
. . . . . . . . . . . . 13
⊢ (((𝑋(,)𝑌) ⊆ (𝑋[,]𝑌) ∧ (𝑋[,]𝑌) ⊆ ℝ ∧ (vol*‘(𝑋[,]𝑌)) ∈ ℝ) → (vol*‘(𝑋(,)𝑌)) ∈ ℝ) |
51 | 36, 44, 49, 50 | syl3anc 1370 |
. . . . . . . . . . . 12
⊢ (𝜑 → (vol*‘(𝑋(,)𝑌)) ∈ ℝ) |
52 | 34, 51 | eqeltrid 2843 |
. . . . . . . . . . 11
⊢ (𝜑 → (vol‘(𝑋(,)𝑌)) ∈ ℝ) |
53 | | iblconst 24982 |
. . . . . . . . . . 11
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (vol‘(𝑋(,)𝑌)) ∈ ℝ ∧ (𝐹‘𝑐) ∈ ℂ) → ((𝑋(,)𝑌) × {(𝐹‘𝑐)}) ∈
𝐿1) |
54 | 23, 52, 30, 53 | syl3anc 1370 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑋(,)𝑌) × {(𝐹‘𝑐)}) ∈
𝐿1) |
55 | 32, 54 | eqeltrrid 2844 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑐)) ∈
𝐿1) |
56 | | eqid 2738 |
. . . . . . . . . . 11
⊢
(TopOpen‘ℂfld) =
(TopOpen‘ℂfld) |
57 | 56 | subcn 24029 |
. . . . . . . . . . . 12
⊢ −
∈ (((TopOpen‘ℂfld) ×t
(TopOpen‘ℂfld)) Cn
(TopOpen‘ℂfld)) |
58 | 57 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → − ∈
(((TopOpen‘ℂfld) ×t
(TopOpen‘ℂfld)) Cn
(TopOpen‘ℂfld))) |
59 | 19, 15 | feqresmpt 6838 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐹 ↾ (𝑋(,)𝑌)) = (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑡))) |
60 | | rescncf 24060 |
. . . . . . . . . . . . 13
⊢ ((𝑋(,)𝑌) ⊆ (𝐴(,)𝐵) → (𝐹 ∈ ((𝐴(,)𝐵)–cn→ℂ) → (𝐹 ↾ (𝑋(,)𝑌)) ∈ ((𝑋(,)𝑌)–cn→ℂ))) |
61 | 15, 17, 60 | sylc 65 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐹 ↾ (𝑋(,)𝑌)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
62 | 59, 61 | eqeltrrd 2840 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑡)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
63 | | ioossre 13140 |
. . . . . . . . . . . . . 14
⊢ (𝑋(,)𝑌) ⊆ ℝ |
64 | | ax-resscn 10928 |
. . . . . . . . . . . . . 14
⊢ ℝ
⊆ ℂ |
65 | 63, 64 | sstri 3930 |
. . . . . . . . . . . . 13
⊢ (𝑋(,)𝑌) ⊆ ℂ |
66 | | ssid 3943 |
. . . . . . . . . . . . 13
⊢ ℂ
⊆ ℂ |
67 | | cncfmptc 24075 |
. . . . . . . . . . . . 13
⊢ (((𝐹‘𝑐) ∈ ℂ ∧ (𝑋(,)𝑌) ⊆ ℂ ∧ ℂ ⊆
ℂ) → (𝑡 ∈
(𝑋(,)𝑌) ↦ (𝐹‘𝑐)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
68 | 65, 66, 67 | mp3an23 1452 |
. . . . . . . . . . . 12
⊢ ((𝐹‘𝑐) ∈ ℂ → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑐)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
69 | 30, 68 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑐)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
70 | 56, 58, 62, 69 | cncfmpt2f 24078 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
71 | | cnmbf 24823 |
. . . . . . . . . 10
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) → (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ MblFn) |
72 | 22, 70, 71 | sylancr 587 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ MblFn) |
73 | 21, 28, 31, 55, 72 | iblsubnc 35838 |
. . . . . . . 8
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) ∈
𝐿1) |
74 | 1, 73 | itgcl 24948 |
. . . . . . 7
⊢ (𝜑 → ∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 ∈ ℂ) |
75 | 74 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 ∈ ℂ) |
76 | 40, 39 | resubcld 11403 |
. . . . . . . 8
⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℝ) |
77 | 76 | recnd 11003 |
. . . . . . 7
⊢ (𝜑 → (𝑌 − 𝑋) ∈ ℂ) |
78 | 77 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝑌 − 𝑋) ∈ ℂ) |
79 | 39, 40 | posdifd 11562 |
. . . . . . . 8
⊢ (𝜑 → (𝑋 < 𝑌 ↔ 0 < (𝑌 − 𝑋))) |
80 | 79 | biimpa 477 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 0 < (𝑌 − 𝑋)) |
81 | 80 | gt0ne0d 11539 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝑌 − 𝑋) ≠ 0) |
82 | 75, 78, 81 | divcld 11751 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)) ∈ ℂ) |
83 | 30 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝐹‘𝑐) ∈ ℂ) |
84 | | ltle 11063 |
. . . . . . . . . . 11
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝑋 < 𝑌 → 𝑋 ≤ 𝑌)) |
85 | 39, 40, 84 | syl2anc 584 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋 < 𝑌 → 𝑋 ≤ 𝑌)) |
86 | 85 | imp 407 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 𝑋 ≤ 𝑌) |
87 | | ftc1cnnc.g |
. . . . . . . . . 10
⊢ 𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ ∫(𝐴(,)𝑥)(𝐹‘𝑡) d𝑡) |
88 | | ftc1cnnc.le |
. . . . . . . . . 10
⊢ (𝜑 → 𝐴 ≤ 𝐵) |
89 | | ssidd 3944 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (𝐴(,)𝐵)) |
90 | | ioossre 13140 |
. . . . . . . . . . 11
⊢ (𝐴(,)𝐵) ⊆ ℝ |
91 | 90 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ ℝ) |
92 | 87, 2, 4, 88, 89, 91, 26, 19, 6, 11 | ftc1lem1 25199 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 ≤ 𝑌) → ((𝐺‘𝑌) − (𝐺‘𝑋)) = ∫(𝑋(,)𝑌)(𝐹‘𝑡) d𝑡) |
93 | 86, 92 | syldan 591 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((𝐺‘𝑌) − (𝐺‘𝑋)) = ∫(𝑋(,)𝑌)(𝐹‘𝑡) d𝑡) |
94 | 21, 31 | npcand 11336 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐)) = (𝐹‘𝑡)) |
95 | 94 | itgeq2dv 24946 |
. . . . . . . . . 10
⊢ (𝜑 → ∫(𝑋(,)𝑌)(((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐)) d𝑡 = ∫(𝑋(,)𝑌)(𝐹‘𝑡) d𝑡) |
96 | 21, 31 | subcld 11332 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → ((𝐹‘𝑡) − (𝐹‘𝑐)) ∈ ℂ) |
97 | 94 | mpteq2dva 5174 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐))) = (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐹‘𝑡))) |
98 | 97, 59 | eqtr4d 2781 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐))) = (𝐹 ↾ (𝑋(,)𝑌))) |
99 | | iblmbf 24932 |
. . . . . . . . . . . . . 14
⊢ (𝐹 ∈ 𝐿1
→ 𝐹 ∈
MblFn) |
100 | 26, 99 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐹 ∈ MblFn) |
101 | | mbfres 24808 |
. . . . . . . . . . . . 13
⊢ ((𝐹 ∈ MblFn ∧ (𝑋(,)𝑌) ∈ dom vol) → (𝐹 ↾ (𝑋(,)𝑌)) ∈ MblFn) |
102 | 100, 22, 101 | sylancl 586 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐹 ↾ (𝑋(,)𝑌)) ∈ MblFn) |
103 | 98, 102 | eqeltrd 2839 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐))) ∈ MblFn) |
104 | 96, 73, 31, 55, 103 | itgaddnc 35837 |
. . . . . . . . . 10
⊢ (𝜑 → ∫(𝑋(,)𝑌)(((𝐹‘𝑡) − (𝐹‘𝑐)) + (𝐹‘𝑐)) d𝑡 = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡)) |
105 | 95, 104 | eqtr3d 2780 |
. . . . . . . . 9
⊢ (𝜑 → ∫(𝑋(,)𝑌)(𝐹‘𝑡) d𝑡 = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡)) |
106 | 105 | adantr 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(𝐹‘𝑡) d𝑡 = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡)) |
107 | | itgconst 24983 |
. . . . . . . . . . . 12
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (vol‘(𝑋(,)𝑌)) ∈ ℝ ∧ (𝐹‘𝑐) ∈ ℂ) → ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡 = ((𝐹‘𝑐) · (vol‘(𝑋(,)𝑌)))) |
108 | 23, 52, 30, 107 | syl3anc 1370 |
. . . . . . . . . . 11
⊢ (𝜑 → ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡 = ((𝐹‘𝑐) · (vol‘(𝑋(,)𝑌)))) |
109 | 108 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡 = ((𝐹‘𝑐) · (vol‘(𝑋(,)𝑌)))) |
110 | 39 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 𝑋 ∈ ℝ) |
111 | 40 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 𝑌 ∈ ℝ) |
112 | | ovolioo 24732 |
. . . . . . . . . . . . 13
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ ∧ 𝑋 ≤ 𝑌) → (vol*‘(𝑋(,)𝑌)) = (𝑌 − 𝑋)) |
113 | 110, 111,
86, 112 | syl3anc 1370 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (vol*‘(𝑋(,)𝑌)) = (𝑌 − 𝑋)) |
114 | 34, 113 | eqtrid 2790 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (vol‘(𝑋(,)𝑌)) = (𝑌 − 𝑋)) |
115 | 114 | oveq2d 7291 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((𝐹‘𝑐) · (vol‘(𝑋(,)𝑌))) = ((𝐹‘𝑐) · (𝑌 − 𝑋))) |
116 | 109, 115 | eqtrd 2778 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡 = ((𝐹‘𝑐) · (𝑌 − 𝑋))) |
117 | 116 | oveq2d 7291 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ∫(𝑋(,)𝑌)(𝐹‘𝑐) d𝑡) = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ((𝐹‘𝑐) · (𝑌 − 𝑋)))) |
118 | 93, 106, 117 | 3eqtrd 2782 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((𝐺‘𝑌) − (𝐺‘𝑋)) = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ((𝐹‘𝑐) · (𝑌 − 𝑋)))) |
119 | 118 | oveq1d 7290 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) = ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ((𝐹‘𝑐) · (𝑌 − 𝑋))) / (𝑌 − 𝑋))) |
120 | 83, 78 | mulcld 10995 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((𝐹‘𝑐) · (𝑌 − 𝑋)) ∈ ℂ) |
121 | 75, 120, 78, 81 | divdird 11789 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 + ((𝐹‘𝑐) · (𝑌 − 𝑋))) / (𝑌 − 𝑋)) = ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)) + (((𝐹‘𝑐) · (𝑌 − 𝑋)) / (𝑌 − 𝑋)))) |
122 | 83, 78, 81 | divcan4d 11757 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (((𝐹‘𝑐) · (𝑌 − 𝑋)) / (𝑌 − 𝑋)) = (𝐹‘𝑐)) |
123 | 122 | oveq2d 7291 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)) + (((𝐹‘𝑐) · (𝑌 − 𝑋)) / (𝑌 − 𝑋))) = ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)) + (𝐹‘𝑐))) |
124 | 119, 121,
123 | 3eqtrd 2782 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) = ((∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)) + (𝐹‘𝑐))) |
125 | 82, 83, 124 | mvrraddd 11387 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) − (𝐹‘𝑐)) = (∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋))) |
126 | 125 | fveq2d 6778 |
. . 3
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘((((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) − (𝐹‘𝑐))) = (abs‘(∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋)))) |
127 | 75, 78, 81 | absdivd 15167 |
. . 3
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘(∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡 / (𝑌 − 𝑋))) = ((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (abs‘(𝑌 − 𝑋)))) |
128 | 76 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝑌 − 𝑋) ∈ ℝ) |
129 | | 0re 10977 |
. . . . . . 7
⊢ 0 ∈
ℝ |
130 | | ltle 11063 |
. . . . . . 7
⊢ ((0
∈ ℝ ∧ (𝑌
− 𝑋) ∈ ℝ)
→ (0 < (𝑌 −
𝑋) → 0 ≤ (𝑌 − 𝑋))) |
131 | 129, 128,
130 | sylancr 587 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (0 < (𝑌 − 𝑋) → 0 ≤ (𝑌 − 𝑋))) |
132 | 80, 131 | mpd 15 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 0 ≤ (𝑌 − 𝑋)) |
133 | 128, 132 | absidd 15134 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘(𝑌 − 𝑋)) = (𝑌 − 𝑋)) |
134 | 133 | oveq2d 7291 |
. . 3
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (abs‘(𝑌 − 𝑋))) = ((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (𝑌 − 𝑋))) |
135 | 126, 127,
134 | 3eqtrd 2782 |
. 2
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘((((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) − (𝐹‘𝑐))) = ((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (𝑌 − 𝑋))) |
136 | 75 | abscld 15148 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ∈ ℝ) |
137 | 96 | abscld 15148 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ ℝ) |
138 | | cncfss 24062 |
. . . . . . . . . . . 12
⊢ ((ℝ
⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ)) |
139 | 64, 66, 138 | mp2an 689 |
. . . . . . . . . . 11
⊢
(ℂ–cn→ℝ)
⊆ (ℂ–cn→ℂ) |
140 | | abscncf 24064 |
. . . . . . . . . . 11
⊢ abs
∈ (ℂ–cn→ℝ) |
141 | 139, 140 | sselii 3918 |
. . . . . . . . . 10
⊢ abs
∈ (ℂ–cn→ℂ) |
142 | 141 | a1i 11 |
. . . . . . . . 9
⊢ (𝜑 → abs ∈
(ℂ–cn→ℂ)) |
143 | 142, 70 | cncfmpt1f 24077 |
. . . . . . . 8
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
144 | | cnmbf 24823 |
. . . . . . . 8
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (𝑡 ∈ (𝑋(,)𝑌) ↦ (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) → (𝑡 ∈ (𝑋(,)𝑌) ↦ (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ MblFn) |
145 | 22, 143, 144 | sylancr 587 |
. . . . . . 7
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ MblFn) |
146 | 1, 73, 145 | iblabsnc 35841 |
. . . . . 6
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈
𝐿1) |
147 | 137, 146 | itgrecl 24962 |
. . . . 5
⊢ (𝜑 → ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡 ∈ ℝ) |
148 | 147 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡 ∈ ℝ) |
149 | | ftc1cnnclem.e |
. . . . . . 7
⊢ (𝜑 → 𝐸 ∈
ℝ+) |
150 | 149 | rpred 12772 |
. . . . . 6
⊢ (𝜑 → 𝐸 ∈ ℝ) |
151 | 76, 150 | remulcld 11005 |
. . . . 5
⊢ (𝜑 → ((𝑌 − 𝑋) · 𝐸) ∈ ℝ) |
152 | 151 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((𝑌 − 𝑋) · 𝐸) ∈ ℝ) |
153 | 74 | cjcld 14907 |
. . . . . . . . 9
⊢ (𝜑 →
(∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ∈ ℂ) |
154 | | cncfmptc 24075 |
. . . . . . . . . 10
⊢
(((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ∈ ℂ ∧ (𝑋(,)𝑌) ⊆ ℂ ∧ ℂ ⊆
ℂ) → (𝑥 ∈
(𝑋(,)𝑌) ↦ (∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
155 | 65, 66, 154 | mp3an23 1452 |
. . . . . . . . 9
⊢
((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ∈ ℂ → (𝑥 ∈ (𝑋(,)𝑌) ↦ (∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
156 | 153, 155 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ (∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡)) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
157 | | nfcv 2907 |
. . . . . . . . . 10
⊢
Ⅎ𝑥((𝐹‘𝑡) − (𝐹‘𝑐)) |
158 | | nfcsb1v 3857 |
. . . . . . . . . 10
⊢
Ⅎ𝑡⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐)) |
159 | | csbeq1a 3846 |
. . . . . . . . . 10
⊢ (𝑡 = 𝑥 → ((𝐹‘𝑡) − (𝐹‘𝑐)) = ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐))) |
160 | 157, 158,
159 | cbvmpt 5185 |
. . . . . . . . 9
⊢ (𝑡 ∈ (𝑋(,)𝑌) ↦ ((𝐹‘𝑡) − (𝐹‘𝑐))) = (𝑥 ∈ (𝑋(,)𝑌) ↦ ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐))) |
161 | 160, 70 | eqeltrrid 2844 |
. . . . . . . 8
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
162 | 156, 161 | mulcncf 24610 |
. . . . . . 7
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ ((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) · ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
163 | | cnmbf 24823 |
. . . . . . 7
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (𝑥 ∈ (𝑋(,)𝑌) ↦ ((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) · ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) → (𝑥 ∈ (𝑋(,)𝑌) ↦ ((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) · ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ MblFn) |
164 | 22, 162, 163 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ ((∗‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) · ⦋𝑥 / 𝑡⦌((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈ MblFn) |
165 | 96, 73, 145, 164 | itgabsnc 35846 |
. . . . 5
⊢ (𝜑 → (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ≤ ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡) |
166 | 165 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ≤ ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡) |
167 | | simpr 485 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 𝑋 < 𝑌) |
168 | 150 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝐸 ∈ ℝ) |
169 | | fconstmpt 5649 |
. . . . . . . . . 10
⊢ ((𝑋(,)𝑌) × {𝐸}) = (𝑡 ∈ (𝑋(,)𝑌) ↦ 𝐸) |
170 | 149 | rpcnd 12774 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐸 ∈ ℂ) |
171 | | iblconst 24982 |
. . . . . . . . . . 11
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (vol‘(𝑋(,)𝑌)) ∈ ℝ ∧ 𝐸 ∈ ℂ) → ((𝑋(,)𝑌) × {𝐸}) ∈
𝐿1) |
172 | 23, 52, 170, 171 | syl3anc 1370 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑋(,)𝑌) × {𝐸}) ∈
𝐿1) |
173 | 169, 172 | eqeltrrid 2844 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ 𝐸) ∈
𝐿1) |
174 | | cncfmptc 24075 |
. . . . . . . . . . . . 13
⊢ ((𝐸 ∈ ℂ ∧ (𝑋(,)𝑌) ⊆ ℂ ∧ ℂ ⊆
ℂ) → (𝑡 ∈
(𝑋(,)𝑌) ↦ 𝐸) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
175 | 65, 66, 174 | mp3an23 1452 |
. . . . . . . . . . . 12
⊢ (𝐸 ∈ ℂ → (𝑡 ∈ (𝑋(,)𝑌) ↦ 𝐸) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
176 | 170, 175 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ 𝐸) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
177 | 56, 58, 176, 143 | cncfmpt2f 24078 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
178 | | cnmbf 24823 |
. . . . . . . . . 10
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈ MblFn) |
179 | 22, 177, 178 | sylancr 587 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈ MblFn) |
180 | 168, 173,
137, 146, 179 | iblsubnc 35838 |
. . . . . . . 8
⊢ (𝜑 → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈
𝐿1) |
181 | 180 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈
𝐿1) |
182 | | ftc1cnnclem.fc |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑦 ∈ (𝐴(,)𝐵)) → ((abs‘(𝑦 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑦) − (𝐹‘𝑐))) < 𝐸)) |
183 | 182 | ralrimiva 3103 |
. . . . . . . . . . 11
⊢ (𝜑 → ∀𝑦 ∈ (𝐴(,)𝐵)((abs‘(𝑦 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑦) − (𝐹‘𝑐))) < 𝐸)) |
184 | 183 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → ∀𝑦 ∈ (𝐴(,)𝐵)((abs‘(𝑦 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑦) − (𝐹‘𝑐))) < 𝐸)) |
185 | 90, 29 | sselid 3919 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑐 ∈ ℝ) |
186 | | ftc1cnnclem.r |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑅 ∈
ℝ+) |
187 | 186 | rpred 12772 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑅 ∈ ℝ) |
188 | 185, 187 | resubcld 11403 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑐 − 𝑅) ∈ ℝ) |
189 | 188 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝑐 − 𝑅) ∈ ℝ) |
190 | 39 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑋 ∈ ℝ) |
191 | | elioore 13109 |
. . . . . . . . . . . . 13
⊢ (𝑡 ∈ (𝑋(,)𝑌) → 𝑡 ∈ ℝ) |
192 | 191 | adantl 482 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑡 ∈ ℝ) |
193 | | ftc1cnnclem.x2 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (abs‘(𝑋 − 𝑐)) < 𝑅) |
194 | 39, 185, 187 | absdifltd 15145 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((abs‘(𝑋 − 𝑐)) < 𝑅 ↔ ((𝑐 − 𝑅) < 𝑋 ∧ 𝑋 < (𝑐 + 𝑅)))) |
195 | 193, 194 | mpbid 231 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝑐 − 𝑅) < 𝑋 ∧ 𝑋 < (𝑐 + 𝑅))) |
196 | 195 | simpld 495 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑐 − 𝑅) < 𝑋) |
197 | 196 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝑐 − 𝑅) < 𝑋) |
198 | | eliooord 13138 |
. . . . . . . . . . . . . 14
⊢ (𝑡 ∈ (𝑋(,)𝑌) → (𝑋 < 𝑡 ∧ 𝑡 < 𝑌)) |
199 | 198 | adantl 482 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝑋 < 𝑡 ∧ 𝑡 < 𝑌)) |
200 | 199 | simpld 495 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑋 < 𝑡) |
201 | 189, 190,
192, 197, 200 | lttrd 11136 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝑐 − 𝑅) < 𝑡) |
202 | 40 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑌 ∈ ℝ) |
203 | 185, 187 | readdcld 11004 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑐 + 𝑅) ∈ ℝ) |
204 | 203 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝑐 + 𝑅) ∈ ℝ) |
205 | 199 | simprd 496 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑡 < 𝑌) |
206 | | ftc1cnnclem.y2 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (abs‘(𝑌 − 𝑐)) < 𝑅) |
207 | 40, 185, 187 | absdifltd 15145 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((abs‘(𝑌 − 𝑐)) < 𝑅 ↔ ((𝑐 − 𝑅) < 𝑌 ∧ 𝑌 < (𝑐 + 𝑅)))) |
208 | 206, 207 | mpbid 231 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝑐 − 𝑅) < 𝑌 ∧ 𝑌 < (𝑐 + 𝑅))) |
209 | 208 | simprd 496 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑌 < (𝑐 + 𝑅)) |
210 | 209 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑌 < (𝑐 + 𝑅)) |
211 | 192, 202,
204, 205, 210 | lttrd 11136 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑡 < (𝑐 + 𝑅)) |
212 | 185 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑐 ∈ ℝ) |
213 | 187 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → 𝑅 ∈ ℝ) |
214 | 192, 212,
213 | absdifltd 15145 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → ((abs‘(𝑡 − 𝑐)) < 𝑅 ↔ ((𝑐 − 𝑅) < 𝑡 ∧ 𝑡 < (𝑐 + 𝑅)))) |
215 | 201, 211,
214 | mpbir2and 710 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (abs‘(𝑡 − 𝑐)) < 𝑅) |
216 | | fvoveq1 7298 |
. . . . . . . . . . . . 13
⊢ (𝑦 = 𝑡 → (abs‘(𝑦 − 𝑐)) = (abs‘(𝑡 − 𝑐))) |
217 | 216 | breq1d 5084 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑡 → ((abs‘(𝑦 − 𝑐)) < 𝑅 ↔ (abs‘(𝑡 − 𝑐)) < 𝑅)) |
218 | 217 | imbrov2fvoveq 7300 |
. . . . . . . . . . 11
⊢ (𝑦 = 𝑡 → (((abs‘(𝑦 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑦) − (𝐹‘𝑐))) < 𝐸) ↔ ((abs‘(𝑡 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) < 𝐸))) |
219 | 218 | rspcv 3557 |
. . . . . . . . . 10
⊢ (𝑡 ∈ (𝐴(,)𝐵) → (∀𝑦 ∈ (𝐴(,)𝐵)((abs‘(𝑦 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑦) − (𝐹‘𝑐))) < 𝐸) → ((abs‘(𝑡 − 𝑐)) < 𝑅 → (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) < 𝐸))) |
220 | 16, 184, 215, 219 | syl3c 66 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) < 𝐸) |
221 | | difrp 12768 |
. . . . . . . . . 10
⊢
(((abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) ∈ ℝ ∧ 𝐸 ∈ ℝ) → ((abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) < 𝐸 ↔ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈
ℝ+)) |
222 | 137, 168,
221 | syl2anc 584 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → ((abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) < 𝐸 ↔ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈
ℝ+)) |
223 | 220, 222 | mpbid 231 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈
ℝ+) |
224 | 223 | adantlr 712 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑋 < 𝑌) ∧ 𝑡 ∈ (𝑋(,)𝑌)) → (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) ∈
ℝ+) |
225 | 177 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝑡 ∈ (𝑋(,)𝑌) ↦ (𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐))))) ∈ ((𝑋(,)𝑌)–cn→ℂ)) |
226 | 167, 181,
224, 225 | itggt0cn 35847 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 0 < ∫(𝑋(,)𝑌)(𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) d𝑡) |
227 | 168, 173,
137, 146, 179 | itgsubnc 35839 |
. . . . . . . 8
⊢ (𝜑 → ∫(𝑋(,)𝑌)(𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) d𝑡 = (∫(𝑋(,)𝑌)𝐸 d𝑡 − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) |
228 | 227 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) d𝑡 = (∫(𝑋(,)𝑌)𝐸 d𝑡 − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) |
229 | | itgconst 24983 |
. . . . . . . . . . 11
⊢ (((𝑋(,)𝑌) ∈ dom vol ∧ (vol‘(𝑋(,)𝑌)) ∈ ℝ ∧ 𝐸 ∈ ℂ) → ∫(𝑋(,)𝑌)𝐸 d𝑡 = (𝐸 · (vol‘(𝑋(,)𝑌)))) |
230 | 23, 52, 170, 229 | syl3anc 1370 |
. . . . . . . . . 10
⊢ (𝜑 → ∫(𝑋(,)𝑌)𝐸 d𝑡 = (𝐸 · (vol‘(𝑋(,)𝑌)))) |
231 | 230 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)𝐸 d𝑡 = (𝐸 · (vol‘(𝑋(,)𝑌)))) |
232 | 114 | oveq2d 7291 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝐸 · (vol‘(𝑋(,)𝑌))) = (𝐸 · (𝑌 − 𝑋))) |
233 | 170, 77 | mulcomd 10996 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐸 · (𝑌 − 𝑋)) = ((𝑌 − 𝑋) · 𝐸)) |
234 | 233 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (𝐸 · (𝑌 − 𝑋)) = ((𝑌 − 𝑋) · 𝐸)) |
235 | 231, 232,
234 | 3eqtrd 2782 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)𝐸 d𝑡 = ((𝑌 − 𝑋) · 𝐸)) |
236 | 235 | oveq1d 7290 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (∫(𝑋(,)𝑌)𝐸 d𝑡 − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡) = (((𝑌 − 𝑋) · 𝐸) − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) |
237 | 228, 236 | eqtrd 2778 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(𝐸 − (abs‘((𝐹‘𝑡) − (𝐹‘𝑐)))) d𝑡 = (((𝑌 − 𝑋) · 𝐸) − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) |
238 | 226, 237 | breqtrd 5100 |
. . . . 5
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 0 < (((𝑌 − 𝑋) · 𝐸) − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) |
239 | 147, 151 | posdifd 11562 |
. . . . . 6
⊢ (𝜑 → (∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡 < ((𝑌 − 𝑋) · 𝐸) ↔ 0 < (((𝑌 − 𝑋) · 𝐸) − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡))) |
240 | 239 | biimpar 478 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (((𝑌 − 𝑋) · 𝐸) − ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡)) → ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡 < ((𝑌 − 𝑋) · 𝐸)) |
241 | 238, 240 | syldan 591 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ∫(𝑋(,)𝑌)(abs‘((𝐹‘𝑡) − (𝐹‘𝑐))) d𝑡 < ((𝑌 − 𝑋) · 𝐸)) |
242 | 136, 148,
152, 166, 241 | lelttrd 11133 |
. . 3
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) < ((𝑌 − 𝑋) · 𝐸)) |
243 | 150 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → 𝐸 ∈ ℝ) |
244 | | ltdivmul 11850 |
. . . 4
⊢
(((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) ∈ ℝ ∧ 𝐸 ∈ ℝ ∧ ((𝑌 − 𝑋) ∈ ℝ ∧ 0 < (𝑌 − 𝑋))) → (((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (𝑌 − 𝑋)) < 𝐸 ↔ (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) < ((𝑌 − 𝑋) · 𝐸))) |
245 | 136, 243,
128, 80, 244 | syl112anc 1373 |
. . 3
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (𝑌 − 𝑋)) < 𝐸 ↔ (abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) < ((𝑌 − 𝑋) · 𝐸))) |
246 | 242, 245 | mpbird 256 |
. 2
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → ((abs‘∫(𝑋(,)𝑌)((𝐹‘𝑡) − (𝐹‘𝑐)) d𝑡) / (𝑌 − 𝑋)) < 𝐸) |
247 | 135, 246 | eqbrtrd 5096 |
1
⊢ ((𝜑 ∧ 𝑋 < 𝑌) → (abs‘((((𝐺‘𝑌) − (𝐺‘𝑋)) / (𝑌 − 𝑋)) − (𝐹‘𝑐))) < 𝐸) |