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

Theorem dvfsumlem2OLD 25950
Description: Obsolete version of dvfsumlem2 25949 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 13328 . . . . . . . . 9 (𝑇(,)+∞) ⊆ ℝ
31, 2eqsstri 3984 . . . . . . . 8 𝑆 ⊆ ℝ
4 dvfsumlem1.2 . . . . . . . 8 (𝜑𝑌𝑆)
53, 4sselid 3935 . . . . . . 7 (𝜑𝑌 ∈ ℝ)
6 dvfsumlem1.1 . . . . . . . . . . 11 (𝜑𝑋𝑆)
76, 1eleqtrdi 2838 . . . . . . . . . 10 (𝜑𝑋 ∈ (𝑇(,)+∞))
8 dvfsum.t . . . . . . . . . . . 12 (𝜑𝑇 ∈ ℝ)
98rexrd 11184 . . . . . . . . . . 11 (𝜑𝑇 ∈ ℝ*)
10 elioopnf 13364 . . . . . . . . . . 11 (𝑇 ∈ ℝ* → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
119, 10syl 17 . . . . . . . . . 10 (𝜑 → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
127, 11mpbid 232 . . . . . . . . 9 (𝜑 → (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋))
1312simpld 494 . . . . . . . 8 (𝜑𝑋 ∈ ℝ)
14 reflcl 13718 . . . . . . . 8 (𝑋 ∈ ℝ → (⌊‘𝑋) ∈ ℝ)
1513, 14syl 17 . . . . . . 7 (𝜑 → (⌊‘𝑋) ∈ ℝ)
165, 15resubcld 11566 . . . . . 6 (𝜑 → (𝑌 − (⌊‘𝑋)) ∈ ℝ)
17 csbeq1 3856 . . . . . . . 8 (𝑦 = 𝑌𝑦 / 𝑥𝐵 = 𝑌 / 𝑥𝐵)
1817eleq1d 2813 . . . . . . 7 (𝑦 = 𝑌 → (𝑦 / 𝑥𝐵 ∈ ℝ ↔ 𝑌 / 𝑥𝐵 ∈ ℝ))
193a1i 11 . . . . . . . . . 10 (𝜑𝑆 ⊆ ℝ)
20 dvfsum.a . . . . . . . . . 10 ((𝜑𝑥𝑆) → 𝐴 ∈ ℝ)
21 dvfsum.b1 . . . . . . . . . 10 ((𝜑𝑥𝑆) → 𝐵𝑉)
22 dvfsum.b3 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
2319, 20, 21, 22dvmptrecl 25946 . . . . . . . . 9 ((𝜑𝑥𝑆) → 𝐵 ∈ ℝ)
2423fmpttd 7053 . . . . . . . 8 (𝜑 → (𝑥𝑆𝐵):𝑆⟶ℝ)
25 nfcv 2891 . . . . . . . . . 10 𝑦𝐵
26 nfcsb1v 3877 . . . . . . . . . 10 𝑥𝑦 / 𝑥𝐵
27 csbeq1a 3867 . . . . . . . . . 10 (𝑥 = 𝑦𝐵 = 𝑦 / 𝑥𝐵)
2825, 26, 27cbvmpt 5197 . . . . . . . . 9 (𝑥𝑆𝐵) = (𝑦𝑆𝑦 / 𝑥𝐵)
2928fmpt 7048 . . . . . . . 8 (∀𝑦𝑆 𝑦 / 𝑥𝐵 ∈ ℝ ↔ (𝑥𝑆𝐵):𝑆⟶ℝ)
3024, 29sylibr 234 . . . . . . 7 (𝜑 → ∀𝑦𝑆 𝑦 / 𝑥𝐵 ∈ ℝ)
3118, 30, 4rspcdva 3580 . . . . . 6 (𝜑𝑌 / 𝑥𝐵 ∈ ℝ)
3216, 31remulcld 11164 . . . . 5 (𝜑 → ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℝ)
33 csbeq1 3856 . . . . . . 7 (𝑦 = 𝑌𝑦 / 𝑥𝐴 = 𝑌 / 𝑥𝐴)
3433eleq1d 2813 . . . . . 6 (𝑦 = 𝑌 → (𝑦 / 𝑥𝐴 ∈ ℝ ↔ 𝑌 / 𝑥𝐴 ∈ ℝ))
3520fmpttd 7053 . . . . . . 7 (𝜑 → (𝑥𝑆𝐴):𝑆⟶ℝ)
36 nfcv 2891 . . . . . . . . 9 𝑦𝐴
37 nfcsb1v 3877 . . . . . . . . 9 𝑥𝑦 / 𝑥𝐴
38 csbeq1a 3867 . . . . . . . . 9 (𝑥 = 𝑦𝐴 = 𝑦 / 𝑥𝐴)
3936, 37, 38cbvmpt 5197 . . . . . . . 8 (𝑥𝑆𝐴) = (𝑦𝑆𝑦 / 𝑥𝐴)
4039fmpt 7048 . . . . . . 7 (∀𝑦𝑆 𝑦 / 𝑥𝐴 ∈ ℝ ↔ (𝑥𝑆𝐴):𝑆⟶ℝ)
4135, 40sylibr 234 . . . . . 6 (𝜑 → ∀𝑦𝑆 𝑦 / 𝑥𝐴 ∈ ℝ)
4234, 41, 4rspcdva 3580 . . . . 5 (𝜑𝑌 / 𝑥𝐴 ∈ ℝ)
4332, 42resubcld 11566 . . . 4 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
4413, 15resubcld 11566 . . . . . 6 (𝜑 → (𝑋 − (⌊‘𝑋)) ∈ ℝ)
45 csbeq1 3856 . . . . . . . 8 (𝑦 = 𝑋𝑦 / 𝑥𝐵 = 𝑋 / 𝑥𝐵)
4645eleq1d 2813 . . . . . . 7 (𝑦 = 𝑋 → (𝑦 / 𝑥𝐵 ∈ ℝ ↔ 𝑋 / 𝑥𝐵 ∈ ℝ))
4746, 30, 6rspcdva 3580 . . . . . 6 (𝜑𝑋 / 𝑥𝐵 ∈ ℝ)
4844, 47remulcld 11164 . . . . 5 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) ∈ ℝ)
49 csbeq1 3856 . . . . . . 7 (𝑦 = 𝑋𝑦 / 𝑥𝐴 = 𝑋 / 𝑥𝐴)
5049eleq1d 2813 . . . . . 6 (𝑦 = 𝑋 → (𝑦 / 𝑥𝐴 ∈ ℝ ↔ 𝑋 / 𝑥𝐴 ∈ ℝ))
5150, 41, 6rspcdva 3580 . . . . 5 (𝜑𝑋 / 𝑥𝐴 ∈ ℝ)
5248, 51resubcld 11566 . . . 4 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
53 fzfid 13898 . . . . 5 (𝜑 → (𝑀...(⌊‘𝑋)) ∈ Fin)
54 dvfsum.b2 . . . . . . 7 ((𝜑𝑥𝑍) → 𝐵 ∈ ℝ)
5554ralrimiva 3121 . . . . . 6 (𝜑 → ∀𝑥𝑍 𝐵 ∈ ℝ)
56 elfzuz 13441 . . . . . . 7 (𝑘 ∈ (𝑀...(⌊‘𝑋)) → 𝑘 ∈ (ℤ𝑀))
57 dvfsum.z . . . . . . 7 𝑍 = (ℤ𝑀)
5856, 57eleqtrrdi 2839 . . . . . 6 (𝑘 ∈ (𝑀...(⌊‘𝑋)) → 𝑘𝑍)
59 dvfsum.c . . . . . . . 8 (𝑥 = 𝑘𝐵 = 𝐶)
6059eleq1d 2813 . . . . . . 7 (𝑥 = 𝑘 → (𝐵 ∈ ℝ ↔ 𝐶 ∈ ℝ))
6160rspccva 3578 . . . . . 6 ((∀𝑥𝑍 𝐵 ∈ ℝ ∧ 𝑘𝑍) → 𝐶 ∈ ℝ)
6255, 58, 61syl2an 596 . . . . 5 ((𝜑𝑘 ∈ (𝑀...(⌊‘𝑋))) → 𝐶 ∈ ℝ)
6353, 62fsumrecl 15659 . . . 4 (𝜑 → Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶 ∈ ℝ)
6444, 31remulcld 11164 . . . . . 6 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℝ)
6564, 51resubcld 11566 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
665, 13resubcld 11566 . . . . . . . . 9 (𝜑 → (𝑌𝑋) ∈ ℝ)
6731, 66remulcld 11164 . . . . . . . 8 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℝ)
6831recnd 11162 . . . . . . . . . 10 (𝜑𝑌 / 𝑥𝐵 ∈ ℂ)
695recnd 11162 . . . . . . . . . 10 (𝜑𝑌 ∈ ℂ)
7013recnd 11162 . . . . . . . . . 10 (𝜑𝑋 ∈ ℂ)
7168, 69, 70subdid 11594 . . . . . . . . 9 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) = ((𝑌 / 𝑥𝐵 · 𝑌) − (𝑌 / 𝑥𝐵 · 𝑋)))
72 eqid 2729 . . . . . . . . . . 11 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
7372mulcn 24772 . . . . . . . . . . 11 · ∈ (((TopOpen‘ℂfld) ×t (TopOpen‘ℂfld)) Cn (TopOpen‘ℂfld))
74 pnfxr 11188 . . . . . . . . . . . . . . . 16 +∞ ∈ ℝ*
7574a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → +∞ ∈ ℝ*)
7612simprd 495 . . . . . . . . . . . . . . 15 (𝜑𝑇 < 𝑋)
775ltpnfd 13041 . . . . . . . . . . . . . . 15 (𝜑𝑌 < +∞)
78 iccssioo 13336 . . . . . . . . . . . . . . 15 (((𝑇 ∈ ℝ* ∧ +∞ ∈ ℝ*) ∧ (𝑇 < 𝑋𝑌 < +∞)) → (𝑋[,]𝑌) ⊆ (𝑇(,)+∞))
799, 75, 76, 77, 78syl22anc 838 . . . . . . . . . . . . . 14 (𝜑 → (𝑋[,]𝑌) ⊆ (𝑇(,)+∞))
8079, 2sstrdi 3950 . . . . . . . . . . . . 13 (𝜑 → (𝑋[,]𝑌) ⊆ ℝ)
81 ax-resscn 11085 . . . . . . . . . . . . 13 ℝ ⊆ ℂ
8280, 81sstrdi 3950 . . . . . . . . . . . 12 (𝜑 → (𝑋[,]𝑌) ⊆ ℂ)
8381a1i 11 . . . . . . . . . . . 12 (𝜑 → ℝ ⊆ ℂ)
84 cncfmptc 24821 . . . . . . . . . . . 12 ((𝑌 / 𝑥𝐵 ∈ ℝ ∧ (𝑋[,]𝑌) ⊆ ℂ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑌 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
8531, 82, 83, 84syl3anc 1373 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑌 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
86 cncfmptid 24822 . . . . . . . . . . . 12 (((𝑋[,]𝑌) ⊆ ℝ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦) ∈ ((𝑋[,]𝑌)–cn→ℝ))
8780, 81, 86sylancl 586 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦) ∈ ((𝑋[,]𝑌)–cn→ℝ))
88 remulcl 11113 . . . . . . . . . . 11 ((𝑌 / 𝑥𝐵 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑌 / 𝑥𝐵 · 𝑦) ∈ ℝ)
8972, 73, 85, 87, 81, 88cncfmpt2ss 24825 . . . . . . . . . 10 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
90 reelprrecn 11120 . . . . . . . . . . . . 13 ℝ ∈ {ℝ, ℂ}
9190a1i 11 . . . . . . . . . . . 12 (𝜑 → ℝ ∈ {ℝ, ℂ})
92 ioossicc 13354 . . . . . . . . . . . . . . 15 (𝑋(,)𝑌) ⊆ (𝑋[,]𝑌)
9392, 80sstrid 3949 . . . . . . . . . . . . . 14 (𝜑 → (𝑋(,)𝑌) ⊆ ℝ)
9493sselda 3937 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 ∈ ℝ)
9594recnd 11162 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 ∈ ℂ)
96 1cnd 11129 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 1 ∈ ℂ)
97 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
9897recnd 11162 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℂ)
99 1cnd 11129 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℝ) → 1 ∈ ℂ)
10091dvmptid 25877 . . . . . . . . . . . . 13 (𝜑 → (ℝ D (𝑦 ∈ ℝ ↦ 𝑦)) = (𝑦 ∈ ℝ ↦ 1))
10172tgioo2 24707 . . . . . . . . . . . . 13 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
102 iooretop 24669 . . . . . . . . . . . . . 14 (𝑋(,)𝑌) ∈ (topGen‘ran (,))
103102a1i 11 . . . . . . . . . . . . 13 (𝜑 → (𝑋(,)𝑌) ∈ (topGen‘ran (,)))
10491, 98, 99, 100, 93, 101, 72, 103dvmptres 25883 . . . . . . . . . . . 12 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 1))
10591, 95, 96, 104, 68dvmptcmul 25884 . . . . . . . . . . 11 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 1)))
10668mulridd 11151 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐵 · 1) = 𝑌 / 𝑥𝐵)
107106mpteq2dv 5189 . . . . . . . . . . 11 (𝜑 → (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 1)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑌 / 𝑥𝐵))
108105, 107eqtrd 2764 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑌 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑌 / 𝑥𝐵))
10979, 1sseqtrrdi 3979 . . . . . . . . . . . 12 (𝜑 → (𝑋[,]𝑌) ⊆ 𝑆)
110109resmptd 5995 . . . . . . . . . . 11 (𝜑 → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) = (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦 / 𝑥𝐴))
11120recnd 11162 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑆) → 𝐴 ∈ ℂ)
112111fmpttd 7053 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑥𝑆𝐴):𝑆⟶ℂ)
11322dmeqd 5852 . . . . . . . . . . . . . . . . 17 (𝜑 → dom (ℝ D (𝑥𝑆𝐴)) = dom (𝑥𝑆𝐵))
11421ralrimiva 3121 . . . . . . . . . . . . . . . . . 18 (𝜑 → ∀𝑥𝑆 𝐵𝑉)
115 dmmptg 6195 . . . . . . . . . . . . . . . . . 18 (∀𝑥𝑆 𝐵𝑉 → dom (𝑥𝑆𝐵) = 𝑆)
116114, 115syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → dom (𝑥𝑆𝐵) = 𝑆)
117113, 116eqtrd 2764 . . . . . . . . . . . . . . . 16 (𝜑 → dom (ℝ D (𝑥𝑆𝐴)) = 𝑆)
118 dvcn 25839 . . . . . . . . . . . . . . . 16 (((ℝ ⊆ ℂ ∧ (𝑥𝑆𝐴):𝑆⟶ℂ ∧ 𝑆 ⊆ ℝ) ∧ dom (ℝ D (𝑥𝑆𝐴)) = 𝑆) → (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ))
11983, 112, 19, 117, 118syl31anc 1375 . . . . . . . . . . . . . . 15 (𝜑 → (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ))
120 cncfcdm 24807 . . . . . . . . . . . . . . 15 ((ℝ ⊆ ℂ ∧ (𝑥𝑆𝐴) ∈ (𝑆cn→ℂ)) → ((𝑥𝑆𝐴) ∈ (𝑆cn→ℝ) ↔ (𝑥𝑆𝐴):𝑆⟶ℝ))
12181, 119, 120sylancr 587 . . . . . . . . . . . . . 14 (𝜑 → ((𝑥𝑆𝐴) ∈ (𝑆cn→ℝ) ↔ (𝑥𝑆𝐴):𝑆⟶ℝ))
12235, 121mpbird 257 . . . . . . . . . . . . 13 (𝜑 → (𝑥𝑆𝐴) ∈ (𝑆cn→ℝ))
12339, 122eqeltrrid 2833 . . . . . . . . . . . 12 (𝜑 → (𝑦𝑆𝑦 / 𝑥𝐴) ∈ (𝑆cn→ℝ))
124 rescncf 24806 . . . . . . . . . . . 12 ((𝑋[,]𝑌) ⊆ 𝑆 → ((𝑦𝑆𝑦 / 𝑥𝐴) ∈ (𝑆cn→ℝ) → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) ∈ ((𝑋[,]𝑌)–cn→ℝ)))
125109, 123, 124sylc 65 . . . . . . . . . . 11 (𝜑 → ((𝑦𝑆𝑦 / 𝑥𝐴) ↾ (𝑋[,]𝑌)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
126110, 125eqeltrrd 2829 . . . . . . . . . 10 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑦 / 𝑥𝐴) ∈ ((𝑋[,]𝑌)–cn→ℝ))
12741r19.21bi 3221 . . . . . . . . . . . 12 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐴 ∈ ℝ)
128127recnd 11162 . . . . . . . . . . 11 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐴 ∈ ℂ)
12930r19.21bi 3221 . . . . . . . . . . 11 ((𝜑𝑦𝑆) → 𝑦 / 𝑥𝐵 ∈ ℝ)
13039oveq2i 7364 . . . . . . . . . . . 12 (ℝ D (𝑥𝑆𝐴)) = (ℝ D (𝑦𝑆𝑦 / 𝑥𝐴))
13122, 130, 283eqtr3g 2787 . . . . . . . . . . 11 (𝜑 → (ℝ D (𝑦𝑆𝑦 / 𝑥𝐴)) = (𝑦𝑆𝑦 / 𝑥𝐵))
13292, 109sstrid 3949 . . . . . . . . . . 11 (𝜑 → (𝑋(,)𝑌) ⊆ 𝑆)
13391, 128, 129, 131, 132, 101, 72, 103dvmptres 25883 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦 / 𝑥𝐴)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑦 / 𝑥𝐵))
13492sseli 3933 . . . . . . . . . . 11 (𝑦 ∈ (𝑋(,)𝑌) → 𝑦 ∈ (𝑋[,]𝑌))
135 simpl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝜑)
136109sselda 3937 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑆)
1374adantr 480 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌𝑆)
138 dvfsum.d . . . . . . . . . . . . . 14 (𝜑𝐷 ∈ ℝ)
139138adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝐷 ∈ ℝ)
14013adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑋 ∈ ℝ)
141 elicc2 13332 . . . . . . . . . . . . . . . 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 11291 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝐷𝑦)
149143simp3d 1144 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑌)
150 dvfsumlem1.5 . . . . . . . . . . . . 13 (𝜑𝑌𝑈)
151150adantr 480 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌𝑈)
152 simp2r 1201 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌𝑆)
153 eleq1 2816 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑘𝑆𝑌𝑆))
154153anbi2d 630 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌 → ((𝑦𝑆𝑘𝑆) ↔ (𝑦𝑆𝑌𝑆)))
155 breq2 5099 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑦𝑘𝑦𝑌))
156 breq1 5098 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌 → (𝑘𝑈𝑌𝑈))
157155, 1563anbi23d 1441 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌 → ((𝐷𝑦𝑦𝑘𝑘𝑈) ↔ (𝐷𝑦𝑦𝑌𝑌𝑈)))
158154, 1573anbi23d 1441 . . . . . . . . . . . . . . 15 (𝑘 = 𝑌 → ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈))))
159 vex 3442 . . . . . . . . . . . . . . . . . 18 𝑘 ∈ V
160159, 59csbie 3888 . . . . . . . . . . . . . . . . 17 𝑘 / 𝑥𝐵 = 𝐶
161 csbeq1 3856 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑌𝑘 / 𝑥𝐵 = 𝑌 / 𝑥𝐵)
162160, 161eqtr3id 2778 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑌𝐶 = 𝑌 / 𝑥𝐵)
163162breq1d 5105 . . . . . . . . . . . . . . 15 (𝑘 = 𝑌 → (𝐶𝑦 / 𝑥𝐵𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵))
164158, 163imbi12d 344 . . . . . . . . . . . . . 14 (𝑘 = 𝑌 → (((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵) ↔ ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)))
165 nfv 1914 . . . . . . . . . . . . . . . 16 𝑥(𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈))
166 nfcv 2891 . . . . . . . . . . . . . . . . 17 𝑥𝐶
167 nfcv 2891 . . . . . . . . . . . . . . . . 17 𝑥
168166, 167, 26nfbr 5142 . . . . . . . . . . . . . . . 16 𝑥 𝐶𝑦 / 𝑥𝐵
169165, 168nfim 1896 . . . . . . . . . . . . . . 15 𝑥((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)
170 eleq1 2816 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝑥𝑆𝑦𝑆))
171170anbi1d 631 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → ((𝑥𝑆𝑘𝑆) ↔ (𝑦𝑆𝑘𝑆)))
172 breq2 5099 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝐷𝑥𝐷𝑦))
173 breq1 5098 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝑥𝑘𝑦𝑘))
174172, 1733anbi12d 1439 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → ((𝐷𝑥𝑥𝑘𝑘𝑈) ↔ (𝐷𝑦𝑦𝑘𝑘𝑈)))
175171, 1743anbi23d 1441 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑦 → ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈))))
17627breq2d 5107 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑦 → (𝐶𝐵𝐶𝑦 / 𝑥𝐵))
177175, 176imbi12d 344 . . . . . . . . . . . . . . 15 (𝑥 = 𝑦 → (((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵) ↔ ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)))
178 dvfsum.l . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
179169, 177, 178chvarfv 2241 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦𝑆𝑘𝑆) ∧ (𝐷𝑦𝑦𝑘𝑘𝑈)) → 𝐶𝑦 / 𝑥𝐵)
180164, 179vtoclg 3511 . . . . . . . . . . . . 13 (𝑌𝑆 → ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵))
181152, 180mpcom 38 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑦𝑆𝑌𝑆) ∧ (𝐷𝑦𝑦𝑌𝑌𝑈)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
182135, 136, 137, 148, 149, 151, 181syl123anc 1389 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
183134, 182sylan2 593 . . . . . . . . . 10 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
18413rexrd 11184 . . . . . . . . . . 11 (𝜑𝑋 ∈ ℝ*)
1855rexrd 11184 . . . . . . . . . . 11 (𝜑𝑌 ∈ ℝ*)
186 dvfsumlem1.4 . . . . . . . . . . 11 (𝜑𝑋𝑌)
187 lbicc2 13385 . . . . . . . . . . 11 ((𝑋 ∈ ℝ*𝑌 ∈ ℝ*𝑋𝑌) → 𝑋 ∈ (𝑋[,]𝑌))
188184, 185, 186, 187syl3anc 1373 . . . . . . . . . 10 (𝜑𝑋 ∈ (𝑋[,]𝑌))
189 ubicc2 13386 . . . . . . . . . . 11 ((𝑋 ∈ ℝ*𝑌 ∈ ℝ*𝑋𝑌) → 𝑌 ∈ (𝑋[,]𝑌))
190184, 185, 186, 189syl3anc 1373 . . . . . . . . . 10 (𝜑𝑌 ∈ (𝑋[,]𝑌))
191 oveq2 7361 . . . . . . . . . 10 (𝑦 = 𝑋 → (𝑌 / 𝑥𝐵 · 𝑦) = (𝑌 / 𝑥𝐵 · 𝑋))
192 oveq2 7361 . . . . . . . . . 10 (𝑦 = 𝑌 → (𝑌 / 𝑥𝐵 · 𝑦) = (𝑌 / 𝑥𝐵 · 𝑌))
19313, 5, 89, 108, 126, 133, 183, 188, 190, 186, 191, 49, 192, 33dvle 25928 . . . . . . . . 9 (𝜑 → ((𝑌 / 𝑥𝐵 · 𝑌) − (𝑌 / 𝑥𝐵 · 𝑋)) ≤ (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴))
19471, 193eqbrtrd 5117 . . . . . . . 8 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ≤ (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴))
19567, 42, 51, 194lesubd 11742 . . . . . . 7 (𝜑𝑋 / 𝑥𝐴 ≤ (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
19664recnd 11162 . . . . . . . . 9 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℂ)
19732recnd 11162 . . . . . . . . 9 (𝜑 → ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ∈ ℂ)
19842recnd 11162 . . . . . . . . 9 (𝜑𝑌 / 𝑥𝐴 ∈ ℂ)
199196, 197, 198subsubd 11521 . . . . . . . 8 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴))
200197, 196negsubdi2d 11509 . . . . . . . . . . 11 (𝜑 → -(((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)))
20115recnd 11162 . . . . . . . . . . . . . . 15 (𝜑 → (⌊‘𝑋) ∈ ℂ)
20269, 70, 201nnncan2d 11528 . . . . . . . . . . . . . 14 (𝜑 → ((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) = (𝑌𝑋))
203202oveq1d 7368 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) · 𝑌 / 𝑥𝐵) = ((𝑌𝑋) · 𝑌 / 𝑥𝐵))
20416recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → (𝑌 − (⌊‘𝑋)) ∈ ℂ)
20544recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 − (⌊‘𝑋)) ∈ ℂ)
206204, 205, 68subdird 11595 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)))
20766recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → (𝑌𝑋) ∈ ℂ)
208207, 68mulcomd 11155 . . . . . . . . . . . . 13 (𝜑 → ((𝑌𝑋) · 𝑌 / 𝑥𝐵) = (𝑌 / 𝑥𝐵 · (𝑌𝑋)))
209203, 206, 2083eqtr3d 2772 . . . . . . . . . . . 12 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = (𝑌 / 𝑥𝐵 · (𝑌𝑋)))
210209negeqd 11375 . . . . . . . . . . 11 (𝜑 → -(((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = -(𝑌 / 𝑥𝐵 · (𝑌𝑋)))
211200, 210eqtr3d 2766 . . . . . . . . . 10 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) = -(𝑌 / 𝑥𝐵 · (𝑌𝑋)))
212211oveq1d 7368 . . . . . . . . 9 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = (-(𝑌 / 𝑥𝐵 · (𝑌𝑋)) + 𝑌 / 𝑥𝐴))
21367recnd 11162 . . . . . . . . . 10 (𝜑 → (𝑌 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℂ)
214213, 198negsubdid 11508 . . . . . . . . 9 (𝜑 → -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴) = (-(𝑌 / 𝑥𝐵 · (𝑌𝑋)) + 𝑌 / 𝑥𝐴))
215212, 214eqtr4d 2767 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − ((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴))
216213, 198negsubdi2d 11509 . . . . . . . 8 (𝜑 → -((𝑌 / 𝑥𝐵 · (𝑌𝑋)) − 𝑌 / 𝑥𝐴) = (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
217199, 215, 2163eqtrd 2768 . . . . . . 7 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − (𝑌 / 𝑥𝐵 · (𝑌𝑋))))
218195, 217breqtrrd 5123 . . . . . 6 (𝜑𝑋 / 𝑥𝐴 ≤ (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)))
21951, 64, 43, 218lesubd 11742 . . . . 5 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
220 flle 13721 . . . . . . . . 9 (𝑋 ∈ ℝ → (⌊‘𝑋) ≤ 𝑋)
22113, 220syl 17 . . . . . . . 8 (𝜑 → (⌊‘𝑋) ≤ 𝑋)
22213, 15subge0d 11728 . . . . . . . 8 (𝜑 → (0 ≤ (𝑋 − (⌊‘𝑋)) ↔ (⌊‘𝑋) ≤ 𝑋))
223221, 222mpbird 257 . . . . . . 7 (𝜑 → 0 ≤ (𝑋 − (⌊‘𝑋)))
22445breq2d 5107 . . . . . . . 8 (𝑦 = 𝑋 → (𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵𝑌 / 𝑥𝐵𝑋 / 𝑥𝐵))
225182ralrimiva 3121 . . . . . . . 8 (𝜑 → ∀𝑦 ∈ (𝑋[,]𝑌)𝑌 / 𝑥𝐵𝑦 / 𝑥𝐵)
226224, 225, 188rspcdva 3580 . . . . . . 7 (𝜑𝑌 / 𝑥𝐵𝑋 / 𝑥𝐵)
22731, 47, 44, 223, 226lemul2ad 12083 . . . . . 6 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) ≤ ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵))
22864, 48, 51, 227lesub1dd 11754 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
22943, 65, 52, 219, 228letrd 11291 . . . 4 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
23043, 52, 63, 229leadd1dd 11752 . . 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 25948 . . 3 (𝜑 → (𝐻𝑌) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
23713leidd 11704 . . . 4 (𝜑𝑋𝑋)
238184, 185, 233, 186, 150xrletrd 13082 . . . 4 (𝜑𝑋𝑈)
239 fllep1 13723 . . . . 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 25948 . . 3 (𝜑 → (𝐻𝑋) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
242230, 236, 2413brtr4d 5127 . 2 (𝜑 → (𝐻𝑌) ≤ (𝐻𝑋))
24352, 47resubcld 11566 . . . . 5 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) ∈ ℝ)
24443, 31resubcld 11566 . . . . 5 (𝜑 → ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) ∈ ℝ)
245 peano2rem 11449 . . . . . . . . . . 11 ((𝑋 − (⌊‘𝑋)) ∈ ℝ → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℝ)
24644, 245syl 17 . . . . . . . . . 10 (𝜑 → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℝ)
247246, 47remulcld 11164 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℝ)
248247, 51resubcld 11566 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℝ)
249 peano2rem 11449 . . . . . . . . . . 11 ((𝑌 − (⌊‘𝑋)) ∈ ℝ → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
25016, 249syl 17 . . . . . . . . . 10 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
251250, 47remulcld 11164 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℝ)
252251, 42resubcld 11566 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
253250, 31remulcld 11164 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ∈ ℝ)
254253, 42resubcld 11566 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℝ)
255247recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℂ)
256251recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ∈ ℂ)
257255, 256subcld 11493 . . . . . . . . . . . . 13 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) ∈ ℂ)
258257, 198addcomd 11336 . . . . . . . . . . . 12 (𝜑 → (((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴) = (𝑌 / 𝑥𝐴 + ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
259255, 256, 198subsubd 11521 . . . . . . . . . . . 12 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) + 𝑌 / 𝑥𝐴))
260198, 256, 255subsub2d 11522 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))) = (𝑌 / 𝑥𝐴 + ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
261258, 259, 2603eqtr4d 2774 . . . . . . . . . . 11 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))))
262 1cnd 11129 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℂ)
263204, 205, 262nnncan2d 11528 . . . . . . . . . . . . . . 15 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) = ((𝑌 − (⌊‘𝑋)) − (𝑋 − (⌊‘𝑋))))
264263, 202eqtrd 2764 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) = (𝑌𝑋))
265264oveq1d 7368 . . . . . . . . . . . . 13 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) · 𝑋 / 𝑥𝐵) = ((𝑌𝑋) · 𝑋 / 𝑥𝐵))
266250recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ∈ ℂ)
267246recnd 11162 . . . . . . . . . . . . . 14 (𝜑 → ((𝑋 − (⌊‘𝑋)) − 1) ∈ ℂ)
26847recnd 11162 . . . . . . . . . . . . . 14 (𝜑𝑋 / 𝑥𝐵 ∈ ℂ)
269266, 267, 268subdird 11595 . . . . . . . . . . . . 13 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) − ((𝑋 − (⌊‘𝑋)) − 1)) · 𝑋 / 𝑥𝐵) = ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)))
270207, 268mulcomd 11155 . . . . . . . . . . . . 13 (𝜑 → ((𝑌𝑋) · 𝑋 / 𝑥𝐵) = (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
271265, 269, 2703eqtr3d 2772 . . . . . . . . . . . 12 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)) = (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
272271oveq2d 7369 . . . . . . . . . . 11 (𝜑 → (𝑌 / 𝑥𝐴 − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))) = (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))))
273261, 272eqtrd 2764 . . . . . . . . . 10 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) = (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))))
27447, 66remulcld 11164 . . . . . . . . . . 11 (𝜑 → (𝑋 / 𝑥𝐵 · (𝑌𝑋)) ∈ ℝ)
275 cncfmptc 24821 . . . . . . . . . . . . . . 15 ((𝑋 / 𝑥𝐵 ∈ ℝ ∧ (𝑋[,]𝑌) ⊆ ℂ ∧ ℝ ⊆ ℂ) → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑋 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
27647, 82, 83, 275syl3anc 1373 . . . . . . . . . . . . . 14 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ 𝑋 / 𝑥𝐵) ∈ ((𝑋[,]𝑌)–cn→ℝ))
277 remulcl 11113 . . . . . . . . . . . . . 14 ((𝑋 / 𝑥𝐵 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑋 / 𝑥𝐵 · 𝑦) ∈ ℝ)
27872, 73, 276, 87, 81, 277cncfmpt2ss 24825 . . . . . . . . . . . . 13 (𝜑 → (𝑦 ∈ (𝑋[,]𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦)) ∈ ((𝑋[,]𝑌)–cn→ℝ))
27991, 95, 96, 104, 268dvmptcmul 25884 . . . . . . . . . . . . . 14 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 1)))
280268mulridd 11151 . . . . . . . . . . . . . . 15 (𝜑 → (𝑋 / 𝑥𝐵 · 1) = 𝑋 / 𝑥𝐵)
281280mpteq2dv 5189 . . . . . . . . . . . . . 14 (𝜑 → (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 1)) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑋 / 𝑥𝐵))
282279, 281eqtrd 2764 . . . . . . . . . . . . 13 (𝜑 → (ℝ D (𝑦 ∈ (𝑋(,)𝑌) ↦ (𝑋 / 𝑥𝐵 · 𝑦))) = (𝑦 ∈ (𝑋(,)𝑌) ↦ 𝑋 / 𝑥𝐵))
2836adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑋𝑆)
284144rexrd 11184 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦 ∈ ℝ*)
285185adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑌 ∈ ℝ*)
286233adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑈 ∈ ℝ*)
287284, 285, 286, 149, 151xrletrd 13082 . . . . . . . . . . . . . . 15 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦𝑈)
288 vex 3442 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
289 eleq1 2816 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑘𝑆𝑦𝑆))
290289anbi2d 630 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦 → ((𝑋𝑆𝑘𝑆) ↔ (𝑋𝑆𝑦𝑆)))
291 breq2 5099 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑋𝑘𝑋𝑦))
292 breq1 5098 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦 → (𝑘𝑈𝑦𝑈))
293291, 2923anbi23d 1441 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦 → ((𝐷𝑋𝑋𝑘𝑘𝑈) ↔ (𝐷𝑋𝑋𝑦𝑦𝑈)))
294290, 2933anbi23d 1441 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑦 → ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈))))
295 csbeq1 3856 . . . . . . . . . . . . . . . . . . 19 (𝑘 = 𝑦𝑘 / 𝑥𝐵 = 𝑦 / 𝑥𝐵)
296160, 295eqtr3id 2778 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑦𝐶 = 𝑦 / 𝑥𝐵)
297296breq1d 5105 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑦 → (𝐶𝑋 / 𝑥𝐵𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵))
298294, 297imbi12d 344 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑦 → (((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵) ↔ ((𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)))
299 simp2l 1200 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝑋𝑆)
300 nfv 1914 . . . . . . . . . . . . . . . . . . 19 𝑥(𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈))
301 nfcsb1v 3877 . . . . . . . . . . . . . . . . . . . 20 𝑥𝑋 / 𝑥𝐵
302166, 167, 301nfbr 5142 . . . . . . . . . . . . . . . . . . 19 𝑥 𝐶𝑋 / 𝑥𝐵
303300, 302nfim 1896 . . . . . . . . . . . . . . . . . 18 𝑥((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)
304 eleq1 2816 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝑥𝑆𝑋𝑆))
305304anbi1d 631 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋 → ((𝑥𝑆𝑘𝑆) ↔ (𝑋𝑆𝑘𝑆)))
306 breq2 5099 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝐷𝑥𝐷𝑋))
307 breq1 5098 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑋 → (𝑥𝑘𝑋𝑘))
308306, 3073anbi12d 1439 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋 → ((𝐷𝑥𝑥𝑘𝑘𝑈) ↔ (𝐷𝑋𝑋𝑘𝑘𝑈)))
309305, 3083anbi23d 1441 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑋 → ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) ↔ (𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈))))
310 csbeq1a 3867 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑋𝐵 = 𝑋 / 𝑥𝐵)
311310breq2d 5107 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑋 → (𝐶𝐵𝐶𝑋 / 𝑥𝐵))
312309, 311imbi12d 344 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑋 → (((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵) ↔ ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)))
313303, 312, 178vtoclg1f 3527 . . . . . . . . . . . . . . . . 17 (𝑋𝑆 → ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵))
314299, 313mpcom 38 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑋𝑆𝑘𝑆) ∧ (𝐷𝑋𝑋𝑘𝑘𝑈)) → 𝐶𝑋 / 𝑥𝐵)
315288, 298, 314vtocl 3515 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑋𝑆𝑦𝑆) ∧ (𝐷𝑋𝑋𝑦𝑦𝑈)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
316135, 283, 136, 146, 147, 287, 315syl123anc 1389 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ (𝑋[,]𝑌)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
317134, 316sylan2 593 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (𝑋(,)𝑌)) → 𝑦 / 𝑥𝐵𝑋 / 𝑥𝐵)
318 oveq2 7361 . . . . . . . . . . . . 13 (𝑦 = 𝑋 → (𝑋 / 𝑥𝐵 · 𝑦) = (𝑋 / 𝑥𝐵 · 𝑋))
319 oveq2 7361 . . . . . . . . . . . . 13 (𝑦 = 𝑌 → (𝑋 / 𝑥𝐵 · 𝑦) = (𝑋 / 𝑥𝐵 · 𝑌))
32013, 5, 126, 133, 278, 282, 317, 188, 190, 186, 49, 318, 33, 319dvle 25928 . . . . . . . . . . . 12 (𝜑 → (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴) ≤ ((𝑋 / 𝑥𝐵 · 𝑌) − (𝑋 / 𝑥𝐵 · 𝑋)))
321268, 69, 70subdid 11594 . . . . . . . . . . . 12 (𝜑 → (𝑋 / 𝑥𝐵 · (𝑌𝑋)) = ((𝑋 / 𝑥𝐵 · 𝑌) − (𝑋 / 𝑥𝐵 · 𝑋)))
322320, 321breqtrrd 5123 . . . . . . . . . . 11 (𝜑 → (𝑌 / 𝑥𝐴𝑋 / 𝑥𝐴) ≤ (𝑋 / 𝑥𝐵 · (𝑌𝑋)))
32342, 51, 274, 322subled 11741 . . . . . . . . . 10 (𝜑 → (𝑌 / 𝑥𝐴 − (𝑋 / 𝑥𝐵 · (𝑌𝑋))) ≤ 𝑋 / 𝑥𝐴)
324273, 323eqbrtrd 5117 . . . . . . . . 9 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴)) ≤ 𝑋 / 𝑥𝐴)
325247, 252, 51, 324subled 11741 . . . . . . . 8 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
326250renegcld 11565 . . . . . . . . . . . 12 (𝜑 → -((𝑌 − (⌊‘𝑋)) − 1) ∈ ℝ)
327 1red 11135 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℝ)
3285, 15, 327lesubadd2d 11737 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑌 − (⌊‘𝑋)) ≤ 1 ↔ 𝑌 ≤ ((⌊‘𝑋) + 1)))
329235, 328mpbird 257 . . . . . . . . . . . . . 14 (𝜑 → (𝑌 − (⌊‘𝑋)) ≤ 1)
33016, 327suble0d 11729 . . . . . . . . . . . . . 14 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) ≤ 0 ↔ (𝑌 − (⌊‘𝑋)) ≤ 1))
331329, 330mpbird 257 . . . . . . . . . . . . 13 (𝜑 → ((𝑌 − (⌊‘𝑋)) − 1) ≤ 0)
332250le0neg1d 11709 . . . . . . . . . . . . 13 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) ≤ 0 ↔ 0 ≤ -((𝑌 − (⌊‘𝑋)) − 1)))
333331, 332mpbid 232 . . . . . . . . . . . 12 (𝜑 → 0 ≤ -((𝑌 − (⌊‘𝑋)) − 1))
33431, 47, 326, 333, 226lemul2ad 12083 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
335266, 68mulneg1d 11591 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵))
336266, 268mulneg1d 11591 . . . . . . . . . . 11 (𝜑 → (-((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
337334, 335, 3363brtr3d 5126 . . . . . . . . . 10 (𝜑 → -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵))
338251, 253lenegd 11717 . . . . . . . . . 10 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ≤ (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ↔ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) ≤ -(((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵)))
339337, 338mpbird 257 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) ≤ (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵))
340251, 253, 42, 339lesub1dd 11754 . . . . . . . 8 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
341248, 252, 254, 325, 340letrd 11291 . . . . . . 7 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
342205, 262, 268subdird 11595 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − (1 · 𝑋 / 𝑥𝐵)))
343268mullidd 11152 . . . . . . . . . 10 (𝜑 → (1 · 𝑋 / 𝑥𝐵) = 𝑋 / 𝑥𝐵)
344343oveq2d 7369 . . . . . . . . 9 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − (1 · 𝑋 / 𝑥𝐵)) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵))
345342, 344eqtrd 2764 . . . . . . . 8 (𝜑 → (((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) = (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵))
346345oveq1d 7368 . . . . . . 7 (𝜑 → ((((𝑋 − (⌊‘𝑋)) − 1) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
347204, 262, 68subdird 11595 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (1 · 𝑌 / 𝑥𝐵)))
34868mullidd 11152 . . . . . . . . . 10 (𝜑 → (1 · 𝑌 / 𝑥𝐵) = 𝑌 / 𝑥𝐵)
349348oveq2d 7369 . . . . . . . . 9 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − (1 · 𝑌 / 𝑥𝐵)) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵))
350347, 349eqtrd 2764 . . . . . . . 8 (𝜑 → (((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) = (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵))
351350oveq1d 7368 . . . . . . 7 (𝜑 → ((((𝑌 − (⌊‘𝑋)) − 1) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
352341, 346, 3513brtr3d 5126 . . . . . 6 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ≤ ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
35348recnd 11162 . . . . . . 7 (𝜑 → ((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) ∈ ℂ)
35451recnd 11162 . . . . . . 7 (𝜑𝑋 / 𝑥𝐴 ∈ ℂ)
355353, 354, 268sub32d 11525 . . . . . 6 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) = ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴))
356197, 198, 68sub32d 11525 . . . . . 6 (𝜑 → ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) = ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴))
357352, 355, 3563brtr4d 5127 . . . . 5 (𝜑 → ((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) ≤ ((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵))
358243, 244, 63, 357leadd1dd 11752 . . . 4 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) ≤ (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
35952recnd 11162 . . . . 5 (𝜑 → (((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) ∈ ℂ)
36063recnd 11162 . . . . 5 (𝜑 → Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶 ∈ ℂ)
361359, 360, 268addsubd 11514 . . . 4 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵) = (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) − 𝑋 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
36243recnd 11162 . . . . 5 (𝜑 → (((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) ∈ ℂ)
363362, 360, 68addsubd 11514 . . . 4 (𝜑 → (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵) = (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) − 𝑌 / 𝑥𝐵) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶))
364358, 361, 3633brtr4d 5127 . . 3 (𝜑 → (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵) ≤ (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵))
365241oveq1d 7368 . . 3 (𝜑 → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) = (((((𝑋 − (⌊‘𝑋)) · 𝑋 / 𝑥𝐵) − 𝑋 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑋 / 𝑥𝐵))
366236oveq1d 7368 . . 3 (𝜑 → ((𝐻𝑌) − 𝑌 / 𝑥𝐵) = (((((𝑌 − (⌊‘𝑋)) · 𝑌 / 𝑥𝐵) − 𝑌 / 𝑥𝐴) + Σ𝑘 ∈ (𝑀...(⌊‘𝑋))𝐶) − 𝑌 / 𝑥𝐵))
367364, 365, 3663brtr4d 5127 . 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 3853  wss 3905  {cpr 4581   class class class wbr 5095  cmpt 5176  dom cdm 5623  ran crn 5624  cres 5625  wf 6482  cfv 6486  (class class class)co 7353  cc 11026  cr 11027  0cc0 11028  1c1 11029   + caddc 11031   · cmul 11033  +∞cpnf 11165  *cxr 11167   < clt 11168  cle 11169  cmin 11365  -cneg 11366  cz 12489  cuz 12753  (,)cioo 13266  [,]cicc 13269  ...cfz 13428  cfl 13712  Σcsu 15611  TopOpenctopn 17343  topGenctg 17359  fldccnfld 21279  cnccncf 24785   D cdv 25780
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 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-inf2 9556  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106  ax-addf 11107  ax-mulf 11108
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 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-iin 4947  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7617  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8632  df-map 8762  df-pm 8763  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9271  df-fi 9320  df-sup 9351  df-inf 9352  df-oi 9421  df-card 9854  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12610  df-uz 12754  df-q 12868  df-rp 12912  df-xneg 13032  df-xadd 13033  df-xmul 13034  df-ioo 13270  df-ico 13272  df-icc 13273  df-fz 13429  df-fzo 13576  df-fl 13714  df-seq 13927  df-exp 13987  df-hash 14256  df-cj 15024  df-re 15025  df-im 15026  df-sqrt 15160  df-abs 15161  df-clim 15413  df-sum 15612  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-mulr 17193  df-starv 17194  df-sca 17195  df-vsca 17196  df-ip 17197  df-tset 17198  df-ple 17199  df-ds 17201  df-unif 17202  df-hom 17203  df-cco 17204  df-rest 17344  df-topn 17345  df-0g 17363  df-gsum 17364  df-topgen 17365  df-pt 17366  df-prds 17369  df-xrs 17424  df-qtop 17429  df-imas 17430  df-xps 17432  df-mre 17506  df-mrc 17507  df-acs 17509  df-mgm 18532  df-sgrp 18611  df-mnd 18627  df-submnd 18676  df-mulg 18965  df-cntz 19214  df-cmn 19679  df-psmet 21271  df-xmet 21272  df-met 21273  df-bl 21274  df-mopn 21275  df-fbas 21276  df-fg 21277  df-cnfld 21280  df-top 22797  df-topon 22814  df-topsp 22836  df-bases 22849  df-cld 22922  df-ntr 22923  df-cls 22924  df-nei 23001  df-lp 23039  df-perf 23040  df-cn 23130  df-cnp 23131  df-haus 23218  df-cmp 23290  df-tx 23465  df-hmeo 23658  df-fil 23749  df-fm 23841  df-flim 23842  df-flf 23843  df-xms 24224  df-ms 24225  df-tms 24226  df-cncf 24787  df-limc 25783  df-dv 25784
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator