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

Theorem jm2.25 41723
Description: Lemma for jm2.26 41726. Remainders mod X(2n) are negaperiodic mod 2n. (Contributed by Stefan O'Rear, 2-Oct-2014.)
Assertion
Ref Expression
jm2.25 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) ∧ 𝐼 ∈ β„€) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))

Proof of Theorem jm2.25
Dummy variables π‘Ž 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simprl 769 . . . . . . . . 9 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝐴 ∈ (β„€β‰₯β€˜2))
2 simprrr 780 . . . . . . . . 9 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑁 ∈ β„€)
3 frmx 41637 . . . . . . . . . . 11 Xrm :((β„€β‰₯β€˜2) Γ— β„€)βŸΆβ„•0
43fovcl 7533 . . . . . . . . . 10 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑁 ∈ β„€) β†’ (𝐴 Xrm 𝑁) ∈ β„•0)
54nn0zd 12580 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑁 ∈ β„€) β†’ (𝐴 Xrm 𝑁) ∈ β„€)
61, 2, 5syl2anc 584 . . . . . . . 8 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) ∈ β„€)
7 simprrl 779 . . . . . . . . 9 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑀 ∈ β„€)
8 frmy 41638 . . . . . . . . . 10 Yrm :((β„€β‰₯β€˜2) Γ— β„€)βŸΆβ„€
98fovcl 7533 . . . . . . . . 9 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑀 ∈ β„€) β†’ (𝐴 Yrm 𝑀) ∈ β„€)
101, 7, 9syl2anc 584 . . . . . . . 8 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm 𝑀) ∈ β„€)
11 congid 41695 . . . . . . . 8 (((𝐴 Xrm 𝑁) ∈ β„€ ∧ (𝐴 Yrm 𝑀) ∈ β„€) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm 𝑀) βˆ’ (𝐴 Yrm 𝑀)))
126, 10, 11syl2anc 584 . . . . . . 7 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm 𝑀) βˆ’ (𝐴 Yrm 𝑀)))
13 2cnd 12286 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„€ β†’ 2 ∈ β„‚)
14 zcn 12559 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„€ β†’ 𝑁 ∈ β„‚)
1513, 14mulcld 11230 . . . . . . . . . . . . . 14 (𝑁 ∈ β„€ β†’ (2 Β· 𝑁) ∈ β„‚)
1615mul02d 11408 . . . . . . . . . . . . 13 (𝑁 ∈ β„€ β†’ (0 Β· (2 Β· 𝑁)) = 0)
1716adantl 482 . . . . . . . . . . . 12 ((𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (0 Β· (2 Β· 𝑁)) = 0)
1817oveq2d 7421 . . . . . . . . . . 11 ((𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝑀 + (0 Β· (2 Β· 𝑁))) = (𝑀 + 0))
19 zcn 12559 . . . . . . . . . . . . 13 (𝑀 ∈ β„€ β†’ 𝑀 ∈ β„‚)
2019addridd 11410 . . . . . . . . . . . 12 (𝑀 ∈ β„€ β†’ (𝑀 + 0) = 𝑀)
2120adantr 481 . . . . . . . . . . 11 ((𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝑀 + 0) = 𝑀)
2218, 21eqtrd 2772 . . . . . . . . . 10 ((𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝑀 + (0 Β· (2 Β· 𝑁))) = 𝑀)
2322ad2antll 727 . . . . . . . . 9 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑀 + (0 Β· (2 Β· 𝑁))) = 𝑀)
2423oveq2d 7421 . . . . . . . 8 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) = (𝐴 Yrm 𝑀))
2524oveq1d 7420 . . . . . . 7 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) = ((𝐴 Yrm 𝑀) βˆ’ (𝐴 Yrm 𝑀)))
2612, 25breqtrrd 5175 . . . . . 6 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)))
2726orcd 871 . . . . 5 ((𝐼 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
2827ex 413 . . . 4 (𝐼 ∈ β„€ β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
29 simprl 769 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝐴 ∈ (β„€β‰₯β€˜2))
30 simprrr 780 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑁 ∈ β„€)
3129, 30, 5syl2anc 584 . . . . . . 7 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) ∈ β„€)
32 simprrl 779 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑀 ∈ β„€)
3329, 32, 9syl2anc 584 . . . . . . 7 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm 𝑀) ∈ β„€)
34 simpl 483 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑏 ∈ β„€)
3534peano2zd 12665 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑏 + 1) ∈ β„€)
36 eluzel2 12823 . . . . . . . . . . . 12 (𝐴 ∈ (β„€β‰₯β€˜2) β†’ 2 ∈ β„€)
3736ad2antrl 726 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 2 ∈ β„€)
3837, 30zmulcld 12668 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· 𝑁) ∈ β„€)
3935, 38zmulcld 12668 . . . . . . . . 9 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝑏 + 1) Β· (2 Β· 𝑁)) ∈ β„€)
4032, 39zaddcld 12666 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁))) ∈ β„€)
418fovcl 7533 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁))) ∈ β„€) β†’ (𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) ∈ β„€)
4229, 40, 41syl2anc 584 . . . . . . 7 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) ∈ β„€)
4334, 38zmulcld 12668 . . . . . . . . 9 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑏 Β· (2 Β· 𝑁)) ∈ β„€)
4432, 43zaddcld 12666 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑀 + (𝑏 Β· (2 Β· 𝑁))) ∈ β„€)
458fovcl 7533 . . . . . . . 8 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 + (𝑏 Β· (2 Β· 𝑁))) ∈ β„€) β†’ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€)
4629, 44, 45syl2anc 584 . . . . . . 7 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€)
473fovcl 7533 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (2 Β· 𝑁) ∈ β„€) β†’ (𝐴 Xrm (2 Β· 𝑁)) ∈ β„•0)
4847nn0zd 12580 . . . . . . . . . . . . 13 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (2 Β· 𝑁) ∈ β„€) β†’ (𝐴 Xrm (2 Β· 𝑁)) ∈ β„€)
4929, 38, 48syl2anc 584 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm (2 Β· 𝑁)) ∈ β„€)
5046, 49zmulcld 12668 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) ∈ β„€)
5146znegcld 12664 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€)
5250, 51zsubcld 12667 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) ∈ β„€)
533fovcl 7533 . . . . . . . . . . . . 13 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 + (𝑏 Β· (2 Β· 𝑁))) ∈ β„€) β†’ (𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„•0)
5453nn0zd 12580 . . . . . . . . . . . 12 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 + (𝑏 Β· (2 Β· 𝑁))) ∈ β„€) β†’ (𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€)
5529, 44, 54syl2anc 584 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€)
568fovcl 7533 . . . . . . . . . . . 12 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (2 Β· 𝑁) ∈ β„€) β†’ (𝐴 Yrm (2 Β· 𝑁)) ∈ β„€)
5729, 38, 56syl2anc 584 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (2 Β· 𝑁)) ∈ β„€)
5855, 57zmulcld 12668 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁))) ∈ β„€)
5937, 31zmulcld 12668 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· (𝐴 Xrm 𝑁)) ∈ β„€)
60 dvdsmul2 16218 . . . . . . . . . . . . . 14 (((2 Β· (𝐴 Xrm 𝑁)) ∈ β„€ ∧ (𝐴 Xrm 𝑁) ∈ β„€) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
6159, 31, 60syl2anc 584 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
62 rmxdbl 41663 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑁 ∈ β„€) β†’ (𝐴 Xrm (2 Β· 𝑁)) = ((2 Β· ((𝐴 Xrm 𝑁)↑2)) βˆ’ 1))
6329, 30, 62syl2anc 584 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm (2 Β· 𝑁)) = ((2 Β· ((𝐴 Xrm 𝑁)↑2)) βˆ’ 1))
6463oveq1d 7420 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm (2 Β· 𝑁)) + 1) = (((2 Β· ((𝐴 Xrm 𝑁)↑2)) βˆ’ 1) + 1))
65 2cnd 12286 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 2 ∈ β„‚)
6629, 30, 4syl2anc 584 . . . . . . . . . . . . . . . . . 18 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) ∈ β„•0)
6766nn0cnd 12530 . . . . . . . . . . . . . . . . 17 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) ∈ β„‚)
6867sqcld 14105 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁)↑2) ∈ β„‚)
6965, 68mulcld 11230 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· ((𝐴 Xrm 𝑁)↑2)) ∈ β„‚)
70 1cnd 11205 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 1 ∈ β„‚)
7169, 70npcand 11571 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (((2 Β· ((𝐴 Xrm 𝑁)↑2)) βˆ’ 1) + 1) = (2 Β· ((𝐴 Xrm 𝑁)↑2)))
7267sqvald 14104 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁)↑2) = ((𝐴 Xrm 𝑁) Β· (𝐴 Xrm 𝑁)))
7372oveq2d 7421 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· ((𝐴 Xrm 𝑁)↑2)) = (2 Β· ((𝐴 Xrm 𝑁) Β· (𝐴 Xrm 𝑁))))
74 mulass 11194 . . . . . . . . . . . . . . . . 17 ((2 ∈ β„‚ ∧ (𝐴 Xrm 𝑁) ∈ β„‚ ∧ (𝐴 Xrm 𝑁) ∈ β„‚) β†’ ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)) = (2 Β· ((𝐴 Xrm 𝑁) Β· (𝐴 Xrm 𝑁))))
7574eqcomd 2738 . . . . . . . . . . . . . . . 16 ((2 ∈ β„‚ ∧ (𝐴 Xrm 𝑁) ∈ β„‚ ∧ (𝐴 Xrm 𝑁) ∈ β„‚) β†’ (2 Β· ((𝐴 Xrm 𝑁) Β· (𝐴 Xrm 𝑁))) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
7665, 67, 67, 75syl3anc 1371 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· ((𝐴 Xrm 𝑁) Β· (𝐴 Xrm 𝑁))) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
7773, 76eqtrd 2772 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· ((𝐴 Xrm 𝑁)↑2)) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
7864, 71, 773eqtrd 2776 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm (2 Β· 𝑁)) + 1) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
7961, 78breqtrrd 5175 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (2 Β· 𝑁)) + 1))
8049peano2zd 12665 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm (2 Β· 𝑁)) + 1) ∈ β„€)
81 dvdsmultr2 16237 . . . . . . . . . . . . 13 (((𝐴 Xrm 𝑁) ∈ β„€ ∧ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€ ∧ ((𝐴 Xrm (2 Β· 𝑁)) + 1) ∈ β„€) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (2 Β· 𝑁)) + 1) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· ((𝐴 Xrm (2 Β· 𝑁)) + 1))))
8231, 46, 80, 81syl3anc 1371 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (2 Β· 𝑁)) + 1) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· ((𝐴 Xrm (2 Β· 𝑁)) + 1))))
8379, 82mpd 15 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· ((𝐴 Xrm (2 Β· 𝑁)) + 1)))
8446zcnd 12663 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„‚)
8584mulridd 11227 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· 1) = (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))))
8685oveq2d 7421 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· 1)) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
8749zcnd 12663 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm (2 Β· 𝑁)) ∈ β„‚)
8884, 87, 70adddid 11234 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· ((𝐴 Xrm (2 Β· 𝑁)) + 1)) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· 1)))
8950zcnd 12663 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) ∈ β„‚)
9089, 84subnegd 11574 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
9186, 88, 903eqtr4d 2782 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· ((𝐴 Xrm (2 Β· 𝑁)) + 1)) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
9283, 91breqtrd 5173 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
938fovcl 7533 . . . . . . . . . . . . . . 15 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑁 ∈ β„€) β†’ (𝐴 Yrm 𝑁) ∈ β„€)
9429, 30, 93syl2anc 584 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm 𝑁) ∈ β„€)
9537, 94zmulcld 12668 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· (𝐴 Yrm 𝑁)) ∈ β„€)
96 dvdsmul2 16218 . . . . . . . . . . . . 13 (((2 Β· (𝐴 Yrm 𝑁)) ∈ β„€ ∧ (𝐴 Xrm 𝑁) ∈ β„€) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((2 Β· (𝐴 Yrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
9795, 31, 96syl2anc 584 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((2 Β· (𝐴 Yrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
98 rmydbl 41664 . . . . . . . . . . . . . 14 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ 𝑁 ∈ β„€) β†’ (𝐴 Yrm (2 Β· 𝑁)) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Yrm 𝑁)))
9929, 30, 98syl2anc 584 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (2 Β· 𝑁)) = ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Yrm 𝑁)))
10094zcnd 12663 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm 𝑁) ∈ β„‚)
10165, 67, 100mul32d 11420 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((2 Β· (𝐴 Xrm 𝑁)) Β· (𝐴 Yrm 𝑁)) = ((2 Β· (𝐴 Yrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
10299, 101eqtrd 2772 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (2 Β· 𝑁)) = ((2 Β· (𝐴 Yrm 𝑁)) Β· (𝐴 Xrm 𝑁)))
10397, 102breqtrrd 5175 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ (𝐴 Yrm (2 Β· 𝑁)))
104 dvdsmultr2 16237 . . . . . . . . . . . 12 (((𝐴 Xrm 𝑁) ∈ β„€ ∧ (𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€ ∧ (𝐴 Yrm (2 Β· 𝑁)) ∈ β„€) β†’ ((𝐴 Xrm 𝑁) βˆ₯ (𝐴 Yrm (2 Β· 𝑁)) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
10531, 55, 57, 104syl3anc 1371 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁) βˆ₯ (𝐴 Yrm (2 Β· 𝑁)) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
106103, 105mpd 15 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁))))
10731, 52, 58, 92, 106dvds2addd 16231 . . . . . . . . 9 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
10834zcnd 12663 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑏 ∈ β„‚)
10938zcnd 12663 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (2 Β· 𝑁) ∈ β„‚)
110108, 70, 109adddird 11235 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝑏 + 1) Β· (2 Β· 𝑁)) = ((𝑏 Β· (2 Β· 𝑁)) + (1 Β· (2 Β· 𝑁))))
111110oveq2d 7421 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁))) = (𝑀 + ((𝑏 Β· (2 Β· 𝑁)) + (1 Β· (2 Β· 𝑁)))))
11232zcnd 12663 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 𝑀 ∈ β„‚)
11343zcnd 12663 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑏 Β· (2 Β· 𝑁)) ∈ β„‚)
114 1zzd 12589 . . . . . . . . . . . . . . . . 17 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ 1 ∈ β„€)
115114, 38zmulcld 12668 . . . . . . . . . . . . . . . 16 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (1 Β· (2 Β· 𝑁)) ∈ β„€)
116115zcnd 12663 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (1 Β· (2 Β· 𝑁)) ∈ β„‚)
117112, 113, 116addassd 11232 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (1 Β· (2 Β· 𝑁))) = (𝑀 + ((𝑏 Β· (2 Β· 𝑁)) + (1 Β· (2 Β· 𝑁)))))
118109mullidd 11228 . . . . . . . . . . . . . . 15 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (1 Β· (2 Β· 𝑁)) = (2 Β· 𝑁))
119118oveq2d 7421 . . . . . . . . . . . . . 14 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (1 Β· (2 Β· 𝑁))) = ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (2 Β· 𝑁)))
120111, 117, 1193eqtr2d 2778 . . . . . . . . . . . . 13 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁))) = ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (2 Β· 𝑁)))
121120oveq2d 7421 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) = (𝐴 Yrm ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (2 Β· 𝑁))))
122 rmyadd 41655 . . . . . . . . . . . . 13 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 + (𝑏 Β· (2 Β· 𝑁))) ∈ β„€ ∧ (2 Β· 𝑁) ∈ β„€) β†’ (𝐴 Yrm ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (2 Β· 𝑁))) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
12329, 44, 38, 122syl3anc 1371 . . . . . . . . . . . 12 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm ((𝑀 + (𝑏 Β· (2 Β· 𝑁))) + (2 Β· 𝑁))) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
124121, 123eqtrd 2772 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) = (((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
125124oveq1d 7420 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) = ((((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
12658zcnd 12663 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁))) ∈ β„‚)
12751zcnd 12663 . . . . . . . . . . 11 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„‚)
12889, 126, 127addsubd 11588 . . . . . . . . . 10 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) = ((((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
129125, 128eqtrd 2772 . . . . . . . . 9 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) = ((((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Xrm (2 Β· 𝑁))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) + ((𝐴 Xrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) Β· (𝐴 Yrm (2 Β· 𝑁)))))
130107, 129breqtrrd 5175 . . . . . . . 8 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))
131130olcd 872 . . . . . . 7 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))))))
132 jm2.25lem1 41722 . . . . . . 7 ((((𝐴 Xrm 𝑁) ∈ β„€ ∧ (𝐴 Yrm 𝑀) ∈ β„€) ∧ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) ∈ β„€ ∧ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) ∈ β„€) ∧ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁))))))) β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
13331, 33, 42, 46, 131, 132syl221anc 1381 . . . . . 6 ((𝑏 ∈ β„€ ∧ (𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€))) β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
134133pm5.74da 802 . . . . 5 (𝑏 ∈ β„€ β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
135 oveq1 7412 . . . . . . . . . . 11 (π‘Ž = 𝑏 β†’ (π‘Ž Β· (2 Β· 𝑁)) = (𝑏 Β· (2 Β· 𝑁)))
136135oveq2d 7421 . . . . . . . . . 10 (π‘Ž = 𝑏 β†’ (𝑀 + (π‘Ž Β· (2 Β· 𝑁))) = (𝑀 + (𝑏 Β· (2 Β· 𝑁))))
137136oveq2d 7421 . . . . . . . . 9 (π‘Ž = 𝑏 β†’ (𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) = (𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))))
138137oveq1d 7420 . . . . . . . 8 (π‘Ž = 𝑏 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)))
139138breq2d 5159 . . . . . . 7 (π‘Ž = 𝑏 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀))))
140137oveq1d 7420 . . . . . . . 8 (π‘Ž = 𝑏 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))
141140breq2d 5159 . . . . . . 7 (π‘Ž = 𝑏 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
142139, 141orbi12d 917 . . . . . 6 (π‘Ž = 𝑏 β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
143142imbi2d 340 . . . . 5 (π‘Ž = 𝑏 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝑏 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
144 oveq1 7412 . . . . . . . . . . 11 (π‘Ž = (𝑏 + 1) β†’ (π‘Ž Β· (2 Β· 𝑁)) = ((𝑏 + 1) Β· (2 Β· 𝑁)))
145144oveq2d 7421 . . . . . . . . . 10 (π‘Ž = (𝑏 + 1) β†’ (𝑀 + (π‘Ž Β· (2 Β· 𝑁))) = (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁))))
146145oveq2d 7421 . . . . . . . . 9 (π‘Ž = (𝑏 + 1) β†’ (𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) = (𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))))
147146oveq1d 7420 . . . . . . . 8 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)))
148147breq2d 5159 . . . . . . 7 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀))))
149146oveq1d 7420 . . . . . . . 8 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))
150149breq2d 5159 . . . . . . 7 (π‘Ž = (𝑏 + 1) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
151148, 150orbi12d 917 . . . . . 6 (π‘Ž = (𝑏 + 1) β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
152151imbi2d 340 . . . . 5 (π‘Ž = (𝑏 + 1) β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + ((𝑏 + 1) Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
153 oveq1 7412 . . . . . . . . . . 11 (π‘Ž = 0 β†’ (π‘Ž Β· (2 Β· 𝑁)) = (0 Β· (2 Β· 𝑁)))
154153oveq2d 7421 . . . . . . . . . 10 (π‘Ž = 0 β†’ (𝑀 + (π‘Ž Β· (2 Β· 𝑁))) = (𝑀 + (0 Β· (2 Β· 𝑁))))
155154oveq2d 7421 . . . . . . . . 9 (π‘Ž = 0 β†’ (𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) = (𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))))
156155oveq1d 7420 . . . . . . . 8 (π‘Ž = 0 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)))
157156breq2d 5159 . . . . . . 7 (π‘Ž = 0 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀))))
158155oveq1d 7420 . . . . . . . 8 (π‘Ž = 0 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))
159158breq2d 5159 . . . . . . 7 (π‘Ž = 0 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
160157, 159orbi12d 917 . . . . . 6 (π‘Ž = 0 β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
161160imbi2d 340 . . . . 5 (π‘Ž = 0 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
162 oveq1 7412 . . . . . . . . . . 11 (π‘Ž = 𝐼 β†’ (π‘Ž Β· (2 Β· 𝑁)) = (𝐼 Β· (2 Β· 𝑁)))
163162oveq2d 7421 . . . . . . . . . 10 (π‘Ž = 𝐼 β†’ (𝑀 + (π‘Ž Β· (2 Β· 𝑁))) = (𝑀 + (𝐼 Β· (2 Β· 𝑁))))
164163oveq2d 7421 . . . . . . . . 9 (π‘Ž = 𝐼 β†’ (𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) = (𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))))
165164oveq1d 7420 . . . . . . . 8 (π‘Ž = 𝐼 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)))
166165breq2d 5159 . . . . . . 7 (π‘Ž = 𝐼 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀))))
167164oveq1d 7420 . . . . . . . 8 (π‘Ž = 𝐼 β†’ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) = ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))
168167breq2d 5159 . . . . . . 7 (π‘Ž = 𝐼 β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)) ↔ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
169166, 168orbi12d 917 . . . . . 6 (π‘Ž = 𝐼 β†’ (((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))) ↔ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
170169imbi2d 340 . . . . 5 (π‘Ž = 𝐼 β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (π‘Ž Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
171134, 143, 152, 161, 170zindbi 41670 . . . 4 (𝐼 ∈ β„€ β†’ (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (0 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))) ↔ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))))
17228, 171mpbid 231 . . 3 (𝐼 ∈ β„€ β†’ ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀)))))
173172impcom 408 . 2 (((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€)) ∧ 𝐼 ∈ β„€) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
1741733impa 1110 1 ((𝐴 ∈ (β„€β‰₯β€˜2) ∧ (𝑀 ∈ β„€ ∧ 𝑁 ∈ β„€) ∧ 𝐼 ∈ β„€) β†’ ((𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ (𝐴 Yrm 𝑀)) ∨ (𝐴 Xrm 𝑁) βˆ₯ ((𝐴 Yrm (𝑀 + (𝐼 Β· (2 Β· 𝑁)))) βˆ’ -(𝐴 Yrm 𝑀))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   class class class wbr 5147  β€˜cfv 6540  (class class class)co 7405  β„‚cc 11104  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111   βˆ’ cmin 11440  -cneg 11441  2c2 12263  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β†‘cexp 14023   βˆ₯ cdvds 16193   Xrm crmx 41623   Yrm crmy 41624
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-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
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 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-omul 8467  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-acn 9933  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-xnn0 12541  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-sin 16009  df-cos 16010  df-pi 16012  df-dvds 16194  df-gcd 16432  df-numer 16667  df-denom 16668  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-mulg 18945  df-cntz 19175  df-cmn 19644  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-limc 25374  df-dv 25375  df-log 26056  df-squarenn 41564  df-pell1qr 41565  df-pell14qr 41566  df-pell1234qr 41567  df-pellfund 41568  df-rmx 41625  df-rmy 41626
This theorem is referenced by:  jm2.26a  41724
  Copyright terms: Public domain W3C validator