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

Theorem dvfsumlem3 24082
Description: Lemma for dvfsumrlim 24085. (Contributed by Mario Carneiro, 17-May-2016.)
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 (𝜑𝑌𝑈)
Assertion
Ref Expression
dvfsumlem3 (𝜑 → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
Distinct variable groups:   𝐵,𝑘   𝑥,𝐶   𝑥,𝑘,𝐷   𝜑,𝑘,𝑥   𝑆,𝑘,𝑥   𝑘,𝑀,𝑥   𝑥,𝑇   𝑘,𝑌,𝑥   𝑥,𝑍   𝑈,𝑘,𝑥   𝑘,𝑋,𝑥
Allowed substitution hints:   𝐴(𝑥,𝑘)   𝐵(𝑥)   𝐶(𝑘)   𝑇(𝑘)   𝐻(𝑥,𝑘)   𝑉(𝑥,𝑘)   𝑍(𝑘)

Proof of Theorem dvfsumlem3
Dummy variables 𝑦 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dvfsum.s . . . 4 𝑆 = (𝑇(,)+∞)
2 ioossre 12437 . . . 4 (𝑇(,)+∞) ⊆ ℝ
31, 2eqsstri 3795 . . 3 𝑆 ⊆ ℝ
4 dvfsumlem1.2 . . 3 (𝜑𝑌𝑆)
53, 4sseldi 3759 . 2 (𝜑𝑌 ∈ ℝ)
6 dvfsumlem1.1 . . . 4 (𝜑𝑋𝑆)
73, 6sseldi 3759 . . 3 (𝜑𝑋 ∈ ℝ)
8 reflcl 12805 . . 3 (𝑋 ∈ ℝ → (⌊‘𝑋) ∈ ℝ)
9 peano2re 10463 . . 3 ((⌊‘𝑋) ∈ ℝ → ((⌊‘𝑋) + 1) ∈ ℝ)
107, 8, 93syl 18 . 2 (𝜑 → ((⌊‘𝑋) + 1) ∈ ℝ)
11 dvfsum.z . . 3 𝑍 = (ℤ𝑀)
12 dvfsum.m . . . 4 (𝜑𝑀 ∈ ℤ)
1312adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑀 ∈ ℤ)
14 dvfsum.d . . . 4 (𝜑𝐷 ∈ ℝ)
1514adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝐷 ∈ ℝ)
16 dvfsum.md . . . 4 (𝜑𝑀 ≤ (𝐷 + 1))
1716adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑀 ≤ (𝐷 + 1))
18 dvfsum.t . . . 4 (𝜑𝑇 ∈ ℝ)
1918adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑇 ∈ ℝ)
20 dvfsum.a . . . 4 ((𝜑𝑥𝑆) → 𝐴 ∈ ℝ)
2120adantlr 706 . . 3 (((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) ∧ 𝑥𝑆) → 𝐴 ∈ ℝ)
22 dvfsum.b1 . . . 4 ((𝜑𝑥𝑆) → 𝐵𝑉)
2322adantlr 706 . . 3 (((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) ∧ 𝑥𝑆) → 𝐵𝑉)
24 dvfsum.b2 . . . 4 ((𝜑𝑥𝑍) → 𝐵 ∈ ℝ)
2524adantlr 706 . . 3 (((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) ∧ 𝑥𝑍) → 𝐵 ∈ ℝ)
26 dvfsum.b3 . . . 4 (𝜑 → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
2726adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
28 dvfsum.c . . 3 (𝑥 = 𝑘𝐵 = 𝐶)
29 dvfsum.u . . . 4 (𝜑𝑈 ∈ ℝ*)
3029adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑈 ∈ ℝ*)
31 dvfsum.l . . . 4 ((𝜑 ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
32313adant1r 1223 . . 3 (((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
33 dvfsum.h . . 3 𝐻 = (𝑥𝑆 ↦ (((𝑥 − (⌊‘𝑥)) · 𝐵) + (Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶𝐴)))
346adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑋𝑆)
354adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑌𝑆)
36 dvfsumlem1.3 . . . 4 (𝜑𝐷𝑋)
3736adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝐷𝑋)
38 dvfsumlem1.4 . . . 4 (𝜑𝑋𝑌)
3938adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑋𝑌)
40 dvfsumlem1.5 . . . 4 (𝜑𝑌𝑈)
4140adantr 472 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑌𝑈)
42 simpr 477 . . 3 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → 𝑌 ≤ ((⌊‘𝑋) + 1))
431, 11, 13, 15, 17, 19, 21, 23, 25, 27, 28, 30, 32, 33, 34, 35, 37, 39, 41, 42dvfsumlem2 24081 . 2 ((𝜑𝑌 ≤ ((⌊‘𝑋) + 1)) → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
443a1i 11 . . . . . . . . . . 11 (𝜑𝑆 ⊆ ℝ)
4544sselda 3761 . . . . . . . . . 10 ((𝜑𝑥𝑆) → 𝑥 ∈ ℝ)
46 reflcl 12805 . . . . . . . . . . 11 (𝑥 ∈ ℝ → (⌊‘𝑥) ∈ ℝ)
4745, 46syl 17 . . . . . . . . . 10 ((𝜑𝑥𝑆) → (⌊‘𝑥) ∈ ℝ)
4845, 47resubcld 10712 . . . . . . . . 9 ((𝜑𝑥𝑆) → (𝑥 − (⌊‘𝑥)) ∈ ℝ)
4944, 20, 22, 26dvmptrecl 24078 . . . . . . . . 9 ((𝜑𝑥𝑆) → 𝐵 ∈ ℝ)
5048, 49remulcld 10324 . . . . . . . 8 ((𝜑𝑥𝑆) → ((𝑥 − (⌊‘𝑥)) · 𝐵) ∈ ℝ)
51 fzfid 12980 . . . . . . . . . 10 ((𝜑𝑥𝑆) → (𝑀...(⌊‘𝑥)) ∈ Fin)
5224ralrimiva 3113 . . . . . . . . . . . 12 (𝜑 → ∀𝑥𝑍 𝐵 ∈ ℝ)
5352adantr 472 . . . . . . . . . . 11 ((𝜑𝑥𝑆) → ∀𝑥𝑍 𝐵 ∈ ℝ)
54 elfzuz 12545 . . . . . . . . . . . 12 (𝑘 ∈ (𝑀...(⌊‘𝑥)) → 𝑘 ∈ (ℤ𝑀))
5554, 11syl6eleqr 2855 . . . . . . . . . . 11 (𝑘 ∈ (𝑀...(⌊‘𝑥)) → 𝑘𝑍)
5628eleq1d 2829 . . . . . . . . . . . 12 (𝑥 = 𝑘 → (𝐵 ∈ ℝ ↔ 𝐶 ∈ ℝ))
5756rspccva 3460 . . . . . . . . . . 11 ((∀𝑥𝑍 𝐵 ∈ ℝ ∧ 𝑘𝑍) → 𝐶 ∈ ℝ)
5853, 55, 57syl2an 589 . . . . . . . . . 10 (((𝜑𝑥𝑆) ∧ 𝑘 ∈ (𝑀...(⌊‘𝑥))) → 𝐶 ∈ ℝ)
5951, 58fsumrecl 14752 . . . . . . . . 9 ((𝜑𝑥𝑆) → Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶 ∈ ℝ)
6059, 20resubcld 10712 . . . . . . . 8 ((𝜑𝑥𝑆) → (Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶𝐴) ∈ ℝ)
6150, 60readdcld 10323 . . . . . . 7 ((𝜑𝑥𝑆) → (((𝑥 − (⌊‘𝑥)) · 𝐵) + (Σ𝑘 ∈ (𝑀...(⌊‘𝑥))𝐶𝐴)) ∈ ℝ)
6261, 33fmptd 6574 . . . . . 6 (𝜑𝐻:𝑆⟶ℝ)
6362adantr 472 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝐻:𝑆⟶ℝ)
644adantr 472 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌𝑆)
6563, 64ffvelrnd 6550 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻𝑌) ∈ ℝ)
665adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌 ∈ ℝ)
67 reflcl 12805 . . . . . . . 8 (𝑌 ∈ ℝ → (⌊‘𝑌) ∈ ℝ)
6866, 67syl 17 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ ℝ)
6918adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑇 ∈ ℝ)
707adantr 472 . . . . . . . . 9 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑋 ∈ ℝ)
7170, 8, 93syl 18 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ∈ ℝ)
726, 1syl6eleq 2854 . . . . . . . . . . . 12 (𝜑𝑋 ∈ (𝑇(,)+∞))
7318rexrd 10343 . . . . . . . . . . . . 13 (𝜑𝑇 ∈ ℝ*)
74 elioopnf 12470 . . . . . . . . . . . . 13 (𝑇 ∈ ℝ* → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
7573, 74syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑋 ∈ (𝑇(,)+∞) ↔ (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋)))
7672, 75mpbid 223 . . . . . . . . . . 11 (𝜑 → (𝑋 ∈ ℝ ∧ 𝑇 < 𝑋))
7776simprd 489 . . . . . . . . . 10 (𝜑𝑇 < 𝑋)
78 fllep1 12810 . . . . . . . . . . 11 (𝑋 ∈ ℝ → 𝑋 ≤ ((⌊‘𝑋) + 1))
797, 78syl 17 . . . . . . . . . 10 (𝜑𝑋 ≤ ((⌊‘𝑋) + 1))
8018, 7, 10, 77, 79ltletrd 10451 . . . . . . . . 9 (𝜑𝑇 < ((⌊‘𝑋) + 1))
8180adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑇 < ((⌊‘𝑋) + 1))
82 simpr 477 . . . . . . . . 9 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ≤ 𝑌)
8370flcld 12807 . . . . . . . . . . 11 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑋) ∈ ℤ)
8483peano2zd 11732 . . . . . . . . . 10 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ∈ ℤ)
85 flge 12814 . . . . . . . . . 10 ((𝑌 ∈ ℝ ∧ ((⌊‘𝑋) + 1) ∈ ℤ) → (((⌊‘𝑋) + 1) ≤ 𝑌 ↔ ((⌊‘𝑋) + 1) ≤ (⌊‘𝑌)))
8666, 84, 85syl2anc 579 . . . . . . . . 9 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (((⌊‘𝑋) + 1) ≤ 𝑌 ↔ ((⌊‘𝑋) + 1) ≤ (⌊‘𝑌)))
8782, 86mpbid 223 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ≤ (⌊‘𝑌))
8869, 71, 68, 81, 87ltletrd 10451 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑇 < (⌊‘𝑌))
8973adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑇 ∈ ℝ*)
90 elioopnf 12470 . . . . . . . 8 (𝑇 ∈ ℝ* → ((⌊‘𝑌) ∈ (𝑇(,)+∞) ↔ ((⌊‘𝑌) ∈ ℝ ∧ 𝑇 < (⌊‘𝑌))))
9189, 90syl 17 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑌) ∈ (𝑇(,)+∞) ↔ ((⌊‘𝑌) ∈ ℝ ∧ 𝑇 < (⌊‘𝑌))))
9268, 88, 91mpbir2and 704 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ (𝑇(,)+∞))
9392, 1syl6eleqr 2855 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ 𝑆)
9463, 93ffvelrnd 6550 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻‘(⌊‘𝑌)) ∈ ℝ)
956adantr 472 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑋𝑆)
9663, 95ffvelrnd 6550 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻𝑋) ∈ ℝ)
9712adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑀 ∈ ℤ)
9814adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝐷 ∈ ℝ)
9916adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑀 ≤ (𝐷 + 1))
10020adantlr 706 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑥𝑆) → 𝐴 ∈ ℝ)
10122adantlr 706 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑥𝑆) → 𝐵𝑉)
10224adantlr 706 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑥𝑍) → 𝐵 ∈ ℝ)
10326adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
10429adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑈 ∈ ℝ*)
105313adant1r 1223 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
10636adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝐷𝑋)
10770, 78syl 17 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑋 ≤ ((⌊‘𝑋) + 1))
10898, 70, 71, 106, 107letrd 10448 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝐷 ≤ ((⌊‘𝑋) + 1))
10998, 71, 68, 108, 87letrd 10448 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝐷 ≤ (⌊‘𝑌))
110 flle 12808 . . . . . . 7 (𝑌 ∈ ℝ → (⌊‘𝑌) ≤ 𝑌)
11166, 110syl 17 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ≤ 𝑌)
11240adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌𝑈)
113 fllep1 12810 . . . . . . . 8 (𝑌 ∈ ℝ → 𝑌 ≤ ((⌊‘𝑌) + 1))
11466, 113syl 17 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌 ≤ ((⌊‘𝑌) + 1))
115 flidm 12818 . . . . . . . . 9 (𝑌 ∈ ℝ → (⌊‘(⌊‘𝑌)) = (⌊‘𝑌))
11666, 115syl 17 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘(⌊‘𝑌)) = (⌊‘𝑌))
117116oveq1d 6857 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘(⌊‘𝑌)) + 1) = ((⌊‘𝑌) + 1))
118114, 117breqtrrd 4837 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌 ≤ ((⌊‘(⌊‘𝑌)) + 1))
1191, 11, 97, 98, 99, 69, 100, 101, 102, 103, 28, 104, 105, 33, 93, 64, 109, 111, 112, 118dvfsumlem2 24081 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑌) ≤ (𝐻‘(⌊‘𝑌)) ∧ ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
120119simpld 488 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻𝑌) ≤ (𝐻‘(⌊‘𝑌)))
121 elioopnf 12470 . . . . . . . . . 10 (𝑇 ∈ ℝ* → (((⌊‘𝑋) + 1) ∈ (𝑇(,)+∞) ↔ (((⌊‘𝑋) + 1) ∈ ℝ ∧ 𝑇 < ((⌊‘𝑋) + 1))))
12273, 121syl 17 . . . . . . . . 9 (𝜑 → (((⌊‘𝑋) + 1) ∈ (𝑇(,)+∞) ↔ (((⌊‘𝑋) + 1) ∈ ℝ ∧ 𝑇 < ((⌊‘𝑋) + 1))))
12310, 80, 122mpbir2and 704 . . . . . . . 8 (𝜑 → ((⌊‘𝑋) + 1) ∈ (𝑇(,)+∞))
124123, 1syl6eleqr 2855 . . . . . . 7 (𝜑 → ((⌊‘𝑋) + 1) ∈ 𝑆)
125124adantr 472 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ∈ 𝑆)
12663, 125ffvelrnd 6550 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻‘((⌊‘𝑋) + 1)) ∈ ℝ)
12766flcld 12807 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ ℤ)
128 eluz2 11892 . . . . . . 7 ((⌊‘𝑌) ∈ (ℤ‘((⌊‘𝑋) + 1)) ↔ (((⌊‘𝑋) + 1) ∈ ℤ ∧ (⌊‘𝑌) ∈ ℤ ∧ ((⌊‘𝑋) + 1) ≤ (⌊‘𝑌)))
12984, 127, 87, 128syl3anbrc 1443 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ (ℤ‘((⌊‘𝑋) + 1)))
13063adantr 472 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝐻:𝑆⟶ℝ)
131 elfzelz 12549 . . . . . . . . . . 11 (𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌)) → 𝑚 ∈ ℤ)
132131adantl 473 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑚 ∈ ℤ)
133132zred 11729 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑚 ∈ ℝ)
13469adantr 472 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑇 ∈ ℝ)
13571adantr 472 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → ((⌊‘𝑋) + 1) ∈ ℝ)
13680ad2antrr 717 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑇 < ((⌊‘𝑋) + 1))
137 elfzle1 12551 . . . . . . . . . . 11 (𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌)) → ((⌊‘𝑋) + 1) ≤ 𝑚)
138137adantl 473 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → ((⌊‘𝑋) + 1) ≤ 𝑚)
139134, 135, 133, 136, 138ltletrd 10451 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑇 < 𝑚)
14073ad2antrr 717 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑇 ∈ ℝ*)
141 elioopnf 12470 . . . . . . . . . 10 (𝑇 ∈ ℝ* → (𝑚 ∈ (𝑇(,)+∞) ↔ (𝑚 ∈ ℝ ∧ 𝑇 < 𝑚)))
142140, 141syl 17 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → (𝑚 ∈ (𝑇(,)+∞) ↔ (𝑚 ∈ ℝ ∧ 𝑇 < 𝑚)))
143133, 139, 142mpbir2and 704 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑚 ∈ (𝑇(,)+∞))
144143, 1syl6eleqr 2855 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑚𝑆)
145130, 144ffvelrnd 6550 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → (𝐻𝑚) ∈ ℝ)
14697adantr 472 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑀 ∈ ℤ)
14798adantr 472 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝐷 ∈ ℝ)
14816ad2antrr 717 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑀 ≤ (𝐷 + 1))
14969adantr 472 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑇 ∈ ℝ)
150100adantlr 706 . . . . . . . 8 ((((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) ∧ 𝑥𝑆) → 𝐴 ∈ ℝ)
151101adantlr 706 . . . . . . . 8 ((((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) ∧ 𝑥𝑆) → 𝐵𝑉)
152102adantlr 706 . . . . . . . 8 ((((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) ∧ 𝑥𝑍) → 𝐵 ∈ ℝ)
153103adantr 472 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (ℝ D (𝑥𝑆𝐴)) = (𝑥𝑆𝐵))
154104adantr 472 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑈 ∈ ℝ*)
1551053adant1r 1223 . . . . . . . 8 ((((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) ∧ (𝑥𝑆𝑘𝑆) ∧ (𝐷𝑥𝑥𝑘𝑘𝑈)) → 𝐶𝐵)
156 elfzelz 12549 . . . . . . . . . . . 12 (𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1)) → 𝑚 ∈ ℤ)
157156adantl 473 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 ∈ ℤ)
158157zred 11729 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 ∈ ℝ)
15971adantr 472 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((⌊‘𝑋) + 1) ∈ ℝ)
16080ad2antrr 717 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑇 < ((⌊‘𝑋) + 1))
161 elfzle1 12551 . . . . . . . . . . . 12 (𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1)) → ((⌊‘𝑋) + 1) ≤ 𝑚)
162161adantl 473 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((⌊‘𝑋) + 1) ≤ 𝑚)
163149, 159, 158, 160, 162ltletrd 10451 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑇 < 𝑚)
164149rexrd 10343 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑇 ∈ ℝ*)
165164, 141syl 17 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 ∈ (𝑇(,)+∞) ↔ (𝑚 ∈ ℝ ∧ 𝑇 < 𝑚)))
166158, 163, 165mpbir2and 704 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 ∈ (𝑇(,)+∞))
167166, 1syl6eleqr 2855 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚𝑆)
168 peano2re 10463 . . . . . . . . . . 11 (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
169158, 168syl 17 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ∈ ℝ)
170158lep1d 11209 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 ≤ (𝑚 + 1))
171149, 158, 169, 163, 170ltletrd 10451 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑇 < (𝑚 + 1))
172 elioopnf 12470 . . . . . . . . . . 11 (𝑇 ∈ ℝ* → ((𝑚 + 1) ∈ (𝑇(,)+∞) ↔ ((𝑚 + 1) ∈ ℝ ∧ 𝑇 < (𝑚 + 1))))
173164, 172syl 17 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((𝑚 + 1) ∈ (𝑇(,)+∞) ↔ ((𝑚 + 1) ∈ ℝ ∧ 𝑇 < (𝑚 + 1))))
174169, 171, 173mpbir2and 704 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ∈ (𝑇(,)+∞))
175174, 1syl6eleqr 2855 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ∈ 𝑆)
176108adantr 472 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝐷 ≤ ((⌊‘𝑋) + 1))
177147, 159, 158, 176, 162letrd 10448 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝐷𝑚)
178169rexrd 10343 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ∈ ℝ*)
17968rexrd 10343 . . . . . . . . . 10 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ∈ ℝ*)
180179adantr 472 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (⌊‘𝑌) ∈ ℝ*)
181 elfzle2 12552 . . . . . . . . . . 11 (𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1)) → 𝑚 ≤ ((⌊‘𝑌) − 1))
182181adantl 473 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 ≤ ((⌊‘𝑌) − 1))
183 1red 10294 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 1 ∈ ℝ)
18466adantr 472 . . . . . . . . . . . 12 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑌 ∈ ℝ)
185184, 67syl 17 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (⌊‘𝑌) ∈ ℝ)
186 leaddsub 10758 . . . . . . . . . . 11 ((𝑚 ∈ ℝ ∧ 1 ∈ ℝ ∧ (⌊‘𝑌) ∈ ℝ) → ((𝑚 + 1) ≤ (⌊‘𝑌) ↔ 𝑚 ≤ ((⌊‘𝑌) − 1)))
187158, 183, 185, 186syl3anc 1490 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((𝑚 + 1) ≤ (⌊‘𝑌) ↔ 𝑚 ≤ ((⌊‘𝑌) − 1)))
188182, 187mpbird 248 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ≤ (⌊‘𝑌))
18966rexrd 10343 . . . . . . . . . . 11 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌 ∈ ℝ*)
190179, 189, 104, 111, 112xrletrd 12195 . . . . . . . . . 10 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) ≤ 𝑈)
191190adantr 472 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (⌊‘𝑌) ≤ 𝑈)
192178, 180, 154, 188, 191xrletrd 12195 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ≤ 𝑈)
193 flid 12817 . . . . . . . . . . . 12 (𝑚 ∈ ℤ → (⌊‘𝑚) = 𝑚)
194157, 193syl 17 . . . . . . . . . . 11 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (⌊‘𝑚) = 𝑚)
195194eqcomd 2771 . . . . . . . . . 10 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → 𝑚 = (⌊‘𝑚))
196195oveq1d 6857 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) = ((⌊‘𝑚) + 1))
197 eqle 10393 . . . . . . . . 9 (((𝑚 + 1) ∈ ℝ ∧ (𝑚 + 1) = ((⌊‘𝑚) + 1)) → (𝑚 + 1) ≤ ((⌊‘𝑚) + 1))
198169, 196, 197syl2anc 579 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝑚 + 1) ≤ ((⌊‘𝑚) + 1))
1991, 11, 146, 147, 148, 149, 150, 151, 152, 153, 28, 154, 155, 33, 167, 175, 177, 170, 192, 198dvfsumlem2 24081 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((𝐻‘(𝑚 + 1)) ≤ (𝐻𝑚) ∧ ((𝐻𝑚) − 𝑚 / 𝑥𝐵) ≤ ((𝐻‘(𝑚 + 1)) − (𝑚 + 1) / 𝑥𝐵)))
200199simpld 488 . . . . . 6 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → (𝐻‘(𝑚 + 1)) ≤ (𝐻𝑚))
201129, 145, 200monoord2 13039 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻‘(⌊‘𝑌)) ≤ (𝐻‘((⌊‘𝑋) + 1)))
20271rexrd 10343 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ∈ ℝ*)
203202, 179, 104, 87, 190xrletrd 12195 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ≤ 𝑈)
20471leidd 10848 . . . . . . 7 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) ≤ ((⌊‘𝑋) + 1))
2051, 11, 97, 98, 99, 69, 100, 101, 102, 103, 28, 104, 105, 33, 95, 125, 106, 107, 203, 204dvfsumlem2 24081 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻‘((⌊‘𝑋) + 1)) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵)))
206205simpld 488 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻‘((⌊‘𝑋) + 1)) ≤ (𝐻𝑋))
20794, 126, 96, 201, 206letrd 10448 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻‘(⌊‘𝑌)) ≤ (𝐻𝑋))
20865, 94, 96, 120, 207letrd 10448 . . 3 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (𝐻𝑌) ≤ (𝐻𝑋))
209 csbeq1 3694 . . . . . . 7 (𝑚 = 𝑋𝑚 / 𝑥𝐵 = 𝑋 / 𝑥𝐵)
210209eleq1d 2829 . . . . . 6 (𝑚 = 𝑋 → (𝑚 / 𝑥𝐵 ∈ ℝ ↔ 𝑋 / 𝑥𝐵 ∈ ℝ))
21149ralrimiva 3113 . . . . . . . . 9 (𝜑 → ∀𝑥𝑆 𝐵 ∈ ℝ)
212211adantr 472 . . . . . . . 8 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ∀𝑥𝑆 𝐵 ∈ ℝ)
213 nfcsb1v 3707 . . . . . . . . . 10 𝑥𝑚 / 𝑥𝐵
214213nfel1 2922 . . . . . . . . 9 𝑥𝑚 / 𝑥𝐵 ∈ ℝ
215 csbeq1a 3700 . . . . . . . . . 10 (𝑥 = 𝑚𝐵 = 𝑚 / 𝑥𝐵)
216215eleq1d 2829 . . . . . . . . 9 (𝑥 = 𝑚 → (𝐵 ∈ ℝ ↔ 𝑚 / 𝑥𝐵 ∈ ℝ))
217214, 216rspc 3455 . . . . . . . 8 (𝑚𝑆 → (∀𝑥𝑆 𝐵 ∈ ℝ → 𝑚 / 𝑥𝐵 ∈ ℝ))
218212, 217mpan9 502 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚𝑆) → 𝑚 / 𝑥𝐵 ∈ ℝ)
219218ralrimiva 3113 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ∀𝑚𝑆 𝑚 / 𝑥𝐵 ∈ ℝ)
220210, 219, 95rspcdva 3467 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑋 / 𝑥𝐵 ∈ ℝ)
22196, 220resubcld 10712 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ∈ ℝ)
222 csbeq1 3694 . . . . . . 7 (𝑚 = (⌊‘𝑌) → 𝑚 / 𝑥𝐵 = (⌊‘𝑌) / 𝑥𝐵)
223222eleq1d 2829 . . . . . 6 (𝑚 = (⌊‘𝑌) → (𝑚 / 𝑥𝐵 ∈ ℝ ↔ (⌊‘𝑌) / 𝑥𝐵 ∈ ℝ))
224223, 219, 93rspcdva 3467 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → (⌊‘𝑌) / 𝑥𝐵 ∈ ℝ)
22594, 224resubcld 10712 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵) ∈ ℝ)
226 csbeq1 3694 . . . . . . 7 (𝑚 = 𝑌𝑚 / 𝑥𝐵 = 𝑌 / 𝑥𝐵)
227226eleq1d 2829 . . . . . 6 (𝑚 = 𝑌 → (𝑚 / 𝑥𝐵 ∈ ℝ ↔ 𝑌 / 𝑥𝐵 ∈ ℝ))
228227, 219, 64rspcdva 3467 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → 𝑌 / 𝑥𝐵 ∈ ℝ)
22965, 228resubcld 10712 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑌) − 𝑌 / 𝑥𝐵) ∈ ℝ)
230 csbeq1 3694 . . . . . . . 8 (𝑚 = ((⌊‘𝑋) + 1) → 𝑚 / 𝑥𝐵 = ((⌊‘𝑋) + 1) / 𝑥𝐵)
231230eleq1d 2829 . . . . . . 7 (𝑚 = ((⌊‘𝑋) + 1) → (𝑚 / 𝑥𝐵 ∈ ℝ ↔ ((⌊‘𝑋) + 1) / 𝑥𝐵 ∈ ℝ))
232231, 219, 125rspcdva 3467 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((⌊‘𝑋) + 1) / 𝑥𝐵 ∈ ℝ)
233126, 232resubcld 10712 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵) ∈ ℝ)
234205simprd 489 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵))
235 vex 3353 . . . . . . . . 9 𝑚 ∈ V
236 fveq2 6375 . . . . . . . . . . 11 (𝑦 = 𝑚 → (𝐻𝑦) = (𝐻𝑚))
237 csbeq1 3694 . . . . . . . . . . 11 (𝑦 = 𝑚𝑦 / 𝑥𝐵 = 𝑚 / 𝑥𝐵)
238236, 237oveq12d 6860 . . . . . . . . . 10 (𝑦 = 𝑚 → ((𝐻𝑦) − 𝑦 / 𝑥𝐵) = ((𝐻𝑚) − 𝑚 / 𝑥𝐵))
239 eqid 2765 . . . . . . . . . 10 (𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵)) = (𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))
240 ovex 6874 . . . . . . . . . 10 ((𝐻𝑦) − 𝑦 / 𝑥𝐵) ∈ V
241238, 239, 240fvmpt3i 6476 . . . . . . . . 9 (𝑚 ∈ V → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘𝑚) = ((𝐻𝑚) − 𝑚 / 𝑥𝐵))
242235, 241ax-mp 5 . . . . . . . 8 ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘𝑚) = ((𝐻𝑚) − 𝑚 / 𝑥𝐵)
243144, 218syldan 585 . . . . . . . . 9 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → 𝑚 / 𝑥𝐵 ∈ ℝ)
244145, 243resubcld 10712 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → ((𝐻𝑚) − 𝑚 / 𝑥𝐵) ∈ ℝ)
245242, 244syl5eqel 2848 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...(⌊‘𝑌))) → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘𝑚) ∈ ℝ)
246199simprd 489 . . . . . . . 8 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((𝐻𝑚) − 𝑚 / 𝑥𝐵) ≤ ((𝐻‘(𝑚 + 1)) − (𝑚 + 1) / 𝑥𝐵))
247 ovex 6874 . . . . . . . . 9 (𝑚 + 1) ∈ V
248 fveq2 6375 . . . . . . . . . . 11 (𝑦 = (𝑚 + 1) → (𝐻𝑦) = (𝐻‘(𝑚 + 1)))
249 csbeq1 3694 . . . . . . . . . . 11 (𝑦 = (𝑚 + 1) → 𝑦 / 𝑥𝐵 = (𝑚 + 1) / 𝑥𝐵)
250248, 249oveq12d 6860 . . . . . . . . . 10 (𝑦 = (𝑚 + 1) → ((𝐻𝑦) − 𝑦 / 𝑥𝐵) = ((𝐻‘(𝑚 + 1)) − (𝑚 + 1) / 𝑥𝐵))
251250, 239, 240fvmpt3i 6476 . . . . . . . . 9 ((𝑚 + 1) ∈ V → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(𝑚 + 1)) = ((𝐻‘(𝑚 + 1)) − (𝑚 + 1) / 𝑥𝐵))
252247, 251ax-mp 5 . . . . . . . 8 ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(𝑚 + 1)) = ((𝐻‘(𝑚 + 1)) − (𝑚 + 1) / 𝑥𝐵)
253246, 242, 2523brtr4g 4843 . . . . . . 7 (((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) ∧ 𝑚 ∈ (((⌊‘𝑋) + 1)...((⌊‘𝑌) − 1))) → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘𝑚) ≤ ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(𝑚 + 1)))
254129, 245, 253monoord 13038 . . . . . 6 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘((⌊‘𝑋) + 1)) ≤ ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(⌊‘𝑌)))
255 ovex 6874 . . . . . . 7 ((⌊‘𝑋) + 1) ∈ V
256 fveq2 6375 . . . . . . . . 9 (𝑦 = ((⌊‘𝑋) + 1) → (𝐻𝑦) = (𝐻‘((⌊‘𝑋) + 1)))
257 csbeq1 3694 . . . . . . . . 9 (𝑦 = ((⌊‘𝑋) + 1) → 𝑦 / 𝑥𝐵 = ((⌊‘𝑋) + 1) / 𝑥𝐵)
258256, 257oveq12d 6860 . . . . . . . 8 (𝑦 = ((⌊‘𝑋) + 1) → ((𝐻𝑦) − 𝑦 / 𝑥𝐵) = ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵))
259258, 239, 240fvmpt3i 6476 . . . . . . 7 (((⌊‘𝑋) + 1) ∈ V → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘((⌊‘𝑋) + 1)) = ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵))
260255, 259ax-mp 5 . . . . . 6 ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘((⌊‘𝑋) + 1)) = ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵)
261 fvex 6388 . . . . . . 7 (⌊‘𝑌) ∈ V
262 fveq2 6375 . . . . . . . . 9 (𝑦 = (⌊‘𝑌) → (𝐻𝑦) = (𝐻‘(⌊‘𝑌)))
263 csbeq1 3694 . . . . . . . . 9 (𝑦 = (⌊‘𝑌) → 𝑦 / 𝑥𝐵 = (⌊‘𝑌) / 𝑥𝐵)
264262, 263oveq12d 6860 . . . . . . . 8 (𝑦 = (⌊‘𝑌) → ((𝐻𝑦) − 𝑦 / 𝑥𝐵) = ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵))
265264, 239, 240fvmpt3i 6476 . . . . . . 7 ((⌊‘𝑌) ∈ V → ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(⌊‘𝑌)) = ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵))
266261, 265ax-mp 5 . . . . . 6 ((𝑦 ∈ V ↦ ((𝐻𝑦) − 𝑦 / 𝑥𝐵))‘(⌊‘𝑌)) = ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵)
267254, 260, 2663brtr3g 4842 . . . . 5 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻‘((⌊‘𝑋) + 1)) − ((⌊‘𝑋) + 1) / 𝑥𝐵) ≤ ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵))
268221, 233, 225, 234, 267letrd 10448 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵))
269119simprd 489 . . . 4 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻‘(⌊‘𝑌)) − (⌊‘𝑌) / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵))
270221, 225, 229, 268, 269letrd 10448 . . 3 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵))
271208, 270jca 507 . 2 ((𝜑 ∧ ((⌊‘𝑋) + 1) ≤ 𝑌) → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
2725, 10, 43, 271lecasei 10397 1 (𝜑 → ((𝐻𝑌) ≤ (𝐻𝑋) ∧ ((𝐻𝑋) − 𝑋 / 𝑥𝐵) ≤ ((𝐻𝑌) − 𝑌 / 𝑥𝐵)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wral 3055  Vcvv 3350  csb 3691  wss 3732   class class class wbr 4809  cmpt 4888  wf 6064  cfv 6068  (class class class)co 6842  cr 10188  1c1 10190   + caddc 10192   · cmul 10194  +∞cpnf 10325  *cxr 10327   < clt 10328  cle 10329  cmin 10520  cz 11624  cuz 11886  (,)cioo 12377  ...cfz 12533  cfl 12799  Σcsu 14703   D cdv 23918
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-inf2 8753  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267  ax-addf 10268  ax-mulf 10269
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-fal 1666  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-iin 4679  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-of 7095  df-om 7264  df-1st 7366  df-2nd 7367  df-supp 7498  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-2o 7765  df-oadd 7768  df-er 7947  df-map 8062  df-pm 8063  df-ixp 8114  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-fsupp 8483  df-fi 8524  df-sup 8555  df-inf 8556  df-oi 8622  df-card 9016  df-cda 9243  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-nn 11275  df-2 11335  df-3 11336  df-4 11337  df-5 11338  df-6 11339  df-7 11340  df-8 11341  df-9 11342  df-n0 11539  df-z 11625  df-dec 11741  df-uz 11887  df-q 11990  df-rp 12029  df-xneg 12146  df-xadd 12147  df-xmul 12148  df-ioo 12381  df-ico 12383  df-icc 12384  df-fz 12534  df-fzo 12674  df-fl 12801  df-seq 13009  df-exp 13068  df-hash 13322  df-cj 14126  df-re 14127  df-im 14128  df-sqrt 14262  df-abs 14263  df-clim 14506  df-sum 14704  df-struct 16134  df-ndx 16135  df-slot 16136  df-base 16138  df-sets 16139  df-ress 16140  df-plusg 16229  df-mulr 16230  df-starv 16231  df-sca 16232  df-vsca 16233  df-ip 16234  df-tset 16235  df-ple 16236  df-ds 16238  df-unif 16239  df-hom 16240  df-cco 16241  df-rest 16351  df-topn 16352  df-0g 16370  df-gsum 16371  df-topgen 16372  df-pt 16373  df-prds 16376  df-xrs 16430  df-qtop 16435  df-imas 16436  df-xps 16438  df-mre 16514  df-mrc 16515  df-acs 16517  df-mgm 17510  df-sgrp 17552  df-mnd 17563  df-submnd 17604  df-mulg 17810  df-cntz 18015  df-cmn 18461  df-psmet 20011  df-xmet 20012  df-met 20013  df-bl 20014  df-mopn 20015  df-fbas 20016  df-fg 20017  df-cnfld 20020  df-top 20978  df-topon 20995  df-topsp 21017  df-bases 21030  df-cld 21103  df-ntr 21104  df-cls 21105  df-nei 21182  df-lp 21220  df-perf 21221  df-cn 21311  df-cnp 21312  df-haus 21399  df-cmp 21470  df-tx 21645  df-hmeo 21838  df-fil 21929  df-fm 22021  df-flim 22022  df-flf 22023  df-xms 22404  df-ms 22405  df-tms 22406  df-cncf 22960  df-limc 23921  df-dv 23922
This theorem is referenced by:  dvfsumlem4  24083  dvfsum2  24088
  Copyright terms: Public domain W3C validator