Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  jm2.18 Structured version   Visualization version   GIF version

Theorem jm2.18 42287
Description: Theorem 2.18 of [JonesMatijasevic] p. 696. Direct relationship of the exponential function to X and Y sequences. (Contributed by Stefan O'Rear, 14-Oct-2014.)
Assertion
Ref Expression
jm2.18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0 ∧ 𝑁 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁)))

Proof of Theorem jm2.18
Dummy variables π‘Ž 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 2z 12595 . . . . . . . . . 10 2 ∈ β„€
2 eluzelz 12833 . . . . . . . . . . 11 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ 𝐴 ∈ β„€)
32adantr 480 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 𝐴 ∈ β„€)
4 zmulcl 12612 . . . . . . . . . 10 ((2 ∈ β„€ ∧ 𝐴 ∈ β„€) β†’ (2 Β· 𝐴) ∈ β„€)
51, 3, 4sylancr 586 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (2 Β· 𝐴) ∈ β„€)
6 nn0z 12584 . . . . . . . . . 10 (𝐾 ∈ β„•0 β†’ 𝐾 ∈ β„€)
76adantl 481 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 𝐾 ∈ β„€)
85, 7zmulcld 12673 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((2 Β· 𝐴) Β· 𝐾) ∈ β„€)
9 zsqcl 14096 . . . . . . . . 9 (𝐾 ∈ β„€ β†’ (𝐾↑2) ∈ β„€)
107, 9syl 17 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾↑2) ∈ β„€)
118, 10zsubcld 12672 . . . . . . 7 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) ∈ β„€)
12 peano2zm 12606 . . . . . . 7 ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) ∈ β„€ β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€)
1311, 12syl 17 . . . . . 6 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€)
14 dvds0 16219 . . . . . 6 (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ 0)
1513, 14syl 17 . . . . 5 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ 0)
16 rmx0 42224 . . . . . . . . . 10 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ (𝐴 Xrm 0) = 1)
1716adantr 480 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 Xrm 0) = 1)
18 rmy0 42228 . . . . . . . . . . . 12 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ (𝐴 Yrm 0) = 0)
1918adantr 480 . . . . . . . . . . 11 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 Yrm 0) = 0)
2019oveq2d 7420 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0)) = ((𝐴 βˆ’ 𝐾) Β· 0))
213, 7zsubcld 12672 . . . . . . . . . . . 12 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 βˆ’ 𝐾) ∈ β„€)
2221zcnd 12668 . . . . . . . . . . 11 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 βˆ’ 𝐾) ∈ β„‚)
2322mul01d 11414 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· 0) = 0)
2420, 23eqtrd 2766 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0)) = 0)
2517, 24oveq12d 7422 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) = (1 βˆ’ 0))
26 1m0e1 12334 . . . . . . . 8 (1 βˆ’ 0) = 1
2725, 26eqtrdi 2782 . . . . . . 7 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) = 1)
28 nn0cn 12483 . . . . . . . . 9 (𝐾 ∈ β„•0 β†’ 𝐾 ∈ β„‚)
2928adantl 481 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 𝐾 ∈ β„‚)
3029exp0d 14107 . . . . . . 7 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾↑0) = 1)
3127, 30oveq12d 7422 . . . . . 6 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0)) = (1 βˆ’ 1))
32 1m1e0 12285 . . . . . 6 (1 βˆ’ 1) = 0
3331, 32eqtrdi 2782 . . . . 5 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0)) = 0)
3415, 33breqtrrd 5169 . . . 4 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0)))
35 rmx1 42225 . . . . . . . . . 10 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ (𝐴 Xrm 1) = 𝐴)
3635adantr 480 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 Xrm 1) = 𝐴)
37 rmy1 42229 . . . . . . . . . . . 12 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ (𝐴 Yrm 1) = 1)
3837adantr 480 . . . . . . . . . . 11 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 Yrm 1) = 1)
3938oveq2d 7420 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1)) = ((𝐴 βˆ’ 𝐾) Β· 1))
4022mulridd 11232 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· 1) = (𝐴 βˆ’ 𝐾))
4139, 40eqtrd 2766 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1)) = (𝐴 βˆ’ 𝐾))
4236, 41oveq12d 7422 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) = (𝐴 βˆ’ (𝐴 βˆ’ 𝐾)))
433zcnd 12668 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 𝐴 ∈ β„‚)
4443, 29nncand 11577 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐴 βˆ’ (𝐴 βˆ’ 𝐾)) = 𝐾)
4542, 44eqtrd 2766 . . . . . . 7 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) = 𝐾)
4629exp1d 14108 . . . . . . 7 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾↑1) = 𝐾)
4745, 46oveq12d 7422 . . . . . 6 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1)) = (𝐾 βˆ’ 𝐾))
4829subidd 11560 . . . . . 6 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾 βˆ’ 𝐾) = 0)
4947, 48eqtrd 2766 . . . . 5 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1)) = 0)
5015, 49breqtrrd 5169 . . . 4 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1)))
51 pm3.43 473 . . . . 5 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))) ∧ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))))
5213adantr 480 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€)
535adantr 480 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (2 Β· 𝐴) ∈ β„€)
54 simpll 764 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝐴 ∈ (β„€β‰₯β€˜2))
55 nnz 12580 . . . . . . . . . . . . . . . . . 18 (𝑏 ∈ β„• β†’ 𝑏 ∈ β„€)
5655adantl 481 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝑏 ∈ β„€)
57 frmx 42212 . . . . . . . . . . . . . . . . . 18 Xrm :((β„€β‰₯β€˜2) Γ— β„€)βŸΆβ„•0
5857fovcl 7532 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Xrm 𝑏) ∈ β„•0)
5954, 56, 58syl2anc 583 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm 𝑏) ∈ β„•0)
6059nn0zd 12585 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm 𝑏) ∈ β„€)
6121adantr 480 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 βˆ’ 𝐾) ∈ β„€)
62 frmy 42213 . . . . . . . . . . . . . . . . . 18 Yrm :((β„€β‰₯β€˜2) Γ— β„€)βŸΆβ„€
6362fovcl 7532 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Yrm 𝑏) ∈ β„€)
6454, 56, 63syl2anc 583 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Yrm 𝑏) ∈ β„€)
6561, 64zmulcld 12673 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)) ∈ β„€)
6660, 65zsubcld 12672 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) ∈ β„€)
6753, 66zmulcld 12673 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) ∈ β„€)
68 peano2zm 12606 . . . . . . . . . . . . . . . . 17 (𝑏 ∈ β„€ β†’ (𝑏 βˆ’ 1) ∈ β„€)
6956, 68syl 17 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝑏 βˆ’ 1) ∈ β„€)
7057fovcl 7532 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑏 βˆ’ 1) ∈ β„€) β†’ (𝐴 Xrm (𝑏 βˆ’ 1)) ∈ β„•0)
7154, 69, 70syl2anc 583 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm (𝑏 βˆ’ 1)) ∈ β„•0)
7271nn0zd 12585 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm (𝑏 βˆ’ 1)) ∈ β„€)
7362fovcl 7532 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑏 βˆ’ 1) ∈ β„€) β†’ (𝐴 Yrm (𝑏 βˆ’ 1)) ∈ β„€)
7454, 69, 73syl2anc 583 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Yrm (𝑏 βˆ’ 1)) ∈ β„€)
7561, 74zmulcld 12673 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))) ∈ β„€)
7672, 75zsubcld 12672 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) ∈ β„€)
7767, 76zsubcld 12672 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) ∈ β„€)
7852, 77jca 511 . . . . . . . . . . 11 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) ∈ β„€))
7978adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) ∈ β„€))
807adantr 480 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝐾 ∈ β„€)
81 nnnn0 12480 . . . . . . . . . . . . . . . 16 (𝑏 ∈ β„• β†’ 𝑏 ∈ β„•0)
8281adantl 481 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝑏 ∈ β„•0)
83 zexpcl 14044 . . . . . . . . . . . . . . 15 ((𝐾 ∈ β„€ ∧ 𝑏 ∈ β„•0) β†’ (𝐾↑𝑏) ∈ β„€)
8480, 82, 83syl2anc 583 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑𝑏) ∈ β„€)
8553, 84zmulcld 12673 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· (𝐾↑𝑏)) ∈ β„€)
86 nnm1nn0 12514 . . . . . . . . . . . . . . 15 (𝑏 ∈ β„• β†’ (𝑏 βˆ’ 1) ∈ β„•0)
8786adantl 481 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝑏 βˆ’ 1) ∈ β„•0)
88 zexpcl 14044 . . . . . . . . . . . . . 14 ((𝐾 ∈ β„€ ∧ (𝑏 βˆ’ 1) ∈ β„•0) β†’ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€)
8980, 87, 88syl2anc 583 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€)
9085, 89zsubcld 12672 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∈ β„€)
91 0z 12570 . . . . . . . . . . . . . . 15 0 ∈ β„€
92 zaddcl 12603 . . . . . . . . . . . . . . 15 ((0 ∈ β„€ ∧ (𝐾↑2) ∈ β„€) β†’ (0 + (𝐾↑2)) ∈ β„€)
9391, 10, 92sylancr 586 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (0 + (𝐾↑2)) ∈ β„€)
9493adantr 480 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (0 + (𝐾↑2)) ∈ β„€)
9589, 94zmulcld 12673 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))) ∈ β„€)
9690, 95jca 511 . . . . . . . . . . 11 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∈ β„€ ∧ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))) ∈ β„€))
9796adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∈ β„€ ∧ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))) ∈ β„€))
9852, 67, 853jca 1125 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) ∈ β„€ ∧ ((2 Β· 𝐴) Β· (𝐾↑𝑏)) ∈ β„€))
9998adantr 480 . . . . . . . . . . 11 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) ∈ β„€ ∧ ((2 Β· 𝐴) Β· (𝐾↑𝑏)) ∈ β„€))
10076, 89jca 511 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€))
101100adantr 480 . . . . . . . . . . 11 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€))
10213, 5, 53jca 1125 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€))
103102ad2antrr 723 . . . . . . . . . . . . 13 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€))
10466, 84jca 511 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) ∈ β„€ ∧ (𝐾↑𝑏) ∈ β„€))
105104adantr 480 . . . . . . . . . . . . 13 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) ∈ β„€ ∧ (𝐾↑𝑏) ∈ β„€))
106 congid 42270 . . . . . . . . . . . . . . 15 ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((2 Β· 𝐴) βˆ’ (2 Β· 𝐴)))
10713, 5, 106syl2anc 583 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((2 Β· 𝐴) βˆ’ (2 Β· 𝐴)))
108107ad2antrr 723 . . . . . . . . . . . . 13 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((2 Β· 𝐴) βˆ’ (2 Β· 𝐴)))
109 simpr 484 . . . . . . . . . . . . 13 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))
110 congmul 42266 . . . . . . . . . . . . 13 (((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€ ∧ (2 Β· 𝐴) ∈ β„€) ∧ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) ∈ β„€ ∧ (𝐾↑𝑏) ∈ β„€) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((2 Β· 𝐴) βˆ’ (2 Β· 𝐴)) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((2 Β· 𝐴) Β· (𝐾↑𝑏))))
111103, 105, 108, 109, 110syl112anc 1371 . . . . . . . . . . . 12 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((2 Β· 𝐴) Β· (𝐾↑𝑏))))
112111adantrl 713 . . . . . . . . . . 11 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((2 Β· 𝐴) Β· (𝐾↑𝑏))))
113 simprl 768 . . . . . . . . . . 11 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))
114 congsub 42269 . . . . . . . . . . 11 (((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) ∈ β„€ ∧ ((2 Β· 𝐴) Β· (𝐾↑𝑏)) ∈ β„€) ∧ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((2 Β· 𝐴) Β· (𝐾↑𝑏))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))))
11599, 101, 112, 113, 114syl112anc 1371 . . . . . . . . . 10 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))))
11613, 10zaddcld 12671 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) ∈ β„€)
117116adantr 480 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) ∈ β„€)
118 congid 42270 . . . . . . . . . . . . . 14 ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑(𝑏 βˆ’ 1)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))
11952, 89, 118syl2anc 583 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑(𝑏 βˆ’ 1)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))
120 0zd 12571 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 0 ∈ β„€)
121 iddvds 16217 . . . . . . . . . . . . . . . . 17 (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1))
12213, 121syl 17 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1))
12313zcnd 12668 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„‚)
124123subid1d 11561 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ’ 0) = ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1))
125122, 124breqtrrd 5169 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ’ 0))
126 congid 42270 . . . . . . . . . . . . . . . 16 ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (𝐾↑2) ∈ β„€) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑2) βˆ’ (𝐾↑2)))
12713, 10, 126syl2anc 583 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑2) βˆ’ (𝐾↑2)))
128 congadd 42265 . . . . . . . . . . . . . . 15 (((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ 0 ∈ β„€) ∧ ((𝐾↑2) ∈ β„€ ∧ (𝐾↑2) ∈ β„€) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ’ 0) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑2) βˆ’ (𝐾↑2)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) βˆ’ (0 + (𝐾↑2))))
12913, 13, 120, 10, 10, 125, 127, 128syl322anc 1395 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) βˆ’ (0 + (𝐾↑2))))
130129adantr 480 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) βˆ’ (0 + (𝐾↑2))))
131 congmul 42266 . . . . . . . . . . . . 13 (((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€ ∧ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„€) ∧ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) ∈ β„€ ∧ (0 + (𝐾↑2)) ∈ β„€) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((𝐾↑(𝑏 βˆ’ 1)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) βˆ’ (0 + (𝐾↑2))))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐾↑(𝑏 βˆ’ 1)) Β· (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
13252, 89, 89, 117, 94, 119, 130, 131syl322anc 1395 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐾↑(𝑏 βˆ’ 1)) Β· (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
13311zcnd 12668 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) ∈ β„‚)
13429sqcld 14111 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾↑2) ∈ β„‚)
135 1cnd 11210 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ 1 ∈ β„‚)
136133, 134, 135addsubd 11593 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) + (𝐾↑2)) βˆ’ 1) = (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)))
1378zcnd 12668 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((2 Β· 𝐴) Β· 𝐾) ∈ β„‚)
138137, 134npcand 11576 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) + (𝐾↑2)) = ((2 Β· 𝐴) Β· 𝐾))
139138oveq1d 7419 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) + (𝐾↑2)) βˆ’ 1) = (((2 Β· 𝐴) Β· 𝐾) βˆ’ 1))
140136, 139eqtr3d 2768 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) = (((2 Β· 𝐴) Β· 𝐾) βˆ’ 1))
141140adantr 480 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2)) = (((2 Β· 𝐴) Β· 𝐾) βˆ’ 1))
142141oveq2d 7420 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2))) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (((2 Β· 𝐴) Β· 𝐾) βˆ’ 1)))
14328ad2antlr 724 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝐾 ∈ β„‚)
144143, 87expcld 14113 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑(𝑏 βˆ’ 1)) ∈ β„‚)
145137adantr 480 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· 𝐾) ∈ β„‚)
146 1cnd 11210 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 1 ∈ β„‚)
147144, 145, 146subdid 11671 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (((2 Β· 𝐴) Β· 𝐾) βˆ’ 1)) = (((𝐾↑(𝑏 βˆ’ 1)) Β· ((2 Β· 𝐴) Β· 𝐾)) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· 1)))
1485zcnd 12668 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (2 Β· 𝐴) ∈ β„‚)
149148adantr 480 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (2 Β· 𝐴) ∈ β„‚)
150144, 149, 143mul12d 11424 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· ((2 Β· 𝐴) Β· 𝐾)) = ((2 Β· 𝐴) Β· ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾)))
151 simpr 484 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝑏 ∈ β„•)
152 expm1t 14058 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ β„‚ ∧ 𝑏 ∈ β„•) β†’ (𝐾↑𝑏) = ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾))
153143, 151, 152syl2anc 583 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑𝑏) = ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾))
154153oveq2d 7420 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· (𝐾↑𝑏)) = ((2 Β· 𝐴) Β· ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾)))
155150, 154eqtr4d 2769 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· ((2 Β· 𝐴) Β· 𝐾)) = ((2 Β· 𝐴) Β· (𝐾↑𝑏)))
156144mulridd 11232 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· 1) = (𝐾↑(𝑏 βˆ’ 1)))
157155, 156oveq12d 7422 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐾↑(𝑏 βˆ’ 1)) Β· ((2 Β· 𝐴) Β· 𝐾)) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· 1)) = (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))
158142, 147, 1573eqtrrd 2771 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2))))
159158oveq1d 7419 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))) = (((𝐾↑(𝑏 βˆ’ 1)) Β· (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) + (𝐾↑2))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
160132, 159breqtrrd 5169 . . . . . . . . . . 11 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
161160adantr 480 . . . . . . . . . 10 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
162 congtr 42264 . . . . . . . . . 10 (((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) ∈ β„€ ∧ (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) ∈ β„€) ∧ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∈ β„€ ∧ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))) ∈ β„€) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ (((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· (𝐾↑𝑏)) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
16379, 97, 115, 161, 162syl112anc 1371 . . . . . . . . 9 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
164 rmxluc 42235 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Xrm (𝑏 + 1)) = (((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ (𝐴 Xrm (𝑏 βˆ’ 1))))
16554, 56, 164syl2anc 583 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm (𝑏 + 1)) = (((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ (𝐴 Xrm (𝑏 βˆ’ 1))))
166 rmyluc 42236 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Yrm (𝑏 + 1)) = ((2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) βˆ’ (𝐴 Yrm (𝑏 βˆ’ 1))))
16754, 56, 166syl2anc 583 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Yrm (𝑏 + 1)) = ((2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) βˆ’ (𝐴 Yrm (𝑏 βˆ’ 1))))
168167oveq2d 7420 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1))) = ((𝐴 βˆ’ 𝐾) Β· ((2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) βˆ’ (𝐴 Yrm (𝑏 βˆ’ 1)))))
1692zcnd 12668 . . . . . . . . . . . . . . . . 17 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ 𝐴 ∈ β„‚)
170169ad2antrr 723 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝐴 ∈ β„‚)
171170, 143subcld 11572 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 βˆ’ 𝐾) ∈ β„‚)
172 2cn 12288 . . . . . . . . . . . . . . . 16 2 ∈ β„‚
17363zcnd 12668 . . . . . . . . . . . . . . . . . 18 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Yrm 𝑏) ∈ β„‚)
17454, 56, 173syl2anc 583 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Yrm 𝑏) ∈ β„‚)
175174, 170mulcld 11235 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Yrm 𝑏) Β· 𝐴) ∈ β„‚)
176 mulcl 11193 . . . . . . . . . . . . . . . 16 ((2 ∈ β„‚ ∧ ((𝐴 Yrm 𝑏) Β· 𝐴) ∈ β„‚) β†’ (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) ∈ β„‚)
177172, 175, 176sylancr 586 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) ∈ β„‚)
17873zcnd 12668 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑏 βˆ’ 1) ∈ β„€) β†’ (𝐴 Yrm (𝑏 βˆ’ 1)) ∈ β„‚)
17954, 69, 178syl2anc 583 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Yrm (𝑏 βˆ’ 1)) ∈ β„‚)
180171, 177, 179subdid 11671 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· ((2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) βˆ’ (𝐴 Yrm (𝑏 βˆ’ 1)))) = (((𝐴 βˆ’ 𝐾) Β· (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))))
181 2cnd 12291 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 2 ∈ β„‚)
182181, 174, 170mul12d 11424 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) = ((𝐴 Yrm 𝑏) Β· (2 Β· 𝐴)))
183174, 149mulcomd 11236 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Yrm 𝑏) Β· (2 Β· 𝐴)) = ((2 Β· 𝐴) Β· (𝐴 Yrm 𝑏)))
184182, 183eqtrd 2766 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴)) = ((2 Β· 𝐴) Β· (𝐴 Yrm 𝑏)))
185184oveq2d 7420 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴))) = ((𝐴 βˆ’ 𝐾) Β· ((2 Β· 𝐴) Β· (𝐴 Yrm 𝑏))))
186171, 149, 174mul12d 11424 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· ((2 Β· 𝐴) Β· (𝐴 Yrm 𝑏))) = ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))))
187185, 186eqtrd 2766 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴))) = ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))))
188187oveq1d 7419 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐴 βˆ’ 𝐾) Β· (2 Β· ((𝐴 Yrm 𝑏) Β· 𝐴))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) = (((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))))
189168, 180, 1883eqtrd 2770 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1))) = (((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))))
190165, 189oveq12d 7422 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) = ((((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ (𝐴 Xrm (𝑏 βˆ’ 1))) βˆ’ (((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))))
19158nn0cnd 12535 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑏 ∈ β„€) β†’ (𝐴 Xrm 𝑏) ∈ β„‚)
19254, 56, 191syl2anc 583 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm 𝑏) ∈ β„‚)
193149, 192mulcld 11235 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) ∈ β„‚)
19470nn0cnd 12535 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑏 βˆ’ 1) ∈ β„€) β†’ (𝐴 Xrm (𝑏 βˆ’ 1)) ∈ β„‚)
19554, 69, 194syl2anc 583 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐴 Xrm (𝑏 βˆ’ 1)) ∈ β„‚)
196171, 174mulcld 11235 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)) ∈ β„‚)
197149, 196mulcld 11235 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) ∈ β„‚)
198171, 179mulcld 11235 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))) ∈ β„‚)
199193, 195, 197, 198sub4d 11621 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ (𝐴 Xrm (𝑏 βˆ’ 1))) βˆ’ (((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) = ((((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))))
200149, 192, 196subdid 11671 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) = (((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))))
201200eqcomd 2732 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) = ((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))))
202201oveq1d 7419 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((2 Β· 𝐴) Β· (𝐴 Xrm 𝑏)) βˆ’ ((2 Β· 𝐴) Β· ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) = (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))))
203190, 199, 2023eqtrd 2770 . . . . . . . . . . 11 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) = (((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))))
204143, 82expp1d 14114 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑(𝑏 + 1)) = ((𝐾↑𝑏) Β· 𝐾))
205 nncn 12221 . . . . . . . . . . . . . . . . 17 (𝑏 ∈ β„• β†’ 𝑏 ∈ β„‚)
206205adantl 481 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ 𝑏 ∈ β„‚)
207 ax-1cn 11167 . . . . . . . . . . . . . . . 16 1 ∈ β„‚
208 npcan 11470 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„‚ ∧ 1 ∈ β„‚) β†’ ((𝑏 βˆ’ 1) + 1) = 𝑏)
209206, 207, 208sylancl 585 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝑏 βˆ’ 1) + 1) = 𝑏)
210209oveq2d 7420 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑((𝑏 βˆ’ 1) + 1)) = (𝐾↑𝑏))
211143, 87expp1d 14114 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑((𝑏 βˆ’ 1) + 1)) = ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾))
212210, 211eqtr3d 2768 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑𝑏) = ((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾))
213212oveq1d 7419 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑𝑏) Β· 𝐾) = (((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾) Β· 𝐾))
214144, 143, 143mulassd 11238 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾) Β· 𝐾) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (𝐾 Β· 𝐾)))
215134addlidd 11416 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (0 + (𝐾↑2)) = (𝐾↑2))
21629sqvald 14110 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾↑2) = (𝐾 Β· 𝐾))
217215, 216eqtr2d 2767 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (𝐾 Β· 𝐾) = (0 + (𝐾↑2)))
218217adantr 480 . . . . . . . . . . . . . 14 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾 Β· 𝐾) = (0 + (𝐾↑2)))
219218oveq2d 7420 . . . . . . . . . . . . 13 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (𝐾 Β· 𝐾)) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))))
220214, 219eqtrd 2766 . . . . . . . . . . . 12 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐾↑(𝑏 βˆ’ 1)) Β· 𝐾) Β· 𝐾) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))))
221204, 213, 2203eqtrd 2770 . . . . . . . . . . 11 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (𝐾↑(𝑏 + 1)) = ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2))))
222203, 221oveq12d 7422 . . . . . . . . . 10 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))) = ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
223222adantr 480 . . . . . . . . 9 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))) = ((((2 Β· 𝐴) Β· ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))) βˆ’ ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))) βˆ’ ((𝐾↑(𝑏 βˆ’ 1)) Β· (0 + (𝐾↑2)))))
224163, 223breqtrrd 5169 . . . . . . . 8 ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) ∧ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))
225224ex 412 . . . . . . 7 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑏 ∈ β„•) β†’ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1)))))
226225expcom 413 . . . . . 6 (𝑏 ∈ β„• β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))))
227226a2d 29 . . . . 5 (𝑏 ∈ β„• β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))) ∧ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))))
22851, 227syl5 34 . . . 4 (𝑏 ∈ β„• β†’ ((((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))) ∧ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))) β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))))
229 oveq2 7412 . . . . . . . 8 (π‘Ž = 0 β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm 0))
230 oveq2 7412 . . . . . . . . 9 (π‘Ž = 0 β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm 0))
231230oveq2d 7420 . . . . . . . 8 (π‘Ž = 0 β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0)))
232229, 231oveq12d 7422 . . . . . . 7 (π‘Ž = 0 β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))))
233 oveq2 7412 . . . . . . 7 (π‘Ž = 0 β†’ (πΎβ†‘π‘Ž) = (𝐾↑0))
234232, 233oveq12d 7422 . . . . . 6 (π‘Ž = 0 β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0)))
235234breq2d 5153 . . . . 5 (π‘Ž = 0 β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0))))
236235imbi2d 340 . . . 4 (π‘Ž = 0 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 0) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 0))) βˆ’ (𝐾↑0)))))
237 oveq2 7412 . . . . . . . 8 (π‘Ž = 1 β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm 1))
238 oveq2 7412 . . . . . . . . 9 (π‘Ž = 1 β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm 1))
239238oveq2d 7420 . . . . . . . 8 (π‘Ž = 1 β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1)))
240237, 239oveq12d 7422 . . . . . . 7 (π‘Ž = 1 β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))))
241 oveq2 7412 . . . . . . 7 (π‘Ž = 1 β†’ (πΎβ†‘π‘Ž) = (𝐾↑1))
242240, 241oveq12d 7422 . . . . . 6 (π‘Ž = 1 β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1)))
243242breq2d 5153 . . . . 5 (π‘Ž = 1 β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1))))
244243imbi2d 340 . . . 4 (π‘Ž = 1 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 1) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 1))) βˆ’ (𝐾↑1)))))
245 oveq2 7412 . . . . . . . 8 (π‘Ž = (𝑏 βˆ’ 1) β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm (𝑏 βˆ’ 1)))
246 oveq2 7412 . . . . . . . . 9 (π‘Ž = (𝑏 βˆ’ 1) β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm (𝑏 βˆ’ 1)))
247246oveq2d 7420 . . . . . . . 8 (π‘Ž = (𝑏 βˆ’ 1) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1))))
248245, 247oveq12d 7422 . . . . . . 7 (π‘Ž = (𝑏 βˆ’ 1) β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))))
249 oveq2 7412 . . . . . . 7 (π‘Ž = (𝑏 βˆ’ 1) β†’ (πΎβ†‘π‘Ž) = (𝐾↑(𝑏 βˆ’ 1)))
250248, 249oveq12d 7422 . . . . . 6 (π‘Ž = (𝑏 βˆ’ 1) β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))
251250breq2d 5153 . . . . 5 (π‘Ž = (𝑏 βˆ’ 1) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1)))))
252251imbi2d 340 . . . 4 (π‘Ž = (𝑏 βˆ’ 1) β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 βˆ’ 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 βˆ’ 1)))) βˆ’ (𝐾↑(𝑏 βˆ’ 1))))))
253 oveq2 7412 . . . . . . . 8 (π‘Ž = 𝑏 β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm 𝑏))
254 oveq2 7412 . . . . . . . . 9 (π‘Ž = 𝑏 β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm 𝑏))
255254oveq2d 7420 . . . . . . . 8 (π‘Ž = 𝑏 β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏)))
256253, 255oveq12d 7422 . . . . . . 7 (π‘Ž = 𝑏 β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))))
257 oveq2 7412 . . . . . . 7 (π‘Ž = 𝑏 β†’ (πΎβ†‘π‘Ž) = (𝐾↑𝑏))
258256, 257oveq12d 7422 . . . . . 6 (π‘Ž = 𝑏 β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))
259258breq2d 5153 . . . . 5 (π‘Ž = 𝑏 β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏))))
260259imbi2d 340 . . . 4 (π‘Ž = 𝑏 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑏) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑏))) βˆ’ (𝐾↑𝑏)))))
261 oveq2 7412 . . . . . . . 8 (π‘Ž = (𝑏 + 1) β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm (𝑏 + 1)))
262 oveq2 7412 . . . . . . . . 9 (π‘Ž = (𝑏 + 1) β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm (𝑏 + 1)))
263262oveq2d 7420 . . . . . . . 8 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1))))
264261, 263oveq12d 7422 . . . . . . 7 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))))
265 oveq2 7412 . . . . . . 7 (π‘Ž = (𝑏 + 1) β†’ (πΎβ†‘π‘Ž) = (𝐾↑(𝑏 + 1)))
266264, 265oveq12d 7422 . . . . . 6 (π‘Ž = (𝑏 + 1) β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))
267266breq2d 5153 . . . . 5 (π‘Ž = (𝑏 + 1) β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1)))))
268267imbi2d 340 . . . 4 (π‘Ž = (𝑏 + 1) β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm (𝑏 + 1)) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm (𝑏 + 1)))) βˆ’ (𝐾↑(𝑏 + 1))))))
269 oveq2 7412 . . . . . . . 8 (π‘Ž = 𝑁 β†’ (𝐴 Xrm π‘Ž) = (𝐴 Xrm 𝑁))
270 oveq2 7412 . . . . . . . . 9 (π‘Ž = 𝑁 β†’ (𝐴 Yrm π‘Ž) = (𝐴 Yrm 𝑁))
271270oveq2d 7420 . . . . . . . 8 (π‘Ž = 𝑁 β†’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž)) = ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁)))
272269, 271oveq12d 7422 . . . . . . 7 (π‘Ž = 𝑁 β†’ ((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) = ((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))))
273 oveq2 7412 . . . . . . 7 (π‘Ž = 𝑁 β†’ (πΎβ†‘π‘Ž) = (𝐾↑𝑁))
274272, 273oveq12d 7422 . . . . . 6 (π‘Ž = 𝑁 β†’ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) = (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁)))
275274breq2d 5153 . . . . 5 (π‘Ž = 𝑁 β†’ (((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž)) ↔ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁))))
276275imbi2d 340 . . . 4 (π‘Ž = 𝑁 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm π‘Ž) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm π‘Ž))) βˆ’ (πΎβ†‘π‘Ž))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁)))))
27734, 50, 228, 236, 244, 252, 260, 268, 2762nn0ind 42244 . . 3 (𝑁 ∈ β„•0 β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁))))
278277impcom 407 . 2 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0) ∧ 𝑁 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁)))
2792783impa 1107 1 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝐾 ∈ β„•0 ∧ 𝑁 ∈ β„•0) β†’ ((((2 Β· 𝐴) Β· 𝐾) βˆ’ (𝐾↑2)) βˆ’ 1) βˆ₯ (((𝐴 Xrm 𝑁) βˆ’ ((𝐴 βˆ’ 𝐾) Β· (𝐴 Yrm 𝑁))) βˆ’ (𝐾↑𝑁)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 395   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098   class class class wbr 5141  β€˜cfv 6536  (class class class)co 7404  β„‚cc 11107  0cc0 11109  1c1 11110   + caddc 11112   Β· cmul 11114   βˆ’ cmin 11445  β„•cn 12213  2c2 12268  β„•0cn0 12473  β„€cz 12559  β„€β‰₯cuz 12823  β†‘cexp 14029   βˆ₯ cdvds 16201   Xrm crmx 42198   Yrm crmy 42199
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 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7721  ax-inf2 9635  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  ax-addf 11188
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 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-nel 3041  df-ral 3056  df-rex 3065  df-rmo 3370  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-pss 3962  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4903  df-int 4944  df-iun 4992  df-iin 4993  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-se 5625  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6293  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6488  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7360  df-ov 7407  df-oprab 7408  df-mpo 7409  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8144  df-frecs 8264  df-wrecs 8295  df-recs 8369  df-rdg 8408  df-1o 8464  df-2o 8465  df-oadd 8468  df-omul 8469  df-er 8702  df-map 8821  df-pm 8822  df-ixp 8891  df-en 8939  df-dom 8940  df-sdom 8941  df-fin 8942  df-fsupp 9361  df-fi 9405  df-sup 9436  df-inf 9437  df-oi 9504  df-card 9933  df-acn 9936  df-pnf 11251  df-mnf 11252  df-xr 11253  df-ltxr 11254  df-le 11255  df-sub 11447  df-neg 11448  df-div 11873  df-nn 12214  df-2 12276  df-3 12277  df-4 12278  df-5 12279  df-6 12280  df-7 12281  df-8 12282  df-9 12283  df-n0 12474  df-xnn0 12546  df-z 12560  df-dec 12679  df-uz 12824  df-q 12934  df-rp 12978  df-xneg 13095  df-xadd 13096  df-xmul 13097  df-ioo 13331  df-ioc 13332  df-ico 13333  df-icc 13334  df-fz 13488  df-fzo 13631  df-fl 13760  df-mod 13838  df-seq 13970  df-exp 14030  df-fac 14236  df-bc 14265  df-hash 14293  df-shft 15017  df-cj 15049  df-re 15050  df-im 15051  df-sqrt 15185  df-abs 15186  df-limsup 15418  df-clim 15435  df-rlim 15436  df-sum 15636  df-ef 16014  df-sin 16016  df-cos 16017  df-pi 16019  df-dvds 16202  df-gcd 16440  df-numer 16677  df-denom 16678  df-struct 17086  df-sets 17103  df-slot 17121  df-ndx 17133  df-base 17151  df-ress 17180  df-plusg 17216  df-mulr 17217  df-starv 17218  df-sca 17219  df-vsca 17220  df-ip 17221  df-tset 17222  df-ple 17223  df-ds 17225  df-unif 17226  df-hom 17227  df-cco 17228  df-rest 17374  df-topn 17375  df-0g 17393  df-gsum 17394  df-topgen 17395  df-pt 17396  df-prds 17399  df-xrs 17454  df-qtop 17459  df-imas 17460  df-xps 17462  df-mre 17536  df-mrc 17537  df-acs 17539  df-mgm 18570  df-sgrp 18649  df-mnd 18665  df-submnd 18711  df-mulg 18993  df-cntz 19230  df-cmn 19699  df-psmet 21227  df-xmet 21228  df-met 21229  df-bl 21230  df-mopn 21231  df-fbas 21232  df-fg 21233  df-cnfld 21236  df-top 22746  df-topon 22763  df-topsp 22785  df-bases 22799  df-cld 22873  df-ntr 22874  df-cls 22875  df-nei 22952  df-lp 22990  df-perf 22991  df-cn 23081  df-cnp 23082  df-haus 23169  df-tx 23416  df-hmeo 23609  df-fil 23700  df-fm 23792  df-flim 23793  df-flf 23794  df-xms 24176  df-ms 24177  df-tms 24178  df-cncf 24748  df-limc 25745  df-dv 25746  df-log 26440  df-squarenn 42139  df-pell1qr 42140  df-pell14qr 42141  df-pell1234qr 42142  df-pellfund 42143  df-rmx 42200  df-rmy 42201
This theorem is referenced by:  jm3.1  42319
  Copyright terms: Public domain W3C validator