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

Theorem isercoll2 15611
Description: Generalize isercoll 15610 so that both sequences have arbitrary starting point. (Contributed by Mario Carneiro, 6-Apr-2015.)
Hypotheses
Ref Expression
isercoll2.z 𝑍 = (β„€β‰₯β€˜π‘€)
isercoll2.w π‘Š = (β„€β‰₯β€˜π‘)
isercoll2.m (πœ‘ β†’ 𝑀 ∈ β„€)
isercoll2.n (πœ‘ β†’ 𝑁 ∈ β„€)
isercoll2.g (πœ‘ β†’ 𝐺:π‘βŸΆπ‘Š)
isercoll2.i ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
isercoll2.0 ((πœ‘ ∧ 𝑛 ∈ (π‘Š βˆ– ran 𝐺)) β†’ (πΉβ€˜π‘›) = 0)
isercoll2.f ((πœ‘ ∧ 𝑛 ∈ π‘Š) β†’ (πΉβ€˜π‘›) ∈ β„‚)
isercoll2.h ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)))
Assertion
Ref Expression
isercoll2 (πœ‘ β†’ (seq𝑀( + , 𝐻) ⇝ 𝐴 ↔ seq𝑁( + , 𝐹) ⇝ 𝐴))
Distinct variable groups:   π‘˜,𝑛,𝐴   π‘˜,𝐹,𝑛   π‘˜,𝐺,𝑛   π‘˜,𝐻,𝑛   𝑛,𝑁   π‘˜,𝑀,𝑛   πœ‘,π‘˜,𝑛   𝑛,π‘Š   π‘˜,𝑍
Allowed substitution hints:   𝑁(π‘˜)   π‘Š(π‘˜)   𝑍(𝑛)

Proof of Theorem isercoll2
Dummy variables 𝑗 π‘₯ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isercoll2.z . . 3 𝑍 = (β„€β‰₯β€˜π‘€)
2 isercoll2.m . . 3 (πœ‘ β†’ 𝑀 ∈ β„€)
3 1z 12588 . . . 4 1 ∈ β„€
4 zsubcl 12600 . . . 4 ((1 ∈ β„€ ∧ 𝑀 ∈ β„€) β†’ (1 βˆ’ 𝑀) ∈ β„€)
53, 2, 4sylancr 586 . . 3 (πœ‘ β†’ (1 βˆ’ 𝑀) ∈ β„€)
6 seqex 13964 . . . 4 seq𝑀( + , 𝐻) ∈ V
76a1i 11 . . 3 (πœ‘ β†’ seq𝑀( + , 𝐻) ∈ V)
8 seqex 13964 . . . 4 seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))) ∈ V
98a1i 11 . . 3 (πœ‘ β†’ seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))) ∈ V)
10 simpr 484 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ 𝑍)
1110, 1eleqtrdi 2835 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ ∈ (β„€β‰₯β€˜π‘€))
125adantr 480 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (1 βˆ’ 𝑀) ∈ β„€)
13 simpl 482 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ πœ‘)
14 elfzuz 13493 . . . . . . 7 (𝑗 ∈ (𝑀...π‘˜) β†’ 𝑗 ∈ (β„€β‰₯β€˜π‘€))
1514, 1eleqtrrdi 2836 . . . . . 6 (𝑗 ∈ (𝑀...π‘˜) β†’ 𝑗 ∈ 𝑍)
16 simpr 484 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 𝑗 ∈ 𝑍)
1716, 1eleqtrdi 2835 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 𝑗 ∈ (β„€β‰₯β€˜π‘€))
18 eluzelz 12828 . . . . . . . . . . . 12 (𝑗 ∈ (β„€β‰₯β€˜π‘€) β†’ 𝑗 ∈ β„€)
1917, 18syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 𝑗 ∈ β„€)
2019zcnd 12663 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 𝑗 ∈ β„‚)
212zcnd 12663 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀 ∈ β„‚)
2221adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 𝑀 ∈ β„‚)
23 1cnd 11205 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ 1 ∈ β„‚)
2420, 22, 23subadd23d 11589 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ ((𝑗 βˆ’ 𝑀) + 1) = (𝑗 + (1 βˆ’ 𝑀)))
25 uznn0sub 12857 . . . . . . . . . . 11 (𝑗 ∈ (β„€β‰₯β€˜π‘€) β†’ (𝑗 βˆ’ 𝑀) ∈ β„•0)
2617, 25syl 17 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑗 βˆ’ 𝑀) ∈ β„•0)
27 nn0p1nn 12507 . . . . . . . . . 10 ((𝑗 βˆ’ 𝑀) ∈ β„•0 β†’ ((𝑗 βˆ’ 𝑀) + 1) ∈ β„•)
2826, 27syl 17 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ ((𝑗 βˆ’ 𝑀) + 1) ∈ β„•)
2924, 28eqeltrrd 2826 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑗 + (1 βˆ’ 𝑀)) ∈ β„•)
30 oveq1 7408 . . . . . . . . . . 11 (π‘₯ = (𝑗 + (1 βˆ’ 𝑀)) β†’ (π‘₯ βˆ’ 1) = ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))
3130oveq2d 7417 . . . . . . . . . 10 (π‘₯ = (𝑗 + (1 βˆ’ 𝑀)) β†’ (𝑀 + (π‘₯ βˆ’ 1)) = (𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1)))
3231fveq2d 6885 . . . . . . . . 9 (π‘₯ = (𝑗 + (1 βˆ’ 𝑀)) β†’ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))) = (π»β€˜(𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))))
33 eqid 2724 . . . . . . . . 9 (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1)))) = (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))
34 fvex 6894 . . . . . . . . 9 (π»β€˜(𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))) ∈ V
3532, 33, 34fvmpt 6988 . . . . . . . 8 ((𝑗 + (1 βˆ’ 𝑀)) ∈ β„• β†’ ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + (1 βˆ’ 𝑀))) = (π»β€˜(𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))))
3629, 35syl 17 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + (1 βˆ’ 𝑀))) = (π»β€˜(𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))))
3724oveq1d 7416 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (((𝑗 βˆ’ 𝑀) + 1) βˆ’ 1) = ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))
3826nn0cnd 12530 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑗 βˆ’ 𝑀) ∈ β„‚)
39 ax-1cn 11163 . . . . . . . . . . . 12 1 ∈ β„‚
40 pncan 11462 . . . . . . . . . . . 12 (((𝑗 βˆ’ 𝑀) ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (((𝑗 βˆ’ 𝑀) + 1) βˆ’ 1) = (𝑗 βˆ’ 𝑀))
4138, 39, 40sylancl 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (((𝑗 βˆ’ 𝑀) + 1) βˆ’ 1) = (𝑗 βˆ’ 𝑀))
4237, 41eqtr3d 2766 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1) = (𝑗 βˆ’ 𝑀))
4342oveq2d 7417 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1)) = (𝑀 + (𝑗 βˆ’ 𝑀)))
4422, 20pncan3d 11570 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑀 + (𝑗 βˆ’ 𝑀)) = 𝑗)
4543, 44eqtrd 2764 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1)) = 𝑗)
4645fveq2d 6885 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (π»β€˜(𝑀 + ((𝑗 + (1 βˆ’ 𝑀)) βˆ’ 1))) = (π»β€˜π‘—))
4736, 46eqtr2d 2765 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ 𝑍) β†’ (π»β€˜π‘—) = ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + (1 βˆ’ 𝑀))))
4813, 15, 47syl2an 595 . . . . 5 (((πœ‘ ∧ π‘˜ ∈ 𝑍) ∧ 𝑗 ∈ (𝑀...π‘˜)) β†’ (π»β€˜π‘—) = ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + (1 βˆ’ 𝑀))))
4911, 12, 48seqshft2 13990 . . . 4 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (seq𝑀( + , 𝐻)β€˜π‘˜) = (seq(𝑀 + (1 βˆ’ 𝑀))( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1)))))β€˜(π‘˜ + (1 βˆ’ 𝑀))))
5021adantr 480 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ 𝑀 ∈ β„‚)
51 pncan3 11464 . . . . . . 7 ((𝑀 ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (𝑀 + (1 βˆ’ 𝑀)) = 1)
5250, 39, 51sylancl 585 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + (1 βˆ’ 𝑀)) = 1)
5352seqeq1d 13968 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ seq(𝑀 + (1 βˆ’ 𝑀))( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))) = seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))))
5453fveq1d 6883 . . . 4 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (seq(𝑀 + (1 βˆ’ 𝑀))( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1)))))β€˜(π‘˜ + (1 βˆ’ 𝑀))) = (seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1)))))β€˜(π‘˜ + (1 βˆ’ 𝑀))))
5549, 54eqtr2d 2765 . . 3 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1)))))β€˜(π‘˜ + (1 βˆ’ 𝑀))) = (seq𝑀( + , 𝐻)β€˜π‘˜))
561, 2, 5, 7, 9, 55climshft2 15522 . 2 (πœ‘ β†’ (seq𝑀( + , 𝐻) ⇝ 𝐴 ↔ seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))) ⇝ 𝐴))
57 isercoll2.w . . 3 π‘Š = (β„€β‰₯β€˜π‘)
58 isercoll2.n . . 3 (πœ‘ β†’ 𝑁 ∈ β„€)
59 isercoll2.g . . . . . 6 (πœ‘ β†’ 𝐺:π‘βŸΆπ‘Š)
6059adantr 480 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ β„•) β†’ 𝐺:π‘βŸΆπ‘Š)
61 uzid 12833 . . . . . . . 8 (𝑀 ∈ β„€ β†’ 𝑀 ∈ (β„€β‰₯β€˜π‘€))
622, 61syl 17 . . . . . . 7 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜π‘€))
63 nnm1nn0 12509 . . . . . . 7 (π‘₯ ∈ β„• β†’ (π‘₯ βˆ’ 1) ∈ β„•0)
64 uzaddcl 12884 . . . . . . 7 ((𝑀 ∈ (β„€β‰₯β€˜π‘€) ∧ (π‘₯ βˆ’ 1) ∈ β„•0) β†’ (𝑀 + (π‘₯ βˆ’ 1)) ∈ (β„€β‰₯β€˜π‘€))
6562, 63, 64syl2an 595 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ β„•) β†’ (𝑀 + (π‘₯ βˆ’ 1)) ∈ (β„€β‰₯β€˜π‘€))
6665, 1eleqtrrdi 2836 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ β„•) β†’ (𝑀 + (π‘₯ βˆ’ 1)) ∈ 𝑍)
6760, 66ffvelcdmd 7077 . . . 4 ((πœ‘ ∧ π‘₯ ∈ β„•) β†’ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))) ∈ π‘Š)
6867fmpttd 7106 . . 3 (πœ‘ β†’ (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))):β„•βŸΆπ‘Š)
69 fveq2 6881 . . . . . . 7 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))))
70 fvoveq1 7424 . . . . . . 7 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ (πΊβ€˜(π‘˜ + 1)) = (πΊβ€˜((𝑀 + (𝑗 βˆ’ 1)) + 1)))
7169, 70breq12d 5151 . . . . . 6 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ ((πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)) ↔ (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))) < (πΊβ€˜((𝑀 + (𝑗 βˆ’ 1)) + 1))))
72 isercoll2.i . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
7372ralrimiva 3138 . . . . . . 7 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
7473adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ βˆ€π‘˜ ∈ 𝑍 (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
75 nnm1nn0 12509 . . . . . . . 8 (𝑗 ∈ β„• β†’ (𝑗 βˆ’ 1) ∈ β„•0)
76 uzaddcl 12884 . . . . . . . 8 ((𝑀 ∈ (β„€β‰₯β€˜π‘€) ∧ (𝑗 βˆ’ 1) ∈ β„•0) β†’ (𝑀 + (𝑗 βˆ’ 1)) ∈ (β„€β‰₯β€˜π‘€))
7762, 75, 76syl2an 595 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑀 + (𝑗 βˆ’ 1)) ∈ (β„€β‰₯β€˜π‘€))
7877, 1eleqtrrdi 2836 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑀 + (𝑗 βˆ’ 1)) ∈ 𝑍)
7971, 74, 78rspcdva 3605 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))) < (πΊβ€˜((𝑀 + (𝑗 βˆ’ 1)) + 1)))
80 nncn 12216 . . . . . . . . . 10 (𝑗 ∈ β„• β†’ 𝑗 ∈ β„‚)
8180adantl 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑗 ∈ β„‚)
82 1cnd 11205 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 1 ∈ β„‚)
8381, 82, 82addsubd 11588 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((𝑗 + 1) βˆ’ 1) = ((𝑗 βˆ’ 1) + 1))
8483oveq2d 7417 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑀 + ((𝑗 + 1) βˆ’ 1)) = (𝑀 + ((𝑗 βˆ’ 1) + 1)))
8521adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑀 ∈ β„‚)
8675adantl 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑗 βˆ’ 1) ∈ β„•0)
8786nn0cnd 12530 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑗 βˆ’ 1) ∈ β„‚)
8885, 87, 82addassd 11232 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((𝑀 + (𝑗 βˆ’ 1)) + 1) = (𝑀 + ((𝑗 βˆ’ 1) + 1)))
8984, 88eqtr4d 2767 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑀 + ((𝑗 + 1) βˆ’ 1)) = ((𝑀 + (𝑗 βˆ’ 1)) + 1))
9089fveq2d 6885 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))) = (πΊβ€˜((𝑀 + (𝑗 βˆ’ 1)) + 1)))
9179, 90breqtrrd 5166 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))) < (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))))
92 oveq1 7408 . . . . . . . 8 (π‘₯ = 𝑗 β†’ (π‘₯ βˆ’ 1) = (𝑗 βˆ’ 1))
9392oveq2d 7417 . . . . . . 7 (π‘₯ = 𝑗 β†’ (𝑀 + (π‘₯ βˆ’ 1)) = (𝑀 + (𝑗 βˆ’ 1)))
9493fveq2d 6885 . . . . . 6 (π‘₯ = 𝑗 β†’ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))) = (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))))
95 eqid 2724 . . . . . 6 (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))) = (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))
96 fvex 6894 . . . . . 6 (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))) ∈ V
9794, 95, 96fvmpt 6988 . . . . 5 (𝑗 ∈ β„• β†’ ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) = (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))))
9897adantl 481 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) = (πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))))
99 peano2nn 12220 . . . . . 6 (𝑗 ∈ β„• β†’ (𝑗 + 1) ∈ β„•)
10099adantl 481 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑗 + 1) ∈ β„•)
101 oveq1 7408 . . . . . . . 8 (π‘₯ = (𝑗 + 1) β†’ (π‘₯ βˆ’ 1) = ((𝑗 + 1) βˆ’ 1))
102101oveq2d 7417 . . . . . . 7 (π‘₯ = (𝑗 + 1) β†’ (𝑀 + (π‘₯ βˆ’ 1)) = (𝑀 + ((𝑗 + 1) βˆ’ 1)))
103102fveq2d 6885 . . . . . 6 (π‘₯ = (𝑗 + 1) β†’ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))) = (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))))
104 fvex 6894 . . . . . 6 (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))) ∈ V
105103, 95, 104fvmpt 6988 . . . . 5 ((𝑗 + 1) ∈ β„• β†’ ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + 1)) = (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))))
106100, 105syl 17 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + 1)) = (πΊβ€˜(𝑀 + ((𝑗 + 1) βˆ’ 1))))
10791, 98, 1063brtr4d 5170 . . 3 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) < ((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜(𝑗 + 1)))
10859ffnd 6708 . . . . . . . 8 (πœ‘ β†’ 𝐺 Fn 𝑍)
109 uznn0sub 12857 . . . . . . . . . . . . 13 (π‘˜ ∈ (β„€β‰₯β€˜π‘€) β†’ (π‘˜ βˆ’ 𝑀) ∈ β„•0)
11011, 109syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π‘˜ βˆ’ 𝑀) ∈ β„•0)
111 nn0p1nn 12507 . . . . . . . . . . . 12 ((π‘˜ βˆ’ 𝑀) ∈ β„•0 β†’ ((π‘˜ βˆ’ 𝑀) + 1) ∈ β„•)
112110, 111syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ ((π‘˜ βˆ’ 𝑀) + 1) ∈ β„•)
113110nn0cnd 12530 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π‘˜ βˆ’ 𝑀) ∈ β„‚)
114 pncan 11462 . . . . . . . . . . . . . . 15 (((π‘˜ βˆ’ 𝑀) ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1) = (π‘˜ βˆ’ 𝑀))
115113, 39, 114sylancl 585 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1) = (π‘˜ βˆ’ 𝑀))
116115oveq2d 7417 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1)) = (𝑀 + (π‘˜ βˆ’ 𝑀)))
117 eluzelz 12828 . . . . . . . . . . . . . . . 16 (π‘˜ ∈ (β„€β‰₯β€˜π‘€) β†’ π‘˜ ∈ β„€)
118117, 1eleq2s 2843 . . . . . . . . . . . . . . 15 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ β„€)
119118zcnd 12663 . . . . . . . . . . . . . 14 (π‘˜ ∈ 𝑍 β†’ π‘˜ ∈ β„‚)
120 pncan3 11464 . . . . . . . . . . . . . 14 ((𝑀 ∈ β„‚ ∧ π‘˜ ∈ β„‚) β†’ (𝑀 + (π‘˜ βˆ’ 𝑀)) = π‘˜)
12121, 119, 120syl2an 595 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (𝑀 + (π‘˜ βˆ’ 𝑀)) = π‘˜)
122116, 121eqtr2d 2765 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ π‘˜ = (𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1)))
123122fveq2d 6885 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1))))
124 oveq1 7408 . . . . . . . . . . . . . 14 (π‘₯ = ((π‘˜ βˆ’ 𝑀) + 1) β†’ (π‘₯ βˆ’ 1) = (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1))
125124oveq2d 7417 . . . . . . . . . . . . 13 (π‘₯ = ((π‘˜ βˆ’ 𝑀) + 1) β†’ (𝑀 + (π‘₯ βˆ’ 1)) = (𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1)))
126125fveq2d 6885 . . . . . . . . . . . 12 (π‘₯ = ((π‘˜ βˆ’ 𝑀) + 1) β†’ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))) = (πΊβ€˜(𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1))))
127126rspceeqv 3625 . . . . . . . . . . 11 ((((π‘˜ βˆ’ 𝑀) + 1) ∈ β„• ∧ (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (((π‘˜ βˆ’ 𝑀) + 1) βˆ’ 1)))) β†’ βˆƒπ‘₯ ∈ β„• (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))
128112, 123, 127syl2anc 583 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ βˆƒπ‘₯ ∈ β„• (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))
129 fvex 6894 . . . . . . . . . . 11 (πΊβ€˜π‘˜) ∈ V
13095elrnmpt 5945 . . . . . . . . . . 11 ((πΊβ€˜π‘˜) ∈ V β†’ ((πΊβ€˜π‘˜) ∈ ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))) ↔ βˆƒπ‘₯ ∈ β„• (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))
131129, 130ax-mp 5 . . . . . . . . . 10 ((πΊβ€˜π‘˜) ∈ ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))) ↔ βˆƒπ‘₯ ∈ β„• (πΊβ€˜π‘˜) = (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))
132128, 131sylibr 233 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (πΊβ€˜π‘˜) ∈ ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))
133132ralrimiva 3138 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 (πΊβ€˜π‘˜) ∈ ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))
134 ffnfv 7110 . . . . . . . 8 (𝐺:π‘βŸΆran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))) ↔ (𝐺 Fn 𝑍 ∧ βˆ€π‘˜ ∈ 𝑍 (πΊβ€˜π‘˜) ∈ ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))))
135108, 133, 134sylanbrc 582 . . . . . . 7 (πœ‘ β†’ 𝐺:π‘βŸΆran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))
136135frnd 6715 . . . . . 6 (πœ‘ β†’ ran 𝐺 βŠ† ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))
137136sscond 4133 . . . . 5 (πœ‘ β†’ (π‘Š βˆ– ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))) βŠ† (π‘Š βˆ– ran 𝐺))
138137sselda 3974 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (π‘Š βˆ– ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))) β†’ 𝑛 ∈ (π‘Š βˆ– ran 𝐺))
139 isercoll2.0 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (π‘Š βˆ– ran 𝐺)) β†’ (πΉβ€˜π‘›) = 0)
140138, 139syldan 590 . . 3 ((πœ‘ ∧ 𝑛 ∈ (π‘Š βˆ– ran (π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1)))))) β†’ (πΉβ€˜π‘›) = 0)
141 isercoll2.f . . 3 ((πœ‘ ∧ 𝑛 ∈ π‘Š) β†’ (πΉβ€˜π‘›) ∈ β„‚)
142 fveq2 6881 . . . . . 6 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ (π»β€˜π‘˜) = (π»β€˜(𝑀 + (𝑗 βˆ’ 1))))
14369fveq2d 6885 . . . . . 6 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ (πΉβ€˜(πΊβ€˜π‘˜)) = (πΉβ€˜(πΊβ€˜(𝑀 + (𝑗 βˆ’ 1)))))
144142, 143eqeq12d 2740 . . . . 5 (π‘˜ = (𝑀 + (𝑗 βˆ’ 1)) β†’ ((π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)) ↔ (π»β€˜(𝑀 + (𝑗 βˆ’ 1))) = (πΉβ€˜(πΊβ€˜(𝑀 + (𝑗 βˆ’ 1))))))
145 isercoll2.h . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ 𝑍) β†’ (π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)))
146145ralrimiva 3138 . . . . . 6 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝑍 (π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)))
147146adantr 480 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ βˆ€π‘˜ ∈ 𝑍 (π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)))
148144, 147, 78rspcdva 3605 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (π»β€˜(𝑀 + (𝑗 βˆ’ 1))) = (πΉβ€˜(πΊβ€˜(𝑀 + (𝑗 βˆ’ 1)))))
14993fveq2d 6885 . . . . . 6 (π‘₯ = 𝑗 β†’ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))) = (π»β€˜(𝑀 + (𝑗 βˆ’ 1))))
150 fvex 6894 . . . . . 6 (π»β€˜(𝑀 + (𝑗 βˆ’ 1))) ∈ V
151149, 33, 150fvmpt 6988 . . . . 5 (𝑗 ∈ β„• β†’ ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) = (π»β€˜(𝑀 + (𝑗 βˆ’ 1))))
152151adantl 481 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) = (π»β€˜(𝑀 + (𝑗 βˆ’ 1))))
15398fveq2d 6885 . . . 4 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΉβ€˜((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—)) = (πΉβ€˜(πΊβ€˜(𝑀 + (𝑗 βˆ’ 1)))))
154148, 152, 1533eqtr4d 2774 . . 3 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—) = (πΉβ€˜((π‘₯ ∈ β„• ↦ (πΊβ€˜(𝑀 + (π‘₯ βˆ’ 1))))β€˜π‘—)))
15557, 58, 68, 107, 140, 141, 154isercoll 15610 . 2 (πœ‘ β†’ (seq1( + , (π‘₯ ∈ β„• ↦ (π»β€˜(𝑀 + (π‘₯ βˆ’ 1))))) ⇝ 𝐴 ↔ seq𝑁( + , 𝐹) ⇝ 𝐴))
15656, 155bitrd 279 1 (πœ‘ β†’ (seq𝑀( + , 𝐻) ⇝ 𝐴 ↔ seq𝑁( + , 𝐹) ⇝ 𝐴))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533   ∈ wcel 2098  βˆ€wral 3053  βˆƒwrex 3062  Vcvv 3466   βˆ– cdif 3937   class class class wbr 5138   ↦ cmpt 5221  ran crn 5667   Fn wfn 6528  βŸΆwf 6529  β€˜cfv 6533  (class class class)co 7401  β„‚cc 11103  0cc0 11105  1c1 11106   + caddc 11108   < clt 11244   βˆ’ cmin 11440  β„•cn 12208  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  ...cfz 13480  seqcseq 13962   ⇝ cli 15424
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9631  ax-cnex 11161  ax-resscn 11162  ax-1cn 11163  ax-icn 11164  ax-addcl 11165  ax-addrcl 11166  ax-mulcl 11167  ax-mulrcl 11168  ax-mulcom 11169  ax-addass 11170  ax-mulass 11171  ax-distr 11172  ax-i2m1 11173  ax-1ne0 11174  ax-1rid 11175  ax-rnegex 11176  ax-rrecex 11177  ax-cnre 11178  ax-pre-lttri 11179  ax-pre-lttrn 11180  ax-pre-ltadd 11181  ax-pre-mulgt0 11182  ax-pre-sup 11183
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-om 7849  df-1st 7968  df-2nd 7969  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-oadd 8465  df-er 8698  df-en 8935  df-dom 8936  df-sdom 8937  df-fin 8938  df-sup 9432  df-card 9929  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-nn 12209  df-n0 12469  df-xnn0 12541  df-z 12555  df-uz 12819  df-fz 13481  df-seq 13963  df-hash 14287  df-shft 15010  df-clim 15428
This theorem is referenced by:  iserodd  16766  stirlinglem5  45245
  Copyright terms: Public domain W3C validator