MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  dvfsumlem2OLD Structured version   Visualization version   GIF version

Theorem dvfsumlem2OLD 25934
Description: Obsolete version of dvfsumlem2 25933 as of 17-Apr-2025. (Contributed by Mario Carneiro, 17-May-2016.) (Proof modification is discouraged.) (New usage is discouraged.)
Hypotheses
Ref Expression
dvfsum.s 𝑆 = (𝑇(,)+∞)
dvfsum.z 𝑍 = (ℤ𝑀)
dvfsum.m (𝜑𝑀 ∈ ℤ)
dvfsum.d (𝜑𝐷 ∈ ℝ)
dvfsum.md (𝜑𝑀 ≤ (𝐷 + 1))
dvfsum.t (𝜑𝑇 ∈ ℝ)
dvfsum.a ((𝜑𝑥𝑆) → 𝐴 ∈ ℝ)
dvfsum.b1 ((𝜑𝑥𝑆) → 𝐵𝑉)
dvfsum.b2 ((𝜑𝑥𝑍) → 𝐵 ∈ ℝ)
dvfsum.b3 (𝜑 → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
dvfsum.c (𝑥 = 𝑘𝐵 = 𝐶)
dvfsum.u (𝜑𝑈 ∈ ℝ*)
dvfsum.l ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
dvfsum.h 𝐻 = (𝑥𝑆 ↦ (((𝑥 − (⌊‘𝑥)) · 𝐵) + (Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶𝐴)))
dvfsumlem1.1 (𝜑𝑋𝑆)
dvfsumlem1.2 (𝜑𝑌𝑆)
dvfsumlem1.3 (𝜑𝐷𝑋)
dvfsumlem1.4 (𝜑𝑋𝑌)
dvfsumlem1.5 (𝜑𝑌𝑈)
dvfsumlem1.6 (𝜑𝑌 ≤ ((⌊‘𝑋) + 1))
Assertion
Ref Expression
dvfsumlem2OLD (𝜑 → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
Distinct variable groups:   𝐵,𝑘   𝑥,𝐶   𝑥,𝑘,𝐷   𝜑,𝑘,𝑥   𝑆,𝑘,𝑥   𝑘,𝑀,𝑥   𝑥,𝑇   𝑘,𝑌,𝑥   𝑥,𝑍   𝑈,𝑘,𝑥   𝑘,𝑋,𝑥
Allowed substitution hints:   𝐴(𝑥,𝑘)   𝐵(𝑥)   𝐶(𝑘)   𝑇(𝑘)   𝐻(𝑥,𝑘)   𝑉(𝑥,𝑘)   𝑍(𝑘)

Proof of Theorem dvfsumlem2OLD
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 dvfsum.s . . . . . . . . 9 𝑆 = (𝑇(,)+∞)
2 ioossre 13368 . . . . . . . . 9 (𝑇(,)+∞) ⊆ ℝ
31, 2eqsstri 3993 . . . . . . . 8 𝑆 ⊆ ℝ
4 dvfsumlem1.2 . . . . . . . 8 (𝜑𝑌𝑆)
53, 4sselid 3944 . . . . . . 7 (𝜑𝑌 ∈ ℝ)
6 dvfsumlem1.1 . . . . . . . . . . 11 (𝜑𝑋𝑆)
76, 1eleqtrdi 2838 . . . . . . . . . 10 (𝜑𝑋 ∈ (𝑇(,)+∞))
8 dvfsum.t . . . . . . . . . . . 12 (𝜑𝑇 ∈ ℝ)
98rexrd 11224 . . . . . . . . . . 11 (𝜑𝑇 ∈ ℝ*)
10 elioopnf 13404 . . . . . . . . . . 11 (𝑇 ∈ ℝ* → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
119, 10syl 17 . . . . . . . . . 10 (𝜑 → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
127, 11mpbid 232 . . . . . . . . 9 (𝜑 → (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋))
1312simpld 494 . . . . . . . 8 (𝜑𝑋 ∈ ℝ)
14 reflcl 13758 . . . . . . . 8 (𝑋 ∈ ℝ → (⌊‘𝑋) ∈ ℝ)
1513, 14syl 17 . . . . . . 7 (𝜑 → (⌊‘𝑋) ∈ ℝ)
165, 15resubcld 11606 . . . . . 6 (𝜑 → (𝑌 − (⌊‘𝑋)) ∈ ℝ)
17 csbeq1 3865 . . . . . . . 8 (𝑦 = 𝑌𝑦 / 𝑥𝐵 = 𝑌 / 𝑥𝐵)
1817eleq1d 2813 . . . . . . 7 (𝑦 = 𝑌 → (𝑦 / 𝑥𝐵 ∈ ℝ ↔ 𝑌 / 𝑥𝐵 ∈ ℝ))
193a1i 11 . . . . . . . . . 10 (𝜑𝑆 ⊆ ℝ)
20 dvfsum.a . . . . . . . . . 10 ((𝜑𝑥𝑆) → 𝐴 ∈ ℝ)
21 dvfsum.b1 . . . . . . . . . 10 ((𝜑𝑥𝑆) → 𝐵𝑉)
22 dvfsum.b3 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
2319, 20, 21, 22dvmptrecl 25930 . . . . . . . . 9 ((𝜑𝑥𝑆) → 𝐵 ∈ ℝ)
2423fmpttd 7087 . . . . . . . 8 (𝜑 → (𝑥𝑆𝐵):𝑆⟶ℝ)
25 nfcv 2891 . . . . . . . . . 10 𝑦𝐵
26 nfcsb1v 3886 . . . . . . . . . 10 𝑥𝑦 / 𝑥𝐵
27 csbeq1a 3876 . . . . . . . . . 10 (𝑥 = 𝑦𝐵 = 𝑦 / 𝑥𝐵)
2825, 26, 27cbvmpt 5209 . . . . . . . . 9 (𝑥𝑆𝐵) = (𝑦𝑆𝑦 / 𝑥𝐵)
2928fmpt 7082 . . . . . . . 8 (∀𝑦𝑆 𝑦 / 𝑥𝐵 ∈ ℝ ↔ (𝑥𝑆𝐵):𝑆⟶ℝ)
3024, 29sylibr 234 . . . . . . 7 (𝜑 → ∀𝑦𝑆 𝑦 / 𝑥𝐵 ∈ ℝ)
3118, 30, 4rspcdva 3589 . . . . . 6 (𝜑𝑌 / 𝑥𝐵 ∈ ℝ)
3216, 31remulcld 11204 . . . . 5 (𝜑 → ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℝ)
33 csbeq1 3865 . . . . . . 7 (𝑦 = 𝑌𝑦 / 𝑥𝐴 = 𝑌 / 𝑥𝐴)
3433eleq1d 2813 . . . . . 6 (𝑦 = 𝑌 → (𝑦 / 𝑥𝐴 ∈ ℝ ↔ 𝑌 / 𝑥𝐴 ∈ ℝ))
3520fmpttd 7087 . . . . . . 7 (𝜑 → (𝑥𝑆𝐴):𝑆⟶ℝ)
36 nfcv 2891 . . . . . . . . 9 𝑦𝐴
37 nfcsb1v 3886 . . . . . . . . 9 𝑥𝑦 / 𝑥𝐴
38 csbeq1a 3876 . . . . . . . . 9 (𝑥 = 𝑦𝐴 = 𝑦 / 𝑥𝐴)
3936, 37, 38cbvmpt 5209 . . . . . . . 8 (𝑥𝑆𝐴) = (𝑦𝑆𝑦 / 𝑥𝐴)
4039fmpt 7082 . . . . . . 7 (∀𝑦𝑆 𝑦 / 𝑥𝐴 ∈ ℝ ↔ (𝑥𝑆𝐴):𝑆⟶ℝ)
4135, 40sylibr 234 . . . . . 6 (𝜑 → ∀𝑦𝑆 𝑦 / 𝑥𝐴 ∈ ℝ)
4234, 41, 4rspcdva 3589 . . . . 5 (𝜑𝑌 / 𝑥𝐴 ∈ ℝ)
4332, 42resubcld 11606 . . . 4 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
4413, 15resubcld 11606 . . . . . 6 (𝜑 → (𝑋 − (⌊‘𝑋)) ∈ ℝ)
45 csbeq1 3865 . . . . . . . 8 (𝑦 = 𝑋𝑦 / 𝑥𝐵 = 𝑋 / 𝑥𝐵)
4645eleq1d 2813 . . . . . . 7 (𝑦 = 𝑋 → (𝑦 / 𝑥𝐵 ∈ ℝ ↔ 𝑋 / 𝑥𝐵 ∈ ℝ))
4746, 30, 6rspcdva 3589 . . . . . 6 (𝜑𝑋 / 𝑥𝐵 ∈ ℝ)
4844, 47remulcld 11204 . . . . 5 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) ∈ ℝ)
49 csbeq1 3865 . . . . . . 7 (𝑦 = 𝑋𝑦 / 𝑥𝐴 = 𝑋 / 𝑥𝐴)
5049eleq1d 2813 . . . . . 6 (𝑦 = 𝑋 → (𝑦 / 𝑥𝐴 ∈ ℝ ↔ 𝑋 / 𝑥𝐴 ∈ ℝ))
5150, 41, 6rspcdva 3589 . . . . 5 (𝜑𝑋 / 𝑥𝐴 ∈ ℝ)
5248, 51resubcld 11606 . . . 4 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
53 fzfid 13938 . . . . 5 (𝜑 → (𝑀...(⌊‘𝑋)) ∈ Fin)
54 dvfsum.b2 . . . . . . 7 ((𝜑𝑥𝑍) → 𝐵 ∈ ℝ)
5554ralrimiva 3125 . . . . . 6 (𝜑 → ∀𝑥𝑍 𝐵 ∈ ℝ)
56 elfzuz 13481 . . . . . . 7 (𝑘 ∈ (𝑀...(⌊‘𝑋)) → 𝑘 ∈ (ℤ𝑀))
57 dvfsum.z . . . . . . 7 𝑍 = (ℤ𝑀)
5856, 57eleqtrrdi 2839 . . . . . 6 (𝑘 ∈ (𝑀...(⌊‘𝑋)) → 𝑘𝑍)
59 dvfsum.c . . . . . . . 8 (𝑥 = 𝑘𝐵 = 𝐶)
6059eleq1d 2813 . . . . . . 7 (𝑥 = 𝑘 → (𝐵 ∈ ℝ ↔ 𝐶 ∈ ℝ))
6160rspccva 3587 . . . . . 6 ((∀𝑥𝑍 𝐵 ∈ ℝ ∧ 𝑘𝑍) → 𝐶 ∈ ℝ)
6255, 58, 61syl2an 596 . . . . 5 ((𝜑𝑘 ∈ (𝑀...(⌊‘𝑋))) → 𝐶 ∈ ℝ)
6353, 62fsumrecl 15700 . . . 4 (𝜑 → Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶 ∈ ℝ)
6444, 31remulcld 11204 . . . . . 6 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℝ)
6564, 51resubcld 11606 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
665, 13resubcld 11606 . . . . . . . . 9 (𝜑 → (𝑌𝑋) ∈ ℝ)
6731, 66remulcld 11204 . . . . . . . 8 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℝ)
6831recnd 11202 . . . . . . . . . 10 (𝜑𝑌 / 𝑥𝐵 ∈ ℂ)
695recnd 11202 . . . . . . . . . 10 (𝜑𝑌 ∈ ℂ)
7013recnd 11202 . . . . . . . . . 10 (𝜑𝑋 ∈ ℂ)
7168, 69, 70subdid 11634 . . . . . . . . 9 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) = ((𝑌 / 𝑥𝐵 · 𝑌) − (𝑌 / 𝑥𝐵 · 𝑋)))
72 eqid 2729 . . . . . . . . . . 11 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
7372mulcn 24756 . . . . . . . . . . 11 · ∈ (((TopOpen‘ℂfld) ×t (TopOpen‘ℂfld)) Cn (TopOpen‘ℂfld))
74 pnfxr 11228 . . . . . . . . . . . . . . . 16 +∞ ∈ ℝ*
7574a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → +∞ ∈ ℝ*)
7612simprd 495 . . . . . . . . . . . . . . 15 (𝜑𝑇 < 𝑋)
775ltpnfd 13081 . . . . . . . . . . . . . . 15 (𝜑𝑌 < +∞)
78 iccssioo 13376 . . . . . . . . . . . . . . 15 (((𝑇 ∈ ℝ* ∧ +∞ ∈ ℝ*) ∧ (𝑇 < 𝑋𝑌 < +∞)) → (𝑋[,]𝑌) ⊆ (𝑇(,)+∞))
799, 75, 76, 77, 78syl22anc 838 . . . . . . . . . . . . . 14 (𝜑 → (𝑋[,]𝑌) ⊆ (𝑇(,)+∞))
8079, 2sstrdi 3959 . . . . . . . . . . . . 13 (𝜑 → (𝑋[,]𝑌) ⊆ ℝ)
81 ax-resscn 11125 . . . . . . . . . . . . 13 ℝ ⊆ ℂ
8280, 81sstrdi 3959 . . . . . . . . . . . 12 (𝜑 → (𝑋[,]𝑌) ⊆ ℂ)
8381a1i 11 . . . . . . . . . . . 12 (𝜑 → ℝ ⊆ ℂ)
84 cncfmptc 24805 . . . . . . . . . . . 12 ((𝑌 / 𝑥𝐵 ∈ ℝ ∧ (𝑋[,]𝑌) ⊆ ℂ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑌 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
8531, 82, 83, 84syl3anc 1373 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑌 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
86 cncfmptid 24806 . . . . . . . . . . . 12 (((𝑋[,]𝑌) ⊆ ℝ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦) ∈ ((𝑋[,]𝑌)–cn→ℝ))
8780, 81, 86sylancl 586 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦) ∈ ((𝑋[,]𝑌)–cn→ℝ))
88 remulcl 11153 . . . . . . . . . . 11 ((𝑌 / 𝑥𝐵 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑌 / 𝑥𝐵 · 𝑦) ∈ ℝ)
8972, 73, 85, 87, 81, 88cncfmpt2ss 24809 . . . . . . . . . 10 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
90 reelprrecn 11160 . . . . . . . . . . . . 13 ℝ ∈ {ℝ, ℂ}
9190a1i 11 . . . . . . . . . . . 12 (𝜑 → ℝ ∈ {ℝ, ℂ})
92 ioossicc 13394 . . . . . . . . . . . . . . 15 (𝑋(,)𝑌) ⊆ (𝑋[,]𝑌)
9392, 80sstrid 3958 . . . . . . . . . . . . . 14 (𝜑 → (𝑋(,)𝑌) ⊆ ℝ)
9493sselda 3946 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 ∈ ℝ)
9594recnd 11202 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 ∈ ℂ)
96 1cnd 11169 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 1 ∈ ℂ)
97 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
9897recnd 11202 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℂ)
99 1cnd 11169 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℝ) → 1 ∈ ℂ)
10091dvmptid 25861 . . . . . . . . . . . . 13 (𝜑 → (ℝ D (𝑦 ∈ ℝ ↦ 𝑦)) = (𝑦 ∈ ℝ ↦ 1))
10172tgioo2 24691 . . . . . . . . . . . . 13 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
102 iooretop 24653 . . . . . . . . . . . . . 14 (𝑋(,)𝑌) ∈ (topGen‘ran (,))
103102a1i 11 . . . . . . . . . . . . 13 (𝜑 → (𝑋(,)𝑌) ∈ (topGen‘ran (,)))
10491, 98, 99, 100, 93, 101, 72, 103dvmptres 25867 . . . . . . . . . . . 12 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 1))
10591, 95, 96, 104, 68dvmptcmul 25868 . . . . . . . . . . 11 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 1)))
10668mulridd 11191 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐵 · 1) = 𝑌 / 𝑥𝐵)
107106mpteq2dv 5201 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 1)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑌 / 𝑥𝐵))
108105, 107eqtrd 2764 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑌 / 𝑥𝐵))
10979, 1sseqtrrdi 3988 . . . . . . . . . . . 12 (𝜑 → (𝑋[,]𝑌) ⊆ 𝑆)
110109resmptd 6011 . . . . . . . . . . 11 (𝜑 → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) = (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦 / 𝑥𝐴))
11120recnd 11202 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑆) → 𝐴 ∈ ℂ)
112111fmpttd 7087 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑥𝑆𝐴):𝑆⟶ℂ)
11322dmeqd 5869 . . . . . . . . . . . . . . . . 17 (𝜑 → dom (ℝ D (𝑥𝑆𝐴)) = dom (𝑥𝑆𝐵))
11421ralrimiva 3125 . . . . . . . . . . . . . . . . . 18 (𝜑 → ∀𝑥𝑆 𝐵𝑉)
115 dmmptg 6215 . . . . . . . . . . . . . . . . . 18 (∀𝑥𝑆 𝐵𝑉 → dom (𝑥𝑆𝐵) = 𝑆)
116114, 115syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → dom (𝑥𝑆𝐵) = 𝑆)
117113, 116eqtrd 2764 . . . . . . . . . . . . . . . 16 (𝜑 → dom (ℝ D (𝑥𝑆𝐴)) = 𝑆)
118 dvcn 25823 . . . . . . . . . . . . . . . 16 (((ℝ ⊆ ℂ ∧ (𝑥𝑆𝐴):𝑆⟶ℂ ∧ 𝑆 ⊆ ℝ) ∧ dom (ℝ D (𝑥𝑆𝐴)) = 𝑆) → (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ))
11983, 112, 19, 117, 118syl31anc 1375 . . . . . . . . . . . . . . 15 (𝜑 → (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ))
120 cncfcdm 24791 . . . . . . . . . . . . . . 15 ((ℝ ⊆ ℂ ∧ (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ)) → ((𝑥𝑆𝐴) ∈ (𝑆cn→ℝ) ↔ (𝑥𝑆𝐴):𝑆⟶ℝ))
12181, 119, 120sylancr 587 . . . . . . . . . . . . . 14 (𝜑 → ((𝑥𝑆𝐴) ∈ (𝑆cn→ℝ) ↔ (𝑥𝑆𝐴):𝑆⟶ℝ))
12235, 121mpbird 257 . . . . . . . . . . . . 13 (𝜑 → (𝑥𝑆𝐴) ∈ (𝑆cn→ℝ))
12339, 122eqeltrrid 2833 . . . . . . . . . . . 12 (𝜑 → (𝑦𝑆𝑦 / 𝑥𝐴) ∈ (𝑆cn→ℝ))
124 rescncf 24790 . . . . . . . . . . . 12 ((𝑋[,]𝑌) ⊆ 𝑆 → ((𝑦𝑆𝑦 / 𝑥𝐴) ∈ (𝑆cn→ℝ) → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) ∈ ((𝑋[,]𝑌)–cn→ℝ)))
125109, 123, 124sylc 65 . . . . . . . . . . 11 (𝜑 → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
126110, 125eqeltrrd 2829 . . . . . . . . . 10 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦 / 𝑥𝐴) ∈ ((𝑋[,]𝑌)–cn→ℝ))
12741r19.21bi 3229 . . . . . . . . . . . 12 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐴 ∈ ℝ)
128127recnd 11202 . . . . . . . . . . 11 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐴 ∈ ℂ)
12930r19.21bi 3229 . . . . . . . . . . 11 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐵 ∈ ℝ)
13039oveq2i 7398 . . . . . . . . . . . 12 (ℝ D (𝑥𝑆𝐴)) = (ℝ D (𝑦𝑆𝑦 / 𝑥𝐴))
13122, 130, 283eqtr3g 2787 . . . . . . . . . . 11 (𝜑 → (ℝ D (𝑦𝑆𝑦 / 𝑥𝐴)) = (𝑦𝑆𝑦 / 𝑥𝐵))
13292, 109sstrid 3958 . . . . . . . . . . 11 (𝜑 → (𝑋(,)𝑌) ⊆ 𝑆)
13391, 128, 129, 131, 132, 101, 72, 103dvmptres 25867 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦 / 𝑥𝐴)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦 / 𝑥𝐵))
13492sseli 3942 . . . . . . . . . . 11 (𝑦 ∈ (𝑋(,)𝑌) → 𝑦 ∈ (𝑋[,]𝑌))
135 simpl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝜑)
136109sselda 3946 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑆)
1374adantr 480 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌𝑆)
138 dvfsum.d . . . . . . . . . . . . . 14 (𝜑𝐷 ∈ ℝ)
139138adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝐷 ∈ ℝ)
14013adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑋 ∈ ℝ)
141 elicc2 13372 . . . . . . . . . . . . . . . 16 ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝑦 ∈ (𝑋[,]𝑌) ↔ (𝑦 ∈ ℝ ∧ 𝑋𝑦𝑦𝑌)))
14213, 5, 141syl2anc 584 . . . . . . . . . . . . . . 15 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↔ (𝑦 ∈ ℝ ∧ 𝑋𝑦𝑦𝑌)))
143142biimpa 476 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → (𝑦 ∈ ℝ ∧ 𝑋𝑦𝑦𝑌))
144143simp1d 1142 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦 ∈ ℝ)
145 dvfsumlem1.3 . . . . . . . . . . . . . 14 (𝜑𝐷𝑋)
146145adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝐷𝑋)
147143simp2d 1143 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑋𝑦)
148139, 140, 144, 146, 147letrd 11331 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝐷𝑦)
149143simp3d 1144 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑌)
150 dvfsumlem1.5 . . . . . . . . . . . . 13 (𝜑𝑌𝑈)
151150adantr 480 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌𝑈)
152 simp2r 1201 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌𝑆)
153 eleq1 2816 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑘𝑆𝑌𝑆))
154153anbi2d 630 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌 → ((𝑦𝑆𝑘𝑆) ↔ (𝑦𝑆𝑌𝑆)))
155 breq2 5111 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑦𝑘𝑦𝑌))
156 breq1 5110 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑘𝑈𝑌𝑈))
157155, 1563anbi23d 1441 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌 → ((𝐷𝑦𝑦𝑘𝑘𝑈) ↔ (𝐷𝑦𝑦𝑌𝑌𝑈)))
158154, 1573anbi23d 1441 . . . . . . . . . . . . . . 15 (𝑘 = 𝑌 → ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈))))
159 vex 3451 . . . . . . . . . . . . . . . . . 18 𝑘 ∈ V
160159, 59csbie 3897 . . . . . . . . . . . . . . . . 17 𝑘 / 𝑥𝐵 = 𝐶
161 csbeq1 3865 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌𝑘 / 𝑥𝐵 = 𝑌 / 𝑥𝐵)
162160, 161eqtr3id 2778 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌𝐶 = 𝑌 / 𝑥𝐵)
163162breq1d 5117 . . . . . . . . . . . . . . 15 (𝑘 = 𝑌 → (𝐶𝑦 / 𝑥𝐵𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵))
164158, 163imbi12d 344 . . . . . . . . . . . . . 14 (𝑘 = 𝑌 → (((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵) ↔ ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)))
165 nfv 1914 . . . . . . . . . . . . . . . 16 𝑥(𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈))
166 nfcv 2891 . . . . . . . . . . . . . . . . 17 𝑥𝐶
167 nfcv 2891 . . . . . . . . . . . . . . . . 17 𝑥
168166, 167, 26nfbr 5154 . . . . . . . . . . . . . . . 16 𝑥 𝐶𝑦 / 𝑥𝐵
169165, 168nfim 1896 . . . . . . . . . . . . . . 15 𝑥((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)
170 eleq1 2816 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝑥𝑆𝑦𝑆))
171170anbi1d 631 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → ((𝑥𝑆𝑘𝑆) ↔ (𝑦𝑆𝑘𝑆)))
172 breq2 5111 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝐷𝑥𝐷𝑦))
173 breq1 5110 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝑥𝑘𝑦𝑘))
174172, 1733anbi12d 1439 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → ((𝐷𝑥𝑥𝑘𝑘𝑈) ↔ (𝐷𝑦𝑦𝑘𝑘𝑈)))
175171, 1743anbi23d 1441 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑦 → ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈))))
17627breq2d 5119 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑦 → (𝐶𝐵𝐶𝑦 / 𝑥𝐵))
177175, 176imbi12d 344 . . . . . . . . . . . . . . 15 (𝑥 = 𝑦 → (((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵) ↔ ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)))
178 dvfsum.l . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
179169, 177, 178chvarfv 2241 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)
180164, 179vtoclg 3520 . . . . . . . . . . . . 13 (𝑌𝑆 → ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵))
181152, 180mpcom 38 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
182135, 136, 137, 148, 149, 151, 181syl123anc 1389 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
183134, 182sylan2 593 . . . . . . . . . 10 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
18413rexrd 11224 . . . . . . . . . . 11 (𝜑𝑋 ∈ ℝ*)
1855rexrd 11224 . . . . . . . . . . 11 (𝜑𝑌 ∈ ℝ*)
186 dvfsumlem1.4 . . . . . . . . . . 11 (𝜑𝑋𝑌)
187 lbicc2 13425 . . . . . . . . . . 11 ((𝑋 ∈ ℝ*𝑌 ∈ ℝ*𝑋𝑌) → 𝑋 ∈ (𝑋[,]𝑌))
188184, 185, 186, 187syl3anc 1373 . . . . . . . . . 10 (𝜑𝑋 ∈ (𝑋[,]𝑌))
189 ubicc2 13426 . . . . . . . . . . 11 ((𝑋 ∈ ℝ*𝑌 ∈ ℝ*𝑋𝑌) → 𝑌 ∈ (𝑋[,]𝑌))
190184, 185, 186, 189syl3anc 1373 . . . . . . . . . 10 (𝜑𝑌 ∈ (𝑋[,]𝑌))
191 oveq2 7395 . . . . . . . . . 10 (𝑦 = 𝑋 → (𝑌 / 𝑥𝐵 · 𝑦) = (𝑌 / 𝑥𝐵 · 𝑋))
192 oveq2 7395 . . . . . . . . . 10 (𝑦 = 𝑌 → (𝑌 / 𝑥𝐵 · 𝑦) = (𝑌 / 𝑥𝐵 · 𝑌))
19313, 5, 89, 108, 126, 133, 183, 188, 190, 186, 191, 49, 192, 33dvle 25912 . . . . . . . . 9 (𝜑 → ((𝑌 / 𝑥𝐵 · 𝑌) − (𝑌 / 𝑥𝐵 · 𝑋)) ≤ (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴))
19471, 193eqbrtrd 5129 . . . . . . . 8 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ≤ (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴))
19567, 42, 51, 194lesubd 11782 . . . . . . 7 (𝜑𝑋 / 𝑥𝐴 ≤ (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
19664recnd 11202 . . . . . . . . 9 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℂ)
19732recnd 11202 . . . . . . . . 9 (𝜑 → ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℂ)
19842recnd 11202 . . . . . . . . 9 (𝜑𝑌 / 𝑥𝐴 ∈ ℂ)
199196, 197, 198subsubd 11561 . . . . . . . 8 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴))
200197, 196negsubdi2d 11549 . . . . . . . . . . 11 (𝜑 → -(((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)))
20115recnd 11202 . . . . . . . . . . . . . . 15 (𝜑 → (⌊‘𝑋) ∈ ℂ)
20269, 70, 201nnncan2d 11568 . . . . . . . . . . . . . 14 (𝜑 → ((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) = (𝑌𝑋))
203202oveq1d 7402 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) · 𝑌 / 𝑥𝐵) = ((𝑌𝑋) · 𝑌 / 𝑥𝐵))
20416recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → (𝑌 − (⌊‘𝑋)) ∈ ℂ)
20544recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 − (⌊‘𝑋)) ∈ ℂ)
206204, 205, 68subdird 11635 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)))
20766recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → (𝑌𝑋) ∈ ℂ)
208207, 68mulcomd 11195 . . . . . . . . . . . . 13 (𝜑 → ((𝑌𝑋) · 𝑌 / 𝑥𝐵) = (𝑌 / 𝑥𝐵 · (𝑌𝑋)))
209203, 206, 2083eqtr3d 2772 . . . . . . . . . . . 12 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = (𝑌 / 𝑥𝐵 · (𝑌𝑋)))
210209negeqd 11415 . . . . . . . . . . 11 (𝜑 → -(((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = -(𝑌 / 𝑥𝐵 · (𝑌𝑋)))
211200, 210eqtr3d 2766 . . . . . . . . . 10 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = -(𝑌 / 𝑥𝐵 · (𝑌𝑋)))
212211oveq1d 7402 . . . . . . . . 9 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = (-(𝑌 / 𝑥𝐵 · (𝑌𝑋)) + 𝑌 / 𝑥𝐴))
21367recnd 11202 . . . . . . . . . 10 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℂ)
214213, 198negsubdid 11548 . . . . . . . . 9 (𝜑 → -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴) = (-(𝑌 / 𝑥𝐵 · (𝑌𝑋)) + 𝑌 / 𝑥𝐴))
215212, 214eqtr4d 2767 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴))
216213, 198negsubdi2d 11549 . . . . . . . 8 (𝜑 → -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴) = (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
217199, 215, 2163eqtrd 2768 . . . . . . 7 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
218195, 217breqtrrd 5135 . . . . . 6 (𝜑𝑋 / 𝑥𝐴 ≤ (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)))
21951, 64, 43, 218lesubd 11782 . . . . 5 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
220 flle 13761 . . . . . . . . 9 (𝑋 ∈ ℝ → (⌊‘𝑋) ≤ 𝑋)
22113, 220syl 17 . . . . . . . 8 (𝜑 → (⌊‘𝑋) ≤ 𝑋)
22213, 15subge0d 11768 . . . . . . . 8 (𝜑 → (0 ≤ (𝑋 − (⌊‘𝑋)) ↔ (⌊‘𝑋) ≤ 𝑋))
223221, 222mpbird 257 . . . . . . 7 (𝜑 → 0 ≤ (𝑋 − (⌊‘𝑋)))
22445breq2d 5119 . . . . . . . 8 (𝑦 = 𝑋 → (𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵𝑌 / 𝑥𝐵𝑋 / 𝑥𝐵))
225182ralrimiva 3125 . . . . . . . 8 (𝜑 → ∀𝑦 ∈ (𝑋[,]𝑌)𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
226224, 225, 188rspcdva 3589 . . . . . . 7 (𝜑𝑌 / 𝑥𝐵𝑋 / 𝑥𝐵)
22731, 47, 44, 223, 226lemul2ad 12123 . . . . . 6 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ≤ ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵))
22864, 48, 51, 227lesub1dd 11794 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
22943, 65, 52, 219, 228letrd 11331 . . . 4 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
23043, 52, 63, 229leadd1dd 11792 . . 3 (𝜑 → ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) ≤ ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
231 dvfsum.m . . . 4 (𝜑𝑀 ∈ ℤ)
232 dvfsum.md . . . 4 (𝜑𝑀 ≤ (𝐷 + 1))
233 dvfsum.u . . . 4 (𝜑𝑈 ∈ ℝ*)
234 dvfsum.h . . . 4 𝐻 = (𝑥𝑆 ↦ (((𝑥 − (⌊‘𝑥)) · 𝐵) + (Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶𝐴)))
235 dvfsumlem1.6 . . . 4 (𝜑𝑌 ≤ ((⌊‘𝑋) + 1))
2361, 57, 231, 138, 232, 8, 20, 21, 54, 22, 59, 233, 178, 234, 6, 4, 145, 186, 150, 235dvfsumlem1 25932 . . 3 (𝜑 → (𝐻𝑌) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
23713leidd 11744 . . . 4 (𝜑𝑋𝑋)
238184, 185, 233, 186, 150xrletrd 13122 . . . 4 (𝜑𝑋𝑈)
239 fllep1 13763 . . . . 5 (𝑋 ∈ ℝ → 𝑋 ≤ ((⌊‘𝑋) + 1))
24013, 239syl 17 . . . 4 (𝜑𝑋 ≤ ((⌊‘𝑋) + 1))
2411, 57, 231, 138, 232, 8, 20, 21, 54, 22, 59, 233, 178, 234, 6, 6, 145, 237, 238, 240dvfsumlem1 25932 . . 3 (𝜑 → (𝐻𝑋) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
242230, 236, 2413brtr4d 5139 . 2 (𝜑 → (𝐻𝑌) ≤ (𝐻𝑋))
24352, 47resubcld 11606 . . . . 5 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) ∈ ℝ)
24443, 31resubcld 11606 . . . . 5 (𝜑 → ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) ∈ ℝ)
245 peano2rem 11489 . . . . . . . . . . 11 ((𝑋 − (⌊‘𝑋)) ∈ ℝ → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℝ)
24644, 245syl 17 . . . . . . . . . 10 (𝜑 → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℝ)
247246, 47remulcld 11204 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℝ)
248247, 51resubcld 11606 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
249 peano2rem 11489 . . . . . . . . . . 11 ((𝑌 − (⌊‘𝑋)) ∈ ℝ → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
25016, 249syl 17 . . . . . . . . . 10 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
251250, 47remulcld 11204 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℝ)
252251, 42resubcld 11606 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
253250, 31remulcld 11204 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ∈ ℝ)
254253, 42resubcld 11606 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
255247recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℂ)
256251recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℂ)
257255, 256subcld 11533 . . . . . . . . . . . . 13 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) ∈ ℂ)
258257, 198addcomd 11376 . . . . . . . . . . . 12 (𝜑 → (((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = (𝑌 / 𝑥𝐴 + ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
259255, 256, 198subsubd 11561 . . . . . . . . . . . 12 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴))
260198, 256, 255subsub2d 11562 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))) = (𝑌 / 𝑥𝐴 + ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
261258, 259, 2603eqtr4d 2774 . . . . . . . . . . 11 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
262 1cnd 11169 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℂ)
263204, 205, 262nnncan2d 11568 . . . . . . . . . . . . . . 15 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) = ((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))))
264263, 202eqtrd 2764 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) = (𝑌𝑋))
265264oveq1d 7402 . . . . . . . . . . . . 13 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) · 𝑋 / 𝑥𝐵) = ((𝑌𝑋) · 𝑋 / 𝑥𝐵))
266250recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℂ)
267246recnd 11202 . . . . . . . . . . . . . 14 (𝜑 → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℂ)
26847recnd 11202 . . . . . . . . . . . . . 14 (𝜑𝑋 / 𝑥𝐵 ∈ ℂ)
269266, 267, 268subdird 11635 . . . . . . . . . . . . 13 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) · 𝑋 / 𝑥𝐵) = ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)))
270207, 268mulcomd 11195 . . . . . . . . . . . . 13 (𝜑 → ((𝑌𝑋) · 𝑋 / 𝑥𝐵) = (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
271265, 269, 2703eqtr3d 2772 . . . . . . . . . . . 12 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) = (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
272271oveq2d 7403 . . . . . . . . . . 11 (𝜑 → (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))) = (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))))
273261, 272eqtrd 2764 . . . . . . . . . 10 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))))
27447, 66remulcld 11204 . . . . . . . . . . 11 (𝜑 → (𝑋 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℝ)
275 cncfmptc 24805 . . . . . . . . . . . . . . 15 ((𝑋 / 𝑥𝐵 ∈ ℝ ∧ (𝑋[,]𝑌) ⊆ ℂ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑋 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
27647, 82, 83, 275syl3anc 1373 . . . . . . . . . . . . . 14 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑋 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
277 remulcl 11153 . . . . . . . . . . . . . 14 ((𝑋 / 𝑥𝐵 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑋 / 𝑥𝐵 · 𝑦) ∈ ℝ)
27872, 73, 276, 87, 81, 277cncfmpt2ss 24809 . . . . . . . . . . . . 13 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
27991, 95, 96, 104, 268dvmptcmul 25868 . . . . . . . . . . . . . 14 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 1)))
280268mulridd 11191 . . . . . . . . . . . . . . 15 (𝜑 → (𝑋 / 𝑥𝐵 · 1) = 𝑋 / 𝑥𝐵)
281280mpteq2dv 5201 . . . . . . . . . . . . . 14 (𝜑 → (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 1)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑋 / 𝑥𝐵))
282279, 281eqtrd 2764 . . . . . . . . . . . . 13 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑋 / 𝑥𝐵))
2836adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑋𝑆)
284144rexrd 11224 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦 ∈ ℝ*)
285185adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌 ∈ ℝ*)
286233adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑈 ∈ ℝ*)
287284, 285, 286, 149, 151xrletrd 13122 . . . . . . . . . . . . . . 15 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑈)
288 vex 3451 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
289 eleq1 2816 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑘𝑆𝑦𝑆))
290289anbi2d 630 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦 → ((𝑋𝑆𝑘𝑆) ↔ (𝑋𝑆𝑦𝑆)))
291 breq2 5111 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑋𝑘𝑋𝑦))
292 breq1 5110 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑘𝑈𝑦𝑈))
293291, 2923anbi23d 1441 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦 → ((𝐷𝑋𝑋𝑘𝑘𝑈) ↔ (𝐷𝑋𝑋𝑦𝑦𝑈)))
294290, 2933anbi23d 1441 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑦 → ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈))))
295 csbeq1 3865 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦𝑘 / 𝑥𝐵 = 𝑦 / 𝑥𝐵)
296160, 295eqtr3id 2778 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦𝐶 = 𝑦 / 𝑥𝐵)
297296breq1d 5117 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑦 → (𝐶𝑋 / 𝑥𝐵𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵))
298294, 297imbi12d 344 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑦 → (((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵) ↔ ((𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)))
299 simp2l 1200 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝑋𝑆)
300 nfv 1914 . . . . . . . . . . . . . . . . . . 19 𝑥(𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈))
301 nfcsb1v 3886 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑋 / 𝑥𝐵
302166, 167, 301nfbr 5154 . . . . . . . . . . . . . . . . . . 19 𝑥 𝐶𝑋 / 𝑥𝐵
303300, 302nfim 1896 . . . . . . . . . . . . . . . . . 18 𝑥((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)
304 eleq1 2816 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝑥𝑆𝑋𝑆))
305304anbi1d 631 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋 → ((𝑥𝑆𝑘𝑆) ↔ (𝑋𝑆𝑘𝑆)))
306 breq2 5111 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝐷𝑥𝐷𝑋))
307 breq1 5110 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝑥𝑘𝑋𝑘))
308306, 3073anbi12d 1439 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋 → ((𝐷𝑥𝑥𝑘𝑘𝑈) ↔ (𝐷𝑋𝑋𝑘𝑘𝑈)))
309305, 3083anbi23d 1441 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑋 → ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈))))
310 csbeq1a 3876 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋𝐵 = 𝑋 / 𝑥𝐵)
311310breq2d 5119 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑋 → (𝐶𝐵𝐶𝑋 / 𝑥𝐵))
312309, 311imbi12d 344 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑋 → (((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵) ↔ ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)))
313303, 312, 178vtoclg1f 3536 . . . . . . . . . . . . . . . . 17 (𝑋𝑆 → ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵))
314299, 313mpcom 38 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)
315288, 298, 314vtocl 3524 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
316135, 283, 136, 146, 147, 287, 315syl123anc 1389 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
317134, 316sylan2 593 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
318 oveq2 7395 . . . . . . . . . . . . 13 (𝑦 = 𝑋 → (𝑋 / 𝑥𝐵 · 𝑦) = (𝑋 / 𝑥𝐵 · 𝑋))
319 oveq2 7395 . . . . . . . . . . . . 13 (𝑦 = 𝑌 → (𝑋 / 𝑥𝐵 · 𝑦) = (𝑋 / 𝑥𝐵 · 𝑌))
32013, 5, 126, 133, 278, 282, 317, 188, 190, 186, 49, 318, 33, 319dvle 25912 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴) ≤ ((𝑋 / 𝑥𝐵 · 𝑌) − (𝑋 / 𝑥𝐵 · 𝑋)))
321268, 69, 70subdid 11634 . . . . . . . . . . . 12 (𝜑 → (𝑋 / 𝑥𝐵 · (𝑌𝑋)) = ((𝑋 / 𝑥𝐵 · 𝑌) − (𝑋 / 𝑥𝐵 · 𝑋)))
322320, 321breqtrrd 5135 . . . . . . . . . . 11 (𝜑 → (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴) ≤ (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
32342, 51, 274, 322subled 11781 . . . . . . . . . 10 (𝜑 → (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))) ≤ 𝑋 / 𝑥𝐴)
324273, 323eqbrtrd 5129 . . . . . . . . 9 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) ≤ 𝑋 / 𝑥𝐴)
325247, 252, 51, 324subled 11781 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
326250renegcld 11605 . . . . . . . . . . . 12 (𝜑 → -((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
327 1red 11175 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℝ)
3285, 15, 327lesubadd2d 11777 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑌 − (⌊‘𝑋)) ≤ 1 ↔ 𝑌 ≤ ((⌊‘𝑋) + 1)))
329235, 328mpbird 257 . . . . . . . . . . . . . 14 (𝜑 → (𝑌 − (⌊‘𝑋)) ≤ 1)
33016, 327suble0d 11769 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) ≤ 0 ↔ (𝑌 − (⌊‘𝑋)) ≤ 1))
331329, 330mpbird 257 . . . . . . . . . . . . 13 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ≤ 0)
332250le0neg1d 11749 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) ≤ 0 ↔ 0 ≤ -((𝑌 − (⌊‘𝑋)) − 1)))
333331, 332mpbid 232 . . . . . . . . . . . 12 (𝜑 → 0 ≤ -((𝑌 − (⌊‘𝑋)) − 1))
33431, 47, 326, 333, 226lemul2ad 12123 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
335266, 68mulneg1d 11631 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵))
336266, 268mulneg1d 11631 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
337334, 335, 3363brtr3d 5138 . . . . . . . . . 10 (𝜑 → -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
338251, 253lenegd 11757 . . . . . . . . . 10 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ≤ (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ↔ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)))
339337, 338mpbird 257 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ≤ (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵))
340251, 253, 42, 339lesub1dd 11794 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
341248, 252, 254, 325, 340letrd 11331 . . . . . . 7 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
342205, 262, 268subdird 11635 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − (1 · 𝑋 / 𝑥𝐵)))
343268mullidd 11192 . . . . . . . . . 10 (𝜑 → (1 · 𝑋 / 𝑥𝐵) = 𝑋 / 𝑥𝐵)
344343oveq2d 7403 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − (1 · 𝑋 / 𝑥𝐵)) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵))
345342, 344eqtrd 2764 . . . . . . . 8 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵))
346345oveq1d 7402 . . . . . . 7 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
347204, 262, 68subdird 11635 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (1 · 𝑌 / 𝑥𝐵)))
34868mullidd 11192 . . . . . . . . . 10 (𝜑 → (1 · 𝑌 / 𝑥𝐵) = 𝑌 / 𝑥𝐵)
349348oveq2d 7403 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (1 · 𝑌 / 𝑥𝐵)) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵))
350347, 349eqtrd 2764 . . . . . . . 8 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵))
351350oveq1d 7402 . . . . . . 7 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
352341, 346, 3513brtr3d 5138 . . . . . 6 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
35348recnd 11202 . . . . . . 7 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) ∈ ℂ)
35451recnd 11202 . . . . . . 7 (𝜑𝑋 / 𝑥𝐴 ∈ ℂ)
355353, 354, 268sub32d 11565 . . . . . 6 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
356197, 198, 68sub32d 11565 . . . . . 6 (𝜑 → ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
357352, 355, 3563brtr4d 5139 . . . . 5 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) ≤ ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵))
358243, 244, 63, 357leadd1dd 11792 . . . 4 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) ≤ (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
35952recnd 11202 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℂ)
36063recnd 11202 . . . . 5 (𝜑 → Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶 ∈ ℂ)
361359, 360, 268addsubd 11554 . . . 4 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵) = (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
36243recnd 11202 . . . . 5 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℂ)
363362, 360, 68addsubd 11554 . . . 4 (𝜑 → (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵) = (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
364358, 361, 3633brtr4d 5139 . . 3 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵) ≤ (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵))
365241oveq1d 7402 . . 3 (𝜑 → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) = (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵))
366236oveq1d 7402 . . 3 (𝜑 → ((𝐻𝑌) − 𝑌 / 𝑥𝐵) = (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵))
367364, 365, 3663brtr4d 5139 . 2 (𝜑 → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵))
368242, 367jca 511 1 (𝜑 → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1540  wcel 2109  wral 3044  csb 3862  wss 3914  {cpr 4591   class class class wbr 5107  cmpt 5188  dom cdm 5638  ran crn 5639  cres 5640  wf 6507  cfv 6511  (class class class)co 7387  cc 11066  cr 11067  0cc0 11068  1c1 11069   + caddc 11071   · cmul 11073  +∞cpnf 11205  *cxr 11207   < clt 11208  cle 11209  cmin 11405  -cneg 11406  cz 12529  cuz 12793  (,)cioo 13306  [,]cicc 13309  ...cfz 13468  cfl 13752  Σcsu 15652  TopOpenctopn 17384  topGenctg 17400  fldccnfld 21264  cnccncf 24769   D cdv 25764
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-inf2 9594  ax-cnex 11124  ax-resscn 11125  ax-1cn 11126  ax-icn 11127  ax-addcl 11128  ax-addrcl 11129  ax-mulcl 11130  ax-mulrcl 11131  ax-mulcom 11132  ax-addass 11133  ax-mulass 11134  ax-distr 11135  ax-i2m1 11136  ax-1ne0 11137  ax-1rid 11138  ax-rnegex 11139  ax-rrecex 11140  ax-cnre 11141  ax-pre-lttri 11142  ax-pre-lttrn 11143  ax-pre-ltadd 11144  ax-pre-mulgt0 11145  ax-pre-sup 11146  ax-addf 11147  ax-mulf 11148
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3354  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4872  df-int 4911  df-iun 4957  df-iin 4958  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-se 5592  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-isom 6520  df-riota 7344  df-ov 7390  df-oprab 7391  df-mpo 7392  df-of 7653  df-om 7843  df-1st 7968  df-2nd 7969  df-supp 8140  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-1o 8434  df-2o 8435  df-er 8671  df-map 8801  df-pm 8802  df-ixp 8871  df-en 8919  df-dom 8920  df-sdom 8921  df-fin 8922  df-fsupp 9313  df-fi 9362  df-sup 9393  df-inf 9394  df-oi 9463  df-card 9892  df-pnf 11210  df-mnf 11211  df-xr 11212  df-ltxr 11213  df-le 11214  df-sub 11407  df-neg 11408  df-div 11836  df-nn 12187  df-2 12249  df-3 12250  df-4 12251  df-5 12252  df-6 12253  df-7 12254  df-8 12255  df-9 12256  df-n0 12443  df-z 12530  df-dec 12650  df-uz 12794  df-q 12908  df-rp 12952  df-xneg 13072  df-xadd 13073  df-xmul 13074  df-ioo 13310  df-ico 13312  df-icc 13313  df-fz 13469  df-fzo 13616  df-fl 13754  df-seq 13967  df-exp 14027  df-hash 14296  df-cj 15065  df-re 15066  df-im 15067  df-sqrt 15201  df-abs 15202  df-clim 15454  df-sum 15653  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-starv 17235  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ds 17242  df-unif 17243  df-hom 17244  df-cco 17245  df-rest 17385  df-topn 17386  df-0g 17404  df-gsum 17405  df-topgen 17406  df-pt 17407  df-prds 17410  df-xrs 17465  df-qtop 17470  df-imas 17471  df-xps 17473  df-mre 17547  df-mrc 17548  df-acs 17550  df-mgm 18567  df-sgrp 18646  df-mnd 18662  df-submnd 18711  df-mulg 19000  df-cntz 19249  df-cmn 19712  df-psmet 21256  df-xmet 21257  df-met 21258  df-bl 21259  df-mopn 21260  df-fbas 21261  df-fg 21262  df-cnfld 21265  df-top 22781  df-topon 22798  df-topsp 22820  df-bases 22833  df-cld 22906  df-ntr 22907  df-cls 22908  df-nei 22985  df-lp 23023  df-perf 23024  df-cn 23114  df-cnp 23115  df-haus 23202  df-cmp 23274  df-tx 23449  df-hmeo 23642  df-fil 23733  df-fm 23825  df-flim 23826  df-flf 23827  df-xms 24208  df-ms 24209  df-tms 24210  df-cncf 24771  df-limc 25767  df-dv 25768
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator