Metamath Proof Explorer


Theorem srgbinomlem

Description: Lemma for srgbinom . Inductive step, analogous to binomlem . (Contributed by AV, 24-Aug-2019)

Ref Expression
Hypotheses srgbinom.s S = Base R
srgbinom.m × ˙ = R
srgbinom.t · ˙ = R
srgbinom.a + ˙ = + R
srgbinom.g G = mulGrp R
srgbinom.e × ˙ = G
srgbinomlem.r φ R SRing
srgbinomlem.a φ A S
srgbinomlem.b φ B S
srgbinomlem.c φ A × ˙ B = B × ˙ A
srgbinomlem.n φ N 0
srgbinomlem.i ψ N × ˙ A + ˙ B = R k = 0 N ( N k) · ˙ N k × ˙ A × ˙ k × ˙ B
Assertion srgbinomlem φ ψ N + 1 × ˙ A + ˙ B = R k = 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B

Proof

Step Hyp Ref Expression
1 srgbinom.s S = Base R
2 srgbinom.m × ˙ = R
3 srgbinom.t · ˙ = R
4 srgbinom.a + ˙ = + R
5 srgbinom.g G = mulGrp R
6 srgbinom.e × ˙ = G
7 srgbinomlem.r φ R SRing
8 srgbinomlem.a φ A S
9 srgbinomlem.b φ B S
10 srgbinomlem.c φ A × ˙ B = B × ˙ A
11 srgbinomlem.n φ N 0
12 srgbinomlem.i ψ N × ˙ A + ˙ B = R k = 0 N ( N k) · ˙ N k × ˙ A × ˙ k × ˙ B
13 1 2 3 4 5 6 7 8 9 10 11 12 srgbinomlem3 φ ψ N × ˙ A + ˙ B × ˙ A = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
14 1 2 3 4 5 6 7 8 9 10 11 12 srgbinomlem4 φ ψ N × ˙ A + ˙ B × ˙ B = R k = 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
15 13 14 oveq12d φ ψ N × ˙ A + ˙ B × ˙ A + ˙ N × ˙ A + ˙ B × ˙ B = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ R k = 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
16 5 srgmgp R SRing G Mnd
17 7 16 syl φ G Mnd
18 srgmnd R SRing R Mnd
19 7 18 syl φ R Mnd
20 1 4 mndcl R Mnd A S B S A + ˙ B S
21 19 8 9 20 syl3anc φ A + ˙ B S
22 17 11 21 3jca φ G Mnd N 0 A + ˙ B S
23 22 adantr φ ψ G Mnd N 0 A + ˙ B S
24 5 1 mgpbas S = Base G
25 5 2 mgpplusg × ˙ = + G
26 24 6 25 mulgnn0p1 G Mnd N 0 A + ˙ B S N + 1 × ˙ A + ˙ B = N × ˙ A + ˙ B × ˙ A + ˙ B
27 23 26 syl φ ψ N + 1 × ˙ A + ˙ B = N × ˙ A + ˙ B × ˙ A + ˙ B
28 24 6 mulgnn0cl G Mnd N 0 A + ˙ B S N × ˙ A + ˙ B S
29 17 11 21 28 syl3anc φ N × ˙ A + ˙ B S
30 29 8 9 3jca φ N × ˙ A + ˙ B S A S B S
31 7 30 jca φ R SRing N × ˙ A + ˙ B S A S B S
32 31 adantr φ ψ R SRing N × ˙ A + ˙ B S A S B S
33 1 4 2 srgdi R SRing N × ˙ A + ˙ B S A S B S N × ˙ A + ˙ B × ˙ A + ˙ B = N × ˙ A + ˙ B × ˙ A + ˙ N × ˙ A + ˙ B × ˙ B
34 32 33 syl φ ψ N × ˙ A + ˙ B × ˙ A + ˙ B = N × ˙ A + ˙ B × ˙ A + ˙ N × ˙ A + ˙ B × ˙ B
35 27 34 eqtrd φ ψ N + 1 × ˙ A + ˙ B = N × ˙ A + ˙ B × ˙ A + ˙ N × ˙ A + ˙ B × ˙ B
36 elfzelz k 0 N + 1 k
37 bcpasc N 0 k ( N k) + ( N k 1 ) = ( N + 1 k)
38 11 36 37 syl2an φ k 0 N + 1 ( N k) + ( N k 1 ) = ( N + 1 k)
39 38 oveq1d φ k 0 N + 1 ( N k) + ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
40 19 adantr φ k 0 N + 1 R Mnd
41 bccl N 0 k ( N k) 0
42 11 36 41 syl2an φ k 0 N + 1 ( N k) 0
43 36 adantl φ k 0 N + 1 k
44 peano2zm k k 1
45 43 44 syl φ k 0 N + 1 k 1
46 bccl N 0 k 1 ( N k 1 ) 0
47 11 45 46 syl2an2r φ k 0 N + 1 ( N k 1 ) 0
48 7 adantr φ k 0 N + 1 R SRing
49 17 adantr φ k 0 N + 1 G Mnd
50 fznn0sub k 0 N + 1 N + 1 - k 0
51 50 adantl φ k 0 N + 1 N + 1 - k 0
52 8 adantr φ k 0 N + 1 A S
53 24 6 mulgnn0cl G Mnd N + 1 - k 0 A S N + 1 - k × ˙ A S
54 49 51 52 53 syl3anc φ k 0 N + 1 N + 1 - k × ˙ A S
55 elfznn0 k 0 N + 1 k 0
56 55 adantl φ k 0 N + 1 k 0
57 9 adantr φ k 0 N + 1 B S
58 24 6 mulgnn0cl G Mnd k 0 B S k × ˙ B S
59 49 56 57 58 syl3anc φ k 0 N + 1 k × ˙ B S
60 1 2 srgcl R SRing N + 1 - k × ˙ A S k × ˙ B S N + 1 - k × ˙ A × ˙ k × ˙ B S
61 48 54 59 60 syl3anc φ k 0 N + 1 N + 1 - k × ˙ A × ˙ k × ˙ B S
62 1 3 4 mulgnn0dir R Mnd ( N k) 0 ( N k 1 ) 0 N + 1 - k × ˙ A × ˙ k × ˙ B S ( N k) + ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
63 40 42 47 61 62 syl13anc φ k 0 N + 1 ( N k) + ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
64 39 63 eqtr3d φ k 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
65 64 mpteq2dva φ k 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = k 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
66 65 oveq2d φ R k = 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
67 srgcmn R SRing R CMnd
68 7 67 syl φ R CMnd
69 fzfid φ 0 N + 1 Fin
70 1 3 mulgnn0cl R Mnd ( N k) 0 N + 1 - k × ˙ A × ˙ k × ˙ B S ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B S
71 40 42 61 70 syl3anc φ k 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B S
72 36 44 syl k 0 N + 1 k 1
73 11 72 46 syl2an φ k 0 N + 1 ( N k 1 ) 0
74 1 3 mulgnn0cl R Mnd ( N k 1 ) 0 N + 1 - k × ˙ A × ˙ k × ˙ B S ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B S
75 40 73 61 74 syl3anc φ k 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B S
76 eqid k 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = k 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
77 eqid k 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = k 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
78 1 4 68 69 71 75 76 77 gsummptfidmadd φ R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ R k = 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
79 66 78 eqtrd φ R k = 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ R k = 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
80 79 adantr φ ψ R k = 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B = R k = 0 N + 1 ( N k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B + ˙ R k = 0 N + 1 ( N k 1 ) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B
81 15 35 80 3eqtr4d φ ψ N + 1 × ˙ A + ˙ B = R k = 0 N + 1 ( N + 1 k) · ˙ N + 1 - k × ˙ A × ˙ k × ˙ B