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

Theorem ovolunlem1a 25012
Description: Lemma for ovolun 25015. (Contributed by Mario Carneiro, 7-May-2015.)
Hypotheses
Ref Expression
ovolun.a (πœ‘ β†’ (𝐴 βŠ† ℝ ∧ (vol*β€˜π΄) ∈ ℝ))
ovolun.b (πœ‘ β†’ (𝐡 βŠ† ℝ ∧ (vol*β€˜π΅) ∈ ℝ))
ovolun.c (πœ‘ β†’ 𝐢 ∈ ℝ+)
ovolun.s 𝑆 = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))
ovolun.t 𝑇 = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))
ovolun.u π‘ˆ = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))
ovolun.f1 (πœ‘ β†’ 𝐹 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•))
ovolun.f2 (πœ‘ β†’ 𝐴 βŠ† βˆͺ ran ((,) ∘ 𝐹))
ovolun.f3 (πœ‘ β†’ sup(ran 𝑆, ℝ*, < ) ≀ ((vol*β€˜π΄) + (𝐢 / 2)))
ovolun.g1 (πœ‘ β†’ 𝐺 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•))
ovolun.g2 (πœ‘ β†’ 𝐡 βŠ† βˆͺ ran ((,) ∘ 𝐺))
ovolun.g3 (πœ‘ β†’ sup(ran 𝑇, ℝ*, < ) ≀ ((vol*β€˜π΅) + (𝐢 / 2)))
ovolun.h 𝐻 = (𝑛 ∈ β„• ↦ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))))
Assertion
Ref Expression
ovolunlem1a ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜π‘˜) ≀ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢))
Distinct variable groups:   π‘˜,𝑛,𝐢   π‘˜,𝐹,𝑛   π‘˜,𝐻   𝐴,π‘˜,𝑛   𝐡,π‘˜,𝑛   𝑆,π‘˜   𝑇,π‘˜   π‘˜,𝐺,𝑛   πœ‘,π‘˜,𝑛   π‘ˆ,π‘˜
Allowed substitution hints:   𝑆(𝑛)   𝑇(𝑛)   π‘ˆ(𝑛)   𝐻(𝑛)

Proof of Theorem ovolunlem1a
Dummy variables 𝑧 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ovolun.g1 . . . . . . . . . 10 (πœ‘ β†’ 𝐺 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•))
2 elovolmlem 24990 . . . . . . . . . 10 (𝐺 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•) ↔ 𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
31, 2sylib 217 . . . . . . . . 9 (πœ‘ β†’ 𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
43adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
54ffvelcdmda 7086 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ (𝑛 / 2) ∈ β„•) β†’ (πΊβ€˜(𝑛 / 2)) ∈ ( ≀ ∩ (ℝ Γ— ℝ)))
6 nneo 12645 . . . . . . . . . . 11 (𝑛 ∈ β„• β†’ ((𝑛 / 2) ∈ β„• ↔ Β¬ ((𝑛 + 1) / 2) ∈ β„•))
76adantl 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑛 / 2) ∈ β„• ↔ Β¬ ((𝑛 + 1) / 2) ∈ β„•))
87con2bid 354 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (((𝑛 + 1) / 2) ∈ β„• ↔ Β¬ (𝑛 / 2) ∈ β„•))
98biimpar 478 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ Β¬ (𝑛 / 2) ∈ β„•) β†’ ((𝑛 + 1) / 2) ∈ β„•)
10 ovolun.f1 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•))
11 elovolmlem 24990 . . . . . . . . . . 11 (𝐹 ∈ (( ≀ ∩ (ℝ Γ— ℝ)) ↑m β„•) ↔ 𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
1210, 11sylib 217 . . . . . . . . . 10 (πœ‘ β†’ 𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
1312adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
1413ffvelcdmda 7086 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ ((𝑛 + 1) / 2) ∈ β„•) β†’ (πΉβ€˜((𝑛 + 1) / 2)) ∈ ( ≀ ∩ (ℝ Γ— ℝ)))
159, 14syldan 591 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ Β¬ (𝑛 / 2) ∈ β„•) β†’ (πΉβ€˜((𝑛 + 1) / 2)) ∈ ( ≀ ∩ (ℝ Γ— ℝ)))
165, 15ifclda 4563 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) ∈ ( ≀ ∩ (ℝ Γ— ℝ)))
17 ovolun.h . . . . . 6 𝐻 = (𝑛 ∈ β„• ↦ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))))
1816, 17fmptd 7113 . . . . 5 (πœ‘ β†’ 𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)))
19 eqid 2732 . . . . . 6 ((abs ∘ βˆ’ ) ∘ 𝐻) = ((abs ∘ βˆ’ ) ∘ 𝐻)
20 ovolun.u . . . . . 6 π‘ˆ = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))
2119, 20ovolsf 24988 . . . . 5 (𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ π‘ˆ:β„•βŸΆ(0[,)+∞))
2218, 21syl 17 . . . 4 (πœ‘ β†’ π‘ˆ:β„•βŸΆ(0[,)+∞))
23 rge0ssre 13432 . . . 4 (0[,)+∞) βŠ† ℝ
24 fss 6734 . . . 4 ((π‘ˆ:β„•βŸΆ(0[,)+∞) ∧ (0[,)+∞) βŠ† ℝ) β†’ π‘ˆ:β„•βŸΆβ„)
2522, 23, 24sylancl 586 . . 3 (πœ‘ β†’ π‘ˆ:β„•βŸΆβ„)
2625ffvelcdmda 7086 . 2 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜π‘˜) ∈ ℝ)
27 2nn 12284 . . . 4 2 ∈ β„•
28 peano2nn 12223 . . . . . . . . 9 (π‘˜ ∈ β„• β†’ (π‘˜ + 1) ∈ β„•)
2928adantl 482 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘˜ + 1) ∈ β„•)
3029nnred 12226 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘˜ + 1) ∈ ℝ)
3130rehalfcld 12458 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘˜ + 1) / 2) ∈ ℝ)
3231flcld 13762 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„€)
33 ax-1cn 11167 . . . . . . . . 9 1 ∈ β„‚
34332timesi 12349 . . . . . . . 8 (2 Β· 1) = (1 + 1)
35 nnge1 12239 . . . . . . . . . 10 (π‘˜ ∈ β„• β†’ 1 ≀ π‘˜)
3635adantl 482 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 1 ≀ π‘˜)
37 nnre 12218 . . . . . . . . . . 11 (π‘˜ ∈ β„• β†’ π‘˜ ∈ ℝ)
3837adantl 482 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ ℝ)
39 1re 11213 . . . . . . . . . . 11 1 ∈ ℝ
40 leadd1 11681 . . . . . . . . . . 11 ((1 ∈ ℝ ∧ π‘˜ ∈ ℝ ∧ 1 ∈ ℝ) β†’ (1 ≀ π‘˜ ↔ (1 + 1) ≀ (π‘˜ + 1)))
4139, 39, 40mp3an13 1452 . . . . . . . . . 10 (π‘˜ ∈ ℝ β†’ (1 ≀ π‘˜ ↔ (1 + 1) ≀ (π‘˜ + 1)))
4238, 41syl 17 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (1 ≀ π‘˜ ↔ (1 + 1) ≀ (π‘˜ + 1)))
4336, 42mpbid 231 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (1 + 1) ≀ (π‘˜ + 1))
4434, 43eqbrtrid 5183 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· 1) ≀ (π‘˜ + 1))
45 2re 12285 . . . . . . . . . 10 2 ∈ ℝ
46 2pos 12314 . . . . . . . . . 10 0 < 2
4745, 46pm3.2i 471 . . . . . . . . 9 (2 ∈ ℝ ∧ 0 < 2)
48 lemuldiv2 12094 . . . . . . . . 9 ((1 ∈ ℝ ∧ (π‘˜ + 1) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) β†’ ((2 Β· 1) ≀ (π‘˜ + 1) ↔ 1 ≀ ((π‘˜ + 1) / 2)))
4939, 47, 48mp3an13 1452 . . . . . . . 8 ((π‘˜ + 1) ∈ ℝ β†’ ((2 Β· 1) ≀ (π‘˜ + 1) ↔ 1 ≀ ((π‘˜ + 1) / 2)))
5030, 49syl 17 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· 1) ≀ (π‘˜ + 1) ↔ 1 ≀ ((π‘˜ + 1) / 2)))
5144, 50mpbid 231 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 1 ≀ ((π‘˜ + 1) / 2))
52 1z 12591 . . . . . . 7 1 ∈ β„€
53 flge 13769 . . . . . . 7 ((((π‘˜ + 1) / 2) ∈ ℝ ∧ 1 ∈ β„€) β†’ (1 ≀ ((π‘˜ + 1) / 2) ↔ 1 ≀ (βŒŠβ€˜((π‘˜ + 1) / 2))))
5431, 52, 53sylancl 586 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (1 ≀ ((π‘˜ + 1) / 2) ↔ 1 ≀ (βŒŠβ€˜((π‘˜ + 1) / 2))))
5551, 54mpbid 231 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 1 ≀ (βŒŠβ€˜((π‘˜ + 1) / 2)))
56 elnnz1 12587 . . . . 5 ((βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„• ↔ ((βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„€ ∧ 1 ≀ (βŒŠβ€˜((π‘˜ + 1) / 2))))
5732, 55, 56sylanbrc 583 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„•)
58 nnmulcl 12235 . . . 4 ((2 ∈ β„• ∧ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„•) β†’ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„•)
5927, 57, 58sylancr 587 . . 3 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„•)
6025ffvelcdmda 7086 . . 3 ((πœ‘ ∧ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) ∈ ℝ)
6159, 60syldan 591 . 2 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) ∈ ℝ)
62 ovolun.a . . . . . 6 (πœ‘ β†’ (𝐴 βŠ† ℝ ∧ (vol*β€˜π΄) ∈ ℝ))
6362simprd 496 . . . . 5 (πœ‘ β†’ (vol*β€˜π΄) ∈ ℝ)
64 ovolun.b . . . . . 6 (πœ‘ β†’ (𝐡 βŠ† ℝ ∧ (vol*β€˜π΅) ∈ ℝ))
6564simprd 496 . . . . 5 (πœ‘ β†’ (vol*β€˜π΅) ∈ ℝ)
6663, 65readdcld 11242 . . . 4 (πœ‘ β†’ ((vol*β€˜π΄) + (vol*β€˜π΅)) ∈ ℝ)
67 ovolun.c . . . . 5 (πœ‘ β†’ 𝐢 ∈ ℝ+)
6867rpred 13015 . . . 4 (πœ‘ β†’ 𝐢 ∈ ℝ)
6966, 68readdcld 11242 . . 3 (πœ‘ β†’ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢) ∈ ℝ)
7069adantr 481 . 2 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢) ∈ ℝ)
71 simpr 485 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„•)
72 nnuz 12864 . . . . 5 β„• = (β„€β‰₯β€˜1)
7371, 72eleqtrdi 2843 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ (β„€β‰₯β€˜1))
74 nnz 12578 . . . . . . 7 (π‘˜ ∈ β„• β†’ π‘˜ ∈ β„€)
7574adantl 482 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„€)
76 flhalf 13794 . . . . . 6 (π‘˜ ∈ β„€ β†’ π‘˜ ≀ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))
7775, 76syl 17 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ≀ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))
78 nnz 12578 . . . . . . 7 ((2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„• β†’ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„€)
79 eluz 12835 . . . . . . 7 ((π‘˜ ∈ β„€ ∧ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„€) β†’ ((2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ (β„€β‰₯β€˜π‘˜) ↔ π‘˜ ≀ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
8074, 78, 79syl2an 596 . . . . . 6 ((π‘˜ ∈ β„• ∧ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ β„•) β†’ ((2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ (β„€β‰₯β€˜π‘˜) ↔ π‘˜ ≀ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
8171, 59, 80syl2anc 584 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ (β„€β‰₯β€˜π‘˜) ↔ π‘˜ ≀ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
8277, 81mpbird 256 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ (β„€β‰₯β€˜π‘˜))
83 elfznn 13529 . . . . 5 (𝑗 ∈ (1...(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) β†’ 𝑗 ∈ β„•)
8419ovolfsf 24987 . . . . . . . . . 10 (𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ ((abs ∘ βˆ’ ) ∘ 𝐻):β„•βŸΆ(0[,)+∞))
8518, 84syl 17 . . . . . . . . 9 (πœ‘ β†’ ((abs ∘ βˆ’ ) ∘ 𝐻):β„•βŸΆ(0[,)+∞))
8685adantr 481 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((abs ∘ βˆ’ ) ∘ 𝐻):β„•βŸΆ(0[,)+∞))
8786ffvelcdmda 7086 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ (0[,)+∞))
88 elrege0 13430 . . . . . . 7 ((((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ (0[,)+∞) ↔ ((((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ ℝ ∧ 0 ≀ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—)))
8987, 88sylib 217 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ β„•) β†’ ((((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ ℝ ∧ 0 ≀ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—)))
9089simpld 495 . . . . 5 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ ℝ)
9183, 90sylan2 593 . . . 4 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ (1...(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—) ∈ ℝ)
92 elfzuz 13496 . . . . . 6 (𝑗 ∈ ((π‘˜ + 1)...(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) β†’ 𝑗 ∈ (β„€β‰₯β€˜(π‘˜ + 1)))
93 eluznn 12901 . . . . . 6 (((π‘˜ + 1) ∈ β„• ∧ 𝑗 ∈ (β„€β‰₯β€˜(π‘˜ + 1))) β†’ 𝑗 ∈ β„•)
9429, 92, 93syl2an 596 . . . . 5 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ ((π‘˜ + 1)...(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))) β†’ 𝑗 ∈ β„•)
9589simprd 496 . . . . 5 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ β„•) β†’ 0 ≀ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—))
9694, 95syldan 591 . . . 4 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑗 ∈ ((π‘˜ + 1)...(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))) β†’ 0 ≀ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜π‘—))
9773, 82, 91, 96sermono 13999 . . 3 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜π‘˜) ≀ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
9820fveq1i 6892 . . 3 (π‘ˆβ€˜π‘˜) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜π‘˜)
9920fveq1i 6892 . . 3 (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))
10097, 98, 993brtr4g 5182 . 2 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜π‘˜) ≀ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
101 eqid 2732 . . . . . . . . . 10 ((abs ∘ βˆ’ ) ∘ 𝐹) = ((abs ∘ βˆ’ ) ∘ 𝐹)
102 ovolun.s . . . . . . . . . 10 𝑆 = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))
103101, 102ovolsf 24988 . . . . . . . . 9 (𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ 𝑆:β„•βŸΆ(0[,)+∞))
10412, 103syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑆:β„•βŸΆ(0[,)+∞))
105104frnd 6725 . . . . . . 7 (πœ‘ β†’ ran 𝑆 βŠ† (0[,)+∞))
106105, 23sstrdi 3994 . . . . . 6 (πœ‘ β†’ ran 𝑆 βŠ† ℝ)
107106adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ran 𝑆 βŠ† ℝ)
108104ffnd 6718 . . . . . 6 (πœ‘ β†’ 𝑆 Fn β„•)
109 fnfvelrn 7082 . . . . . 6 ((𝑆 Fn β„• ∧ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„•) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑆)
110108, 57, 109syl2an2r 683 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑆)
111107, 110sseldd 3983 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ℝ)
112 eqid 2732 . . . . . . . . . 10 ((abs ∘ βˆ’ ) ∘ 𝐺) = ((abs ∘ βˆ’ ) ∘ 𝐺)
113 ovolun.t . . . . . . . . . 10 𝑇 = seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))
114112, 113ovolsf 24988 . . . . . . . . 9 (𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ 𝑇:β„•βŸΆ(0[,)+∞))
1153, 114syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑇:β„•βŸΆ(0[,)+∞))
116115frnd 6725 . . . . . . 7 (πœ‘ β†’ ran 𝑇 βŠ† (0[,)+∞))
117116, 23sstrdi 3994 . . . . . 6 (πœ‘ β†’ ran 𝑇 βŠ† ℝ)
118117adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ran 𝑇 βŠ† ℝ)
119115ffnd 6718 . . . . . 6 (πœ‘ β†’ 𝑇 Fn β„•)
120 fnfvelrn 7082 . . . . . 6 ((𝑇 Fn β„• ∧ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„•) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑇)
121119, 57, 120syl2an2r 683 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑇)
122118, 121sseldd 3983 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ℝ)
12368rehalfcld 12458 . . . . . 6 (πœ‘ β†’ (𝐢 / 2) ∈ ℝ)
12463, 123readdcld 11242 . . . . 5 (πœ‘ β†’ ((vol*β€˜π΄) + (𝐢 / 2)) ∈ ℝ)
125124adantr 481 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((vol*β€˜π΄) + (𝐢 / 2)) ∈ ℝ)
12665, 123readdcld 11242 . . . . 5 (πœ‘ β†’ ((vol*β€˜π΅) + (𝐢 / 2)) ∈ ℝ)
127126adantr 481 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((vol*β€˜π΅) + (𝐢 / 2)) ∈ ℝ)
128 ressxr 11257 . . . . . . . . 9 ℝ βŠ† ℝ*
129106, 128sstrdi 3994 . . . . . . . 8 (πœ‘ β†’ ran 𝑆 βŠ† ℝ*)
130 supxrcl 13293 . . . . . . . 8 (ran 𝑆 βŠ† ℝ* β†’ sup(ran 𝑆, ℝ*, < ) ∈ ℝ*)
131129, 130syl 17 . . . . . . 7 (πœ‘ β†’ sup(ran 𝑆, ℝ*, < ) ∈ ℝ*)
132 1nn 12222 . . . . . . . . . . 11 1 ∈ β„•
133104fdmd 6728 . . . . . . . . . . 11 (πœ‘ β†’ dom 𝑆 = β„•)
134132, 133eleqtrrid 2840 . . . . . . . . . 10 (πœ‘ β†’ 1 ∈ dom 𝑆)
135134ne0d 4335 . . . . . . . . 9 (πœ‘ β†’ dom 𝑆 β‰  βˆ…)
136 dm0rn0 5924 . . . . . . . . . 10 (dom 𝑆 = βˆ… ↔ ran 𝑆 = βˆ…)
137136necon3bii 2993 . . . . . . . . 9 (dom 𝑆 β‰  βˆ… ↔ ran 𝑆 β‰  βˆ…)
138135, 137sylib 217 . . . . . . . 8 (πœ‘ β†’ ran 𝑆 β‰  βˆ…)
139 supxrgtmnf 13307 . . . . . . . 8 ((ran 𝑆 βŠ† ℝ ∧ ran 𝑆 β‰  βˆ…) β†’ -∞ < sup(ran 𝑆, ℝ*, < ))
140106, 138, 139syl2anc 584 . . . . . . 7 (πœ‘ β†’ -∞ < sup(ran 𝑆, ℝ*, < ))
141 ovolun.f3 . . . . . . 7 (πœ‘ β†’ sup(ran 𝑆, ℝ*, < ) ≀ ((vol*β€˜π΄) + (𝐢 / 2)))
142 xrre 13147 . . . . . . 7 (((sup(ran 𝑆, ℝ*, < ) ∈ ℝ* ∧ ((vol*β€˜π΄) + (𝐢 / 2)) ∈ ℝ) ∧ (-∞ < sup(ran 𝑆, ℝ*, < ) ∧ sup(ran 𝑆, ℝ*, < ) ≀ ((vol*β€˜π΄) + (𝐢 / 2)))) β†’ sup(ran 𝑆, ℝ*, < ) ∈ ℝ)
143131, 124, 140, 141, 142syl22anc 837 . . . . . 6 (πœ‘ β†’ sup(ran 𝑆, ℝ*, < ) ∈ ℝ)
144143adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ sup(ran 𝑆, ℝ*, < ) ∈ ℝ)
145 supxrub 13302 . . . . . 6 ((ran 𝑆 βŠ† ℝ* ∧ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑆) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ sup(ran 𝑆, ℝ*, < ))
146129, 110, 145syl2an2r 683 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ sup(ran 𝑆, ℝ*, < ))
147141adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ sup(ran 𝑆, ℝ*, < ) ≀ ((vol*β€˜π΄) + (𝐢 / 2)))
148111, 144, 125, 146, 147letrd 11370 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ ((vol*β€˜π΄) + (𝐢 / 2)))
149117, 128sstrdi 3994 . . . . . . . 8 (πœ‘ β†’ ran 𝑇 βŠ† ℝ*)
150 supxrcl 13293 . . . . . . . 8 (ran 𝑇 βŠ† ℝ* β†’ sup(ran 𝑇, ℝ*, < ) ∈ ℝ*)
151149, 150syl 17 . . . . . . 7 (πœ‘ β†’ sup(ran 𝑇, ℝ*, < ) ∈ ℝ*)
152115fdmd 6728 . . . . . . . . . . 11 (πœ‘ β†’ dom 𝑇 = β„•)
153132, 152eleqtrrid 2840 . . . . . . . . . 10 (πœ‘ β†’ 1 ∈ dom 𝑇)
154153ne0d 4335 . . . . . . . . 9 (πœ‘ β†’ dom 𝑇 β‰  βˆ…)
155 dm0rn0 5924 . . . . . . . . . 10 (dom 𝑇 = βˆ… ↔ ran 𝑇 = βˆ…)
156155necon3bii 2993 . . . . . . . . 9 (dom 𝑇 β‰  βˆ… ↔ ran 𝑇 β‰  βˆ…)
157154, 156sylib 217 . . . . . . . 8 (πœ‘ β†’ ran 𝑇 β‰  βˆ…)
158 supxrgtmnf 13307 . . . . . . . 8 ((ran 𝑇 βŠ† ℝ ∧ ran 𝑇 β‰  βˆ…) β†’ -∞ < sup(ran 𝑇, ℝ*, < ))
159117, 157, 158syl2anc 584 . . . . . . 7 (πœ‘ β†’ -∞ < sup(ran 𝑇, ℝ*, < ))
160 ovolun.g3 . . . . . . 7 (πœ‘ β†’ sup(ran 𝑇, ℝ*, < ) ≀ ((vol*β€˜π΅) + (𝐢 / 2)))
161 xrre 13147 . . . . . . 7 (((sup(ran 𝑇, ℝ*, < ) ∈ ℝ* ∧ ((vol*β€˜π΅) + (𝐢 / 2)) ∈ ℝ) ∧ (-∞ < sup(ran 𝑇, ℝ*, < ) ∧ sup(ran 𝑇, ℝ*, < ) ≀ ((vol*β€˜π΅) + (𝐢 / 2)))) β†’ sup(ran 𝑇, ℝ*, < ) ∈ ℝ)
162151, 126, 159, 160, 161syl22anc 837 . . . . . 6 (πœ‘ β†’ sup(ran 𝑇, ℝ*, < ) ∈ ℝ)
163162adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ sup(ran 𝑇, ℝ*, < ) ∈ ℝ)
164 supxrub 13302 . . . . . 6 ((ran 𝑇 βŠ† ℝ* ∧ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ∈ ran 𝑇) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ sup(ran 𝑇, ℝ*, < ))
165149, 121, 164syl2an2r 683 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ sup(ran 𝑇, ℝ*, < ))
166160adantr 481 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ sup(ran 𝑇, ℝ*, < ) ≀ ((vol*β€˜π΅) + (𝐢 / 2)))
167122, 163, 127, 165, 166letrd 11370 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) ≀ ((vol*β€˜π΅) + (𝐢 / 2)))
168111, 122, 125, 127, 148, 167le2addd 11832 . . 3 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2)))) ≀ (((vol*β€˜π΄) + (𝐢 / 2)) + ((vol*β€˜π΅) + (𝐢 / 2))))
169 oveq2 7416 . . . . . . . . 9 (𝑧 = 1 β†’ (2 Β· 𝑧) = (2 Β· 1))
170169fveq2d 6895 . . . . . . . 8 (𝑧 = 1 β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = (π‘ˆβ€˜(2 Β· 1)))
171 fveq2 6891 . . . . . . . . 9 (𝑧 = 1 β†’ (π‘†β€˜π‘§) = (π‘†β€˜1))
172 fveq2 6891 . . . . . . . . 9 (𝑧 = 1 β†’ (π‘‡β€˜π‘§) = (π‘‡β€˜1))
173171, 172oveq12d 7426 . . . . . . . 8 (𝑧 = 1 β†’ ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) = ((π‘†β€˜1) + (π‘‡β€˜1)))
174170, 173eqeq12d 2748 . . . . . . 7 (𝑧 = 1 β†’ ((π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) ↔ (π‘ˆβ€˜(2 Β· 1)) = ((π‘†β€˜1) + (π‘‡β€˜1))))
175174imbi2d 340 . . . . . 6 (𝑧 = 1 β†’ ((πœ‘ β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§))) ↔ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· 1)) = ((π‘†β€˜1) + (π‘‡β€˜1)))))
176 oveq2 7416 . . . . . . . . 9 (𝑧 = π‘˜ β†’ (2 Β· 𝑧) = (2 Β· π‘˜))
177176fveq2d 6895 . . . . . . . 8 (𝑧 = π‘˜ β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = (π‘ˆβ€˜(2 Β· π‘˜)))
178 fveq2 6891 . . . . . . . . 9 (𝑧 = π‘˜ β†’ (π‘†β€˜π‘§) = (π‘†β€˜π‘˜))
179 fveq2 6891 . . . . . . . . 9 (𝑧 = π‘˜ β†’ (π‘‡β€˜π‘§) = (π‘‡β€˜π‘˜))
180178, 179oveq12d 7426 . . . . . . . 8 (𝑧 = π‘˜ β†’ ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)))
181177, 180eqeq12d 2748 . . . . . . 7 (𝑧 = π‘˜ β†’ ((π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) ↔ (π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜))))
182181imbi2d 340 . . . . . 6 (𝑧 = π‘˜ β†’ ((πœ‘ β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§))) ↔ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)))))
183 oveq2 7416 . . . . . . . . 9 (𝑧 = (π‘˜ + 1) β†’ (2 Β· 𝑧) = (2 Β· (π‘˜ + 1)))
184183fveq2d 6895 . . . . . . . 8 (𝑧 = (π‘˜ + 1) β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = (π‘ˆβ€˜(2 Β· (π‘˜ + 1))))
185 fveq2 6891 . . . . . . . . 9 (𝑧 = (π‘˜ + 1) β†’ (π‘†β€˜π‘§) = (π‘†β€˜(π‘˜ + 1)))
186 fveq2 6891 . . . . . . . . 9 (𝑧 = (π‘˜ + 1) β†’ (π‘‡β€˜π‘§) = (π‘‡β€˜(π‘˜ + 1)))
187185, 186oveq12d 7426 . . . . . . . 8 (𝑧 = (π‘˜ + 1) β†’ ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))))
188184, 187eqeq12d 2748 . . . . . . 7 (𝑧 = (π‘˜ + 1) β†’ ((π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) ↔ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1)))))
189188imbi2d 340 . . . . . 6 (𝑧 = (π‘˜ + 1) β†’ ((πœ‘ β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§))) ↔ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))))))
190 oveq2 7416 . . . . . . . . 9 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ (2 Β· 𝑧) = (2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2))))
191190fveq2d 6895 . . . . . . . 8 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))))
192 fveq2 6891 . . . . . . . . 9 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ (π‘†β€˜π‘§) = (π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))))
193 fveq2 6891 . . . . . . . . 9 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ (π‘‡β€˜π‘§) = (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))))
194192, 193oveq12d 7426 . . . . . . . 8 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2)))))
195191, 194eqeq12d 2748 . . . . . . 7 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ ((π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§)) ↔ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))))))
196195imbi2d 340 . . . . . 6 (𝑧 = (βŒŠβ€˜((π‘˜ + 1) / 2)) β†’ ((πœ‘ β†’ (π‘ˆβ€˜(2 Β· 𝑧)) = ((π‘†β€˜π‘§) + (π‘‡β€˜π‘§))) ↔ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2)))))))
19720fveq1i 6892 . . . . . . . 8 (π‘ˆβ€˜(2 Β· 1)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· 1))
198132a1i 11 . . . . . . . . 9 (πœ‘ β†’ 1 ∈ β„•)
19919ovolfsval 24986 . . . . . . . . . . . 12 ((𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ 1 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜1) = ((2nd β€˜(π»β€˜1)) βˆ’ (1st β€˜(π»β€˜1))))
20018, 132, 199sylancl 586 . . . . . . . . . . 11 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜1) = ((2nd β€˜(π»β€˜1)) βˆ’ (1st β€˜(π»β€˜1))))
201 halfnz 12639 . . . . . . . . . . . . . . . . . 18 Β¬ (1 / 2) ∈ β„€
202 nnz 12578 . . . . . . . . . . . . . . . . . . 19 ((𝑛 / 2) ∈ β„• β†’ (𝑛 / 2) ∈ β„€)
203 oveq1 7415 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 1 β†’ (𝑛 / 2) = (1 / 2))
204203eleq1d 2818 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 1 β†’ ((𝑛 / 2) ∈ β„€ ↔ (1 / 2) ∈ β„€))
205202, 204imbitrid 243 . . . . . . . . . . . . . . . . . 18 (𝑛 = 1 β†’ ((𝑛 / 2) ∈ β„• β†’ (1 / 2) ∈ β„€))
206201, 205mtoi 198 . . . . . . . . . . . . . . . . 17 (𝑛 = 1 β†’ Β¬ (𝑛 / 2) ∈ β„•)
207206iffalsed 4539 . . . . . . . . . . . . . . . 16 (𝑛 = 1 β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = (πΉβ€˜((𝑛 + 1) / 2)))
208 oveq1 7415 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 1 β†’ (𝑛 + 1) = (1 + 1))
209 df-2 12274 . . . . . . . . . . . . . . . . . . . 20 2 = (1 + 1)
210208, 209eqtr4di 2790 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 1 β†’ (𝑛 + 1) = 2)
211210oveq1d 7423 . . . . . . . . . . . . . . . . . 18 (𝑛 = 1 β†’ ((𝑛 + 1) / 2) = (2 / 2))
212 2div2e1 12352 . . . . . . . . . . . . . . . . . 18 (2 / 2) = 1
213211, 212eqtrdi 2788 . . . . . . . . . . . . . . . . 17 (𝑛 = 1 β†’ ((𝑛 + 1) / 2) = 1)
214213fveq2d 6895 . . . . . . . . . . . . . . . 16 (𝑛 = 1 β†’ (πΉβ€˜((𝑛 + 1) / 2)) = (πΉβ€˜1))
215207, 214eqtrd 2772 . . . . . . . . . . . . . . 15 (𝑛 = 1 β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = (πΉβ€˜1))
216 fvex 6904 . . . . . . . . . . . . . . 15 (πΉβ€˜1) ∈ V
217215, 17, 216fvmpt 6998 . . . . . . . . . . . . . 14 (1 ∈ β„• β†’ (π»β€˜1) = (πΉβ€˜1))
218132, 217ax-mp 5 . . . . . . . . . . . . 13 (π»β€˜1) = (πΉβ€˜1)
219218fveq2i 6894 . . . . . . . . . . . 12 (2nd β€˜(π»β€˜1)) = (2nd β€˜(πΉβ€˜1))
220218fveq2i 6894 . . . . . . . . . . . 12 (1st β€˜(π»β€˜1)) = (1st β€˜(πΉβ€˜1))
221219, 220oveq12i 7420 . . . . . . . . . . 11 ((2nd β€˜(π»β€˜1)) βˆ’ (1st β€˜(π»β€˜1))) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1)))
222200, 221eqtrdi 2788 . . . . . . . . . 10 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
22352, 222seq1i 13979 . . . . . . . . 9 (πœ‘ β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
224 2t1e2 12374 . . . . . . . . . . 11 (2 Β· 1) = 2
225224fveq2i 6894 . . . . . . . . . 10 (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(2 Β· 1)) = (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜2)
22619ovolfsval 24986 . . . . . . . . . . . 12 ((𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ 2 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜2) = ((2nd β€˜(π»β€˜2)) βˆ’ (1st β€˜(π»β€˜2))))
22718, 27, 226sylancl 586 . . . . . . . . . . 11 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜2) = ((2nd β€˜(π»β€˜2)) βˆ’ (1st β€˜(π»β€˜2))))
228 oveq1 7415 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 2 β†’ (𝑛 / 2) = (2 / 2))
229228, 212eqtrdi 2788 . . . . . . . . . . . . . . . . . 18 (𝑛 = 2 β†’ (𝑛 / 2) = 1)
230229, 132eqeltrdi 2841 . . . . . . . . . . . . . . . . 17 (𝑛 = 2 β†’ (𝑛 / 2) ∈ β„•)
231230iftrued 4536 . . . . . . . . . . . . . . . 16 (𝑛 = 2 β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = (πΊβ€˜(𝑛 / 2)))
232229fveq2d 6895 . . . . . . . . . . . . . . . 16 (𝑛 = 2 β†’ (πΊβ€˜(𝑛 / 2)) = (πΊβ€˜1))
233231, 232eqtrd 2772 . . . . . . . . . . . . . . 15 (𝑛 = 2 β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = (πΊβ€˜1))
234 fvex 6904 . . . . . . . . . . . . . . 15 (πΊβ€˜1) ∈ V
235233, 17, 234fvmpt 6998 . . . . . . . . . . . . . 14 (2 ∈ β„• β†’ (π»β€˜2) = (πΊβ€˜1))
23627, 235ax-mp 5 . . . . . . . . . . . . 13 (π»β€˜2) = (πΊβ€˜1)
237236fveq2i 6894 . . . . . . . . . . . 12 (2nd β€˜(π»β€˜2)) = (2nd β€˜(πΊβ€˜1))
238236fveq2i 6894 . . . . . . . . . . . 12 (1st β€˜(π»β€˜2)) = (1st β€˜(πΊβ€˜1))
239237, 238oveq12i 7420 . . . . . . . . . . 11 ((2nd β€˜(π»β€˜2)) βˆ’ (1st β€˜(π»β€˜2))) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1)))
240227, 239eqtrdi 2788 . . . . . . . . . 10 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜2) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
241225, 240eqtrid 2784 . . . . . . . . 9 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(2 Β· 1)) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
24272, 198, 34, 223, 241seqp1d 13982 . . . . . . . 8 (πœ‘ β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· 1)) = (((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))) + ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1)))))
243197, 242eqtrid 2784 . . . . . . 7 (πœ‘ β†’ (π‘ˆβ€˜(2 Β· 1)) = (((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))) + ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1)))))
244102fveq1i 6892 . . . . . . . . 9 (π‘†β€˜1) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜1)
245101ovolfsval 24986 . . . . . . . . . . 11 ((𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ 1 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
24612, 132, 245sylancl 586 . . . . . . . . . 10 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
24752, 246seq1i 13979 . . . . . . . . 9 (πœ‘ β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
248244, 247eqtrid 2784 . . . . . . . 8 (πœ‘ β†’ (π‘†β€˜1) = ((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))))
249113fveq1i 6892 . . . . . . . . 9 (π‘‡β€˜1) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜1)
250112ovolfsval 24986 . . . . . . . . . . 11 ((𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ 1 ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜1) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
2513, 132, 250sylancl 586 . . . . . . . . . 10 (πœ‘ β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜1) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
25252, 251seq1i 13979 . . . . . . . . 9 (πœ‘ β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜1) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
253249, 252eqtrid 2784 . . . . . . . 8 (πœ‘ β†’ (π‘‡β€˜1) = ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1))))
254248, 253oveq12d 7426 . . . . . . 7 (πœ‘ β†’ ((π‘†β€˜1) + (π‘‡β€˜1)) = (((2nd β€˜(πΉβ€˜1)) βˆ’ (1st β€˜(πΉβ€˜1))) + ((2nd β€˜(πΊβ€˜1)) βˆ’ (1st β€˜(πΊβ€˜1)))))
255243, 254eqtr4d 2775 . . . . . 6 (πœ‘ β†’ (π‘ˆβ€˜(2 Β· 1)) = ((π‘†β€˜1) + (π‘‡β€˜1)))
256 oveq1 7415 . . . . . . . . 9 ((π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) β†’ ((π‘ˆβ€˜(2 Β· π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))) = (((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
25734oveq2i 7419 . . . . . . . . . . . . 13 ((2 Β· π‘˜) + (2 Β· 1)) = ((2 Β· π‘˜) + (1 + 1))
258 2cnd 12289 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 2 ∈ β„‚)
25938recnd 11241 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„‚)
260 1cnd 11208 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 1 ∈ β„‚)
261258, 259, 260adddid 11237 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· (π‘˜ + 1)) = ((2 Β· π‘˜) + (2 Β· 1)))
262 nnmulcl 12235 . . . . . . . . . . . . . . . . 17 ((2 ∈ β„• ∧ π‘˜ ∈ β„•) β†’ (2 Β· π‘˜) ∈ β„•)
26327, 262mpan 688 . . . . . . . . . . . . . . . 16 (π‘˜ ∈ β„• β†’ (2 Β· π‘˜) ∈ β„•)
264263adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· π‘˜) ∈ β„•)
265264nncnd 12227 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· π‘˜) ∈ β„‚)
266265, 260, 260addassd 11235 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((2 Β· π‘˜) + 1) + 1) = ((2 Β· π‘˜) + (1 + 1)))
267257, 261, 2663eqtr4a 2798 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· (π‘˜ + 1)) = (((2 Β· π‘˜) + 1) + 1))
268267fveq2d 6895 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = (π‘ˆβ€˜(((2 Β· π‘˜) + 1) + 1)))
26920fveq1i 6892 . . . . . . . . . . . 12 (π‘ˆβ€˜(((2 Β· π‘˜) + 1) + 1)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(((2 Β· π‘˜) + 1) + 1))
270264peano2nnd 12228 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· π‘˜) + 1) ∈ β„•)
271270, 72eleqtrdi 2843 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· π‘˜) + 1) ∈ (β„€β‰₯β€˜1))
272 seqp1 13980 . . . . . . . . . . . . . 14 (((2 Β· π‘˜) + 1) ∈ (β„€β‰₯β€˜1) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(((2 Β· π‘˜) + 1) + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1))))
273271, 272syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(((2 Β· π‘˜) + 1) + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1))))
274264, 72eleqtrdi 2843 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· π‘˜) ∈ (β„€β‰₯β€˜1))
275 seqp1 13980 . . . . . . . . . . . . . . . 16 ((2 Β· π‘˜) ∈ (β„€β‰₯β€˜1) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1))))
276274, 275syl 17 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1))))
27720fveq1i 6892 . . . . . . . . . . . . . . . . 17 (π‘ˆβ€˜(2 Β· π‘˜)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· π‘˜))
278277a1i 11 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· π‘˜)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· π‘˜)))
279 oveq1 7415 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = ((2 Β· π‘˜) + 1) β†’ (𝑛 / 2) = (((2 Β· π‘˜) + 1) / 2))
280279eleq1d 2818 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = ((2 Β· π‘˜) + 1) β†’ ((𝑛 / 2) ∈ β„• ↔ (((2 Β· π‘˜) + 1) / 2) ∈ β„•))
281279fveq2d 6895 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = ((2 Β· π‘˜) + 1) β†’ (πΊβ€˜(𝑛 / 2)) = (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)))
282 oveq1 7415 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = ((2 Β· π‘˜) + 1) β†’ (𝑛 + 1) = (((2 Β· π‘˜) + 1) + 1))
283282fvoveq1d 7430 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = ((2 Β· π‘˜) + 1) β†’ (πΉβ€˜((𝑛 + 1) / 2)) = (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2)))
284280, 281, 283ifbieq12d 4556 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = ((2 Β· π‘˜) + 1) β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = if((((2 Β· π‘˜) + 1) / 2) ∈ β„•, (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)), (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2))))
285 fvex 6904 . . . . . . . . . . . . . . . . . . . . . . 23 (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)) ∈ V
286 fvex 6904 . . . . . . . . . . . . . . . . . . . . . . 23 (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2)) ∈ V
287285, 286ifex 4578 . . . . . . . . . . . . . . . . . . . . . 22 if((((2 Β· π‘˜) + 1) / 2) ∈ β„•, (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)), (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2))) ∈ V
288284, 17, 287fvmpt 6998 . . . . . . . . . . . . . . . . . . . . 21 (((2 Β· π‘˜) + 1) ∈ β„• β†’ (π»β€˜((2 Β· π‘˜) + 1)) = if((((2 Β· π‘˜) + 1) / 2) ∈ β„•, (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)), (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2))))
289270, 288syl 17 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜((2 Β· π‘˜) + 1)) = if((((2 Β· π‘˜) + 1) / 2) ∈ β„•, (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)), (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2))))
290 2ne0 12315 . . . . . . . . . . . . . . . . . . . . . . . . 25 2 β‰  0
291290a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 2 β‰  0)
292259, 258, 291divcan3d 11994 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· π‘˜) / 2) = π‘˜)
293292, 71eqeltrd 2833 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· π‘˜) / 2) ∈ β„•)
294 nneo 12645 . . . . . . . . . . . . . . . . . . . . . . 23 ((2 Β· π‘˜) ∈ β„• β†’ (((2 Β· π‘˜) / 2) ∈ β„• ↔ Β¬ (((2 Β· π‘˜) + 1) / 2) ∈ β„•))
295264, 294syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((2 Β· π‘˜) / 2) ∈ β„• ↔ Β¬ (((2 Β· π‘˜) + 1) / 2) ∈ β„•))
296293, 295mpbid 231 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ Β¬ (((2 Β· π‘˜) + 1) / 2) ∈ β„•)
297296iffalsed 4539 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ if((((2 Β· π‘˜) + 1) / 2) ∈ β„•, (πΊβ€˜(((2 Β· π‘˜) + 1) / 2)), (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2))) = (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2)))
298267oveq1d 7423 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· (π‘˜ + 1)) / 2) = ((((2 Β· π‘˜) + 1) + 1) / 2))
29929nncnd 12227 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘˜ + 1) ∈ β„‚)
300 2cn 12286 . . . . . . . . . . . . . . . . . . . . . . . 24 2 ∈ β„‚
301 divcan3 11897 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘˜ + 1) ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0) β†’ ((2 Β· (π‘˜ + 1)) / 2) = (π‘˜ + 1))
302300, 290, 301mp3an23 1453 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘˜ + 1) ∈ β„‚ β†’ ((2 Β· (π‘˜ + 1)) / 2) = (π‘˜ + 1))
303299, 302syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· (π‘˜ + 1)) / 2) = (π‘˜ + 1))
304298, 303eqtr3d 2774 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((((2 Β· π‘˜) + 1) + 1) / 2) = (π‘˜ + 1))
305304fveq2d 6895 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (πΉβ€˜((((2 Β· π‘˜) + 1) + 1) / 2)) = (πΉβ€˜(π‘˜ + 1)))
306289, 297, 3053eqtrd 2776 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜((2 Β· π‘˜) + 1)) = (πΉβ€˜(π‘˜ + 1)))
307306fveq2d 6895 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2nd β€˜(π»β€˜((2 Β· π‘˜) + 1))) = (2nd β€˜(πΉβ€˜(π‘˜ + 1))))
308306fveq2d 6895 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (1st β€˜(π»β€˜((2 Β· π‘˜) + 1))) = (1st β€˜(πΉβ€˜(π‘˜ + 1))))
309307, 308oveq12d 7426 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2nd β€˜(π»β€˜((2 Β· π‘˜) + 1))) βˆ’ (1st β€˜(π»β€˜((2 Β· π‘˜) + 1)))) = ((2nd β€˜(πΉβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΉβ€˜(π‘˜ + 1)))))
31019ovolfsval 24986 . . . . . . . . . . . . . . . . . 18 ((𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ ((2 Β· π‘˜) + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1)) = ((2nd β€˜(π»β€˜((2 Β· π‘˜) + 1))) βˆ’ (1st β€˜(π»β€˜((2 Β· π‘˜) + 1)))))
31118, 270, 310syl2an2r 683 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1)) = ((2nd β€˜(π»β€˜((2 Β· π‘˜) + 1))) βˆ’ (1st β€˜(π»β€˜((2 Β· π‘˜) + 1)))))
312101ovolfsval 24986 . . . . . . . . . . . . . . . . . 18 ((𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ (π‘˜ + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) = ((2nd β€˜(πΉβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΉβ€˜(π‘˜ + 1)))))
31312, 28, 312syl2an 596 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) = ((2nd β€˜(πΉβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΉβ€˜(π‘˜ + 1)))))
314309, 311, 3133eqtr4rd 2783 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) = (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1)))
315278, 314oveq12d 7426 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜((2 Β· π‘˜) + 1))))
316276, 315eqtr4d 2775 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) = ((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))))
317267fveq2d 6895 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜(2 Β· (π‘˜ + 1))) = (π»β€˜(((2 Β· π‘˜) + 1) + 1)))
318270peano2nnd 12228 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((2 Β· π‘˜) + 1) + 1) ∈ β„•)
319267, 318eqeltrd 2833 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2 Β· (π‘˜ + 1)) ∈ β„•)
320 oveq1 7415 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ (𝑛 / 2) = ((2 Β· (π‘˜ + 1)) / 2))
321320eleq1d 2818 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ ((𝑛 / 2) ∈ β„• ↔ ((2 Β· (π‘˜ + 1)) / 2) ∈ β„•))
322320fveq2d 6895 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ (πΊβ€˜(𝑛 / 2)) = (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)))
323 oveq1 7415 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ (𝑛 + 1) = ((2 Β· (π‘˜ + 1)) + 1))
324323fvoveq1d 7430 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ (πΉβ€˜((𝑛 + 1) / 2)) = (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2)))
325321, 322, 324ifbieq12d 4556 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 = (2 Β· (π‘˜ + 1)) β†’ if((𝑛 / 2) ∈ β„•, (πΊβ€˜(𝑛 / 2)), (πΉβ€˜((𝑛 + 1) / 2))) = if(((2 Β· (π‘˜ + 1)) / 2) ∈ β„•, (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)), (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2))))
326 fvex 6904 . . . . . . . . . . . . . . . . . . . . . 22 (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)) ∈ V
327 fvex 6904 . . . . . . . . . . . . . . . . . . . . . 22 (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2)) ∈ V
328326, 327ifex 4578 . . . . . . . . . . . . . . . . . . . . 21 if(((2 Β· (π‘˜ + 1)) / 2) ∈ β„•, (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)), (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2))) ∈ V
329325, 17, 328fvmpt 6998 . . . . . . . . . . . . . . . . . . . 20 ((2 Β· (π‘˜ + 1)) ∈ β„• β†’ (π»β€˜(2 Β· (π‘˜ + 1))) = if(((2 Β· (π‘˜ + 1)) / 2) ∈ β„•, (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)), (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2))))
330319, 329syl 17 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜(2 Β· (π‘˜ + 1))) = if(((2 Β· (π‘˜ + 1)) / 2) ∈ β„•, (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)), (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2))))
331303, 29eqeltrd 2833 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2 Β· (π‘˜ + 1)) / 2) ∈ β„•)
332331iftrued 4536 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ if(((2 Β· (π‘˜ + 1)) / 2) ∈ β„•, (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)), (πΉβ€˜(((2 Β· (π‘˜ + 1)) + 1) / 2))) = (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)))
333303fveq2d 6895 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (πΊβ€˜((2 Β· (π‘˜ + 1)) / 2)) = (πΊβ€˜(π‘˜ + 1)))
334330, 332, 3333eqtrd 2776 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜(2 Β· (π‘˜ + 1))) = (πΊβ€˜(π‘˜ + 1)))
335317, 334eqtr3d 2774 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π»β€˜(((2 Β· π‘˜) + 1) + 1)) = (πΊβ€˜(π‘˜ + 1)))
336335fveq2d 6895 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (2nd β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1))) = (2nd β€˜(πΊβ€˜(π‘˜ + 1))))
337335fveq2d 6895 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (1st β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1))) = (1st β€˜(πΊβ€˜(π‘˜ + 1))))
338336, 337oveq12d 7426 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((2nd β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1))) βˆ’ (1st β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1)))) = ((2nd β€˜(πΊβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΊβ€˜(π‘˜ + 1)))))
33919ovolfsval 24986 . . . . . . . . . . . . . . . 16 ((𝐻:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ (((2 Β· π‘˜) + 1) + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1)) = ((2nd β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1))) βˆ’ (1st β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1)))))
34018, 318, 339syl2an2r 683 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1)) = ((2nd β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1))) βˆ’ (1st β€˜(π»β€˜(((2 Β· π‘˜) + 1) + 1)))))
341112ovolfsval 24986 . . . . . . . . . . . . . . . 16 ((𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) ∧ (π‘˜ + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) = ((2nd β€˜(πΊβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΊβ€˜(π‘˜ + 1)))))
3423, 28, 341syl2an 596 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) = ((2nd β€˜(πΊβ€˜(π‘˜ + 1))) βˆ’ (1st β€˜(πΊβ€˜(π‘˜ + 1)))))
343338, 340, 3423eqtr4d 2782 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1)) = (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))
344316, 343oveq12d 7426 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜((2 Β· π‘˜) + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐻)β€˜(((2 Β· π‘˜) + 1) + 1))) = (((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
345273, 344eqtrd 2772 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐻))β€˜(((2 Β· π‘˜) + 1) + 1)) = (((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
346269, 345eqtrid 2784 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(((2 Β· π‘˜) + 1) + 1)) = (((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
347 ffvelcdm 7083 . . . . . . . . . . . . . . 15 ((π‘ˆ:β„•βŸΆ(0[,)+∞) ∧ (2 Β· π‘˜) ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· π‘˜)) ∈ (0[,)+∞))
34822, 263, 347syl2an 596 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· π‘˜)) ∈ (0[,)+∞))
34923, 348sselid 3980 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· π‘˜)) ∈ ℝ)
350349recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· π‘˜)) ∈ β„‚)
351101ovolfsf 24987 . . . . . . . . . . . . . . . 16 (𝐹:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ ((abs ∘ βˆ’ ) ∘ 𝐹):β„•βŸΆ(0[,)+∞))
35212, 351syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((abs ∘ βˆ’ ) ∘ 𝐹):β„•βŸΆ(0[,)+∞))
353 ffvelcdm 7083 . . . . . . . . . . . . . . 15 ((((abs ∘ βˆ’ ) ∘ 𝐹):β„•βŸΆ(0[,)+∞) ∧ (π‘˜ + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) ∈ (0[,)+∞))
354352, 28, 353syl2an 596 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) ∈ (0[,)+∞))
35523, 354sselid 3980 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) ∈ ℝ)
356355recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) ∈ β„‚)
357112ovolfsf 24987 . . . . . . . . . . . . . . . 16 (𝐺:β„•βŸΆ( ≀ ∩ (ℝ Γ— ℝ)) β†’ ((abs ∘ βˆ’ ) ∘ 𝐺):β„•βŸΆ(0[,)+∞))
3583, 357syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((abs ∘ βˆ’ ) ∘ 𝐺):β„•βŸΆ(0[,)+∞))
359 ffvelcdm 7083 . . . . . . . . . . . . . . 15 ((((abs ∘ βˆ’ ) ∘ 𝐺):β„•βŸΆ(0[,)+∞) ∧ (π‘˜ + 1) ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) ∈ (0[,)+∞))
360358, 28, 359syl2an 596 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) ∈ (0[,)+∞))
36123, 360sselid 3980 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) ∈ ℝ)
362361recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)) ∈ β„‚)
363350, 356, 362addassd 11235 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((π‘ˆβ€˜(2 Β· π‘˜)) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))) = ((π‘ˆβ€˜(2 Β· π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
364268, 346, 3633eqtrd 2776 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘ˆβ€˜(2 Β· π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
365 seqp1 13980 . . . . . . . . . . . . . 14 (π‘˜ ∈ (β„€β‰₯β€˜1) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜(π‘˜ + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))))
36673, 365syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜(π‘˜ + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))))
367102fveq1i 6892 . . . . . . . . . . . . 13 (π‘†β€˜(π‘˜ + 1)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜(π‘˜ + 1))
368102fveq1i 6892 . . . . . . . . . . . . . 14 (π‘†β€˜π‘˜) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜π‘˜)
369368oveq1i 7418 . . . . . . . . . . . . 13 ((π‘†β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐹))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)))
370366, 367, 3693eqtr4g 2797 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜(π‘˜ + 1)) = ((π‘†β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))))
371 seqp1 13980 . . . . . . . . . . . . . 14 (π‘˜ ∈ (β„€β‰₯β€˜1) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜(π‘˜ + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
37273, 371syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜(π‘˜ + 1)) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
373113fveq1i 6892 . . . . . . . . . . . . 13 (π‘‡β€˜(π‘˜ + 1)) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜(π‘˜ + 1))
374113fveq1i 6892 . . . . . . . . . . . . . 14 (π‘‡β€˜π‘˜) = (seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜π‘˜)
375374oveq1i 7418 . . . . . . . . . . . . 13 ((π‘‡β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))) = ((seq1( + , ((abs ∘ βˆ’ ) ∘ 𝐺))β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))
376372, 373, 3753eqtr4g 2797 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜(π‘˜ + 1)) = ((π‘‡β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))
377370, 376oveq12d 7426 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))) = (((π‘†β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + ((π‘‡β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
378104ffvelcdmda 7086 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜π‘˜) ∈ (0[,)+∞))
37923, 378sselid 3980 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜π‘˜) ∈ ℝ)
380379recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘†β€˜π‘˜) ∈ β„‚)
381115ffvelcdmda 7086 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜π‘˜) ∈ (0[,)+∞))
38223, 381sselid 3980 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜π‘˜) ∈ ℝ)
383382recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘‡β€˜π‘˜) ∈ β„‚)
384380, 356, 383, 362add4d 11441 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((π‘†β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1))) + ((π‘‡β€˜π‘˜) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))) = (((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
385377, 384eqtrd 2772 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))) = (((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))))
386364, 385eqeq12d 2748 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))) ↔ ((π‘ˆβ€˜(2 Β· π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1)))) = (((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) + ((((abs ∘ βˆ’ ) ∘ 𝐹)β€˜(π‘˜ + 1)) + (((abs ∘ βˆ’ ) ∘ 𝐺)β€˜(π‘˜ + 1))))))
387256, 386imbitrrid 245 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1)))))
388387expcom 414 . . . . . . 7 (π‘˜ ∈ β„• β†’ (πœ‘ β†’ ((π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜)) β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))))))
389388a2d 29 . . . . . 6 (π‘˜ ∈ β„• β†’ ((πœ‘ β†’ (π‘ˆβ€˜(2 Β· π‘˜)) = ((π‘†β€˜π‘˜) + (π‘‡β€˜π‘˜))) β†’ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· (π‘˜ + 1))) = ((π‘†β€˜(π‘˜ + 1)) + (π‘‡β€˜(π‘˜ + 1))))))
390175, 182, 189, 196, 255, 389nnind 12229 . . . . 5 ((βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„• β†’ (πœ‘ β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))))))
391390impcom 408 . . . 4 ((πœ‘ ∧ (βŒŠβ€˜((π‘˜ + 1) / 2)) ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2)))))
39257, 391syldan 591 . . 3 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) = ((π‘†β€˜(βŒŠβ€˜((π‘˜ + 1) / 2))) + (π‘‡β€˜(βŒŠβ€˜((π‘˜ + 1) / 2)))))
39363adantr 481 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (vol*β€˜π΄) ∈ ℝ)
394393recnd 11241 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (vol*β€˜π΄) ∈ β„‚)
39568adantr 481 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 𝐢 ∈ ℝ)
396395rehalfcld 12458 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (𝐢 / 2) ∈ ℝ)
397396recnd 11241 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (𝐢 / 2) ∈ β„‚)
39865adantr 481 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (vol*β€˜π΅) ∈ ℝ)
399398recnd 11241 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (vol*β€˜π΅) ∈ β„‚)
400394, 397, 399, 397add4d 11441 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((vol*β€˜π΄) + (𝐢 / 2)) + ((vol*β€˜π΅) + (𝐢 / 2))) = (((vol*β€˜π΄) + (vol*β€˜π΅)) + ((𝐢 / 2) + (𝐢 / 2))))
401395recnd 11241 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ 𝐢 ∈ β„‚)
4024012halvesd 12457 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((𝐢 / 2) + (𝐢 / 2)) = 𝐢)
403402oveq2d 7424 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((vol*β€˜π΄) + (vol*β€˜π΅)) + ((𝐢 / 2) + (𝐢 / 2))) = (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢))
404400, 403eqtr2d 2773 . . 3 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢) = (((vol*β€˜π΄) + (𝐢 / 2)) + ((vol*β€˜π΅) + (𝐢 / 2))))
405168, 392, 4043brtr4d 5180 . 2 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜(2 Β· (βŒŠβ€˜((π‘˜ + 1) / 2)))) ≀ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢))
40626, 61, 70, 100, 405letrd 11370 1 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (π‘ˆβ€˜π‘˜) ≀ (((vol*β€˜π΄) + (vol*β€˜π΅)) + 𝐢))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   β‰  wne 2940   ∩ cin 3947   βŠ† wss 3948  βˆ…c0 4322  ifcif 4528  βˆͺ cuni 4908   class class class wbr 5148   ↦ cmpt 5231   Γ— cxp 5674  dom cdm 5676  ran crn 5677   ∘ ccom 5680   Fn wfn 6538  βŸΆwf 6539  β€˜cfv 6543  (class class class)co 7408  1st c1st 7972  2nd c2nd 7973   ↑m cmap 8819  supcsup 9434  β„‚cc 11107  β„cr 11108  0cc0 11109  1c1 11110   + caddc 11112   Β· cmul 11114  +∞cpnf 11244  -∞cmnf 11245  β„*cxr 11246   < clt 11247   ≀ cle 11248   βˆ’ cmin 11443   / cdiv 11870  β„•cn 12211  2c2 12266  β„€cz 12557  β„€β‰₯cuz 12821  β„+crp 12973  (,)cioo 13323  [,)cico 13325  ...cfz 13483  βŒŠcfl 13754  seqcseq 13965  abscabs 15180  vol*covol 24978
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186  ax-pre-sup 11187
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7855  df-1st 7974  df-2nd 7975  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-er 8702  df-map 8821  df-en 8939  df-dom 8940  df-sdom 8941  df-sup 9436  df-inf 9437  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-div 11871  df-nn 12212  df-2 12274  df-3 12275  df-n0 12472  df-z 12558  df-uz 12822  df-rp 12974  df-ico 13329  df-fz 13484  df-fl 13756  df-seq 13966  df-exp 14027  df-cj 15045  df-re 15046  df-im 15047  df-sqrt 15181  df-abs 15182
This theorem is referenced by:  ovolunlem1  25013
  Copyright terms: Public domain W3C validator