Step |
Hyp |
Ref |
Expression |
1 |
|
chfacfisf.a |
โข ๐ด = ( ๐ Mat ๐
) |
2 |
|
chfacfisf.b |
โข ๐ต = ( Base โ ๐ด ) |
3 |
|
chfacfisf.p |
โข ๐ = ( Poly1 โ ๐
) |
4 |
|
chfacfisf.y |
โข ๐ = ( ๐ Mat ๐ ) |
5 |
|
chfacfisf.r |
โข ร = ( .r โ ๐ ) |
6 |
|
chfacfisf.s |
โข โ = ( -g โ ๐ ) |
7 |
|
chfacfisf.0 |
โข 0 = ( 0g โ ๐ ) |
8 |
|
chfacfisf.t |
โข ๐ = ( ๐ matToPolyMat ๐
) |
9 |
|
chfacfisf.g |
โข ๐บ = ( ๐ โ โ0 โฆ if ( ๐ = 0 , ( 0 โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ 0 ) ) ) ) , if ( ๐ = ( ๐ + 1 ) , ( ๐ โ ( ๐ โ ๐ ) ) , if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) ) ) |
10 |
|
chfacfscmulcl.x |
โข ๐ = ( var1 โ ๐
) |
11 |
|
chfacfscmulcl.m |
โข ยท = ( ยท๐ โ ๐ ) |
12 |
|
chfacfscmulcl.e |
โข โ = ( .g โ ( mulGrp โ ๐ ) ) |
13 |
|
eluz2 |
โข ( ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) โ ( ( ๐ + 2 ) โ โค โง ๐พ โ โค โง ( ๐ + 2 ) โค ๐พ ) ) |
14 |
|
simpll |
โข ( ( ( ๐พ โ โค โง ๐ โ โ ) โง ( ๐ + 2 ) โค ๐พ ) โ ๐พ โ โค ) |
15 |
|
nngt0 |
โข ( ๐ โ โ โ 0 < ๐ ) |
16 |
|
nnre |
โข ( ๐ โ โ โ ๐ โ โ ) |
17 |
16
|
adantl |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ๐ โ โ ) |
18 |
|
2rp |
โข 2 โ โ+ |
19 |
18
|
a1i |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ 2 โ โ+ ) |
20 |
17 19
|
ltaddrpd |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ๐ < ( ๐ + 2 ) ) |
21 |
|
0red |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ 0 โ โ ) |
22 |
|
2re |
โข 2 โ โ |
23 |
22
|
a1i |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ 2 โ โ ) |
24 |
17 23
|
readdcld |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ๐ + 2 ) โ โ ) |
25 |
|
lttr |
โข ( ( 0 โ โ โง ๐ โ โ โง ( ๐ + 2 ) โ โ ) โ ( ( 0 < ๐ โง ๐ < ( ๐ + 2 ) ) โ 0 < ( ๐ + 2 ) ) ) |
26 |
21 17 24 25
|
syl3anc |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( 0 < ๐ โง ๐ < ( ๐ + 2 ) ) โ 0 < ( ๐ + 2 ) ) ) |
27 |
20 26
|
mpan2d |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( 0 < ๐ โ 0 < ( ๐ + 2 ) ) ) |
28 |
27
|
ex |
โข ( ๐พ โ โค โ ( ๐ โ โ โ ( 0 < ๐ โ 0 < ( ๐ + 2 ) ) ) ) |
29 |
28
|
com13 |
โข ( 0 < ๐ โ ( ๐ โ โ โ ( ๐พ โ โค โ 0 < ( ๐ + 2 ) ) ) ) |
30 |
15 29
|
mpcom |
โข ( ๐ โ โ โ ( ๐พ โ โค โ 0 < ( ๐ + 2 ) ) ) |
31 |
30
|
impcom |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ 0 < ( ๐ + 2 ) ) |
32 |
|
zre |
โข ( ๐พ โ โค โ ๐พ โ โ ) |
33 |
32
|
adantr |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ๐พ โ โ ) |
34 |
|
ltleletr |
โข ( ( 0 โ โ โง ( ๐ + 2 ) โ โ โง ๐พ โ โ ) โ ( ( 0 < ( ๐ + 2 ) โง ( ๐ + 2 ) โค ๐พ ) โ 0 โค ๐พ ) ) |
35 |
21 24 33 34
|
syl3anc |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( 0 < ( ๐ + 2 ) โง ( ๐ + 2 ) โค ๐พ ) โ 0 โค ๐พ ) ) |
36 |
31 35
|
mpand |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 2 ) โค ๐พ โ 0 โค ๐พ ) ) |
37 |
36
|
imp |
โข ( ( ( ๐พ โ โค โง ๐ โ โ ) โง ( ๐ + 2 ) โค ๐พ ) โ 0 โค ๐พ ) |
38 |
|
elnn0z |
โข ( ๐พ โ โ0 โ ( ๐พ โ โค โง 0 โค ๐พ ) ) |
39 |
14 37 38
|
sylanbrc |
โข ( ( ( ๐พ โ โค โง ๐ โ โ ) โง ( ๐ + 2 ) โค ๐พ ) โ ๐พ โ โ0 ) |
40 |
|
nncn |
โข ( ๐ โ โ โ ๐ โ โ ) |
41 |
|
add1p1 |
โข ( ๐ โ โ โ ( ( ๐ + 1 ) + 1 ) = ( ๐ + 2 ) ) |
42 |
40 41
|
syl |
โข ( ๐ โ โ โ ( ( ๐ + 1 ) + 1 ) = ( ๐ + 2 ) ) |
43 |
42
|
adantl |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 1 ) + 1 ) = ( ๐ + 2 ) ) |
44 |
43
|
eqcomd |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ๐ + 2 ) = ( ( ๐ + 1 ) + 1 ) ) |
45 |
44
|
breq1d |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 2 ) โค ๐พ โ ( ( ๐ + 1 ) + 1 ) โค ๐พ ) ) |
46 |
|
nnz |
โข ( ๐ โ โ โ ๐ โ โค ) |
47 |
46
|
peano2zd |
โข ( ๐ โ โ โ ( ๐ + 1 ) โ โค ) |
48 |
47
|
anim2i |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ๐พ โ โค โง ( ๐ + 1 ) โ โค ) ) |
49 |
48
|
ancomd |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 1 ) โ โค โง ๐พ โ โค ) ) |
50 |
|
zltp1le |
โข ( ( ( ๐ + 1 ) โ โค โง ๐พ โ โค ) โ ( ( ๐ + 1 ) < ๐พ โ ( ( ๐ + 1 ) + 1 ) โค ๐พ ) ) |
51 |
50
|
bicomd |
โข ( ( ( ๐ + 1 ) โ โค โง ๐พ โ โค ) โ ( ( ( ๐ + 1 ) + 1 ) โค ๐พ โ ( ๐ + 1 ) < ๐พ ) ) |
52 |
49 51
|
syl |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ( ๐ + 1 ) + 1 ) โค ๐พ โ ( ๐ + 1 ) < ๐พ ) ) |
53 |
45 52
|
bitrd |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 2 ) โค ๐พ โ ( ๐ + 1 ) < ๐พ ) ) |
54 |
53
|
biimpa |
โข ( ( ( ๐พ โ โค โง ๐ โ โ ) โง ( ๐ + 2 ) โค ๐พ ) โ ( ๐ + 1 ) < ๐พ ) |
55 |
39 54
|
jca |
โข ( ( ( ๐พ โ โค โง ๐ โ โ ) โง ( ๐ + 2 ) โค ๐พ ) โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) |
56 |
55
|
ex |
โข ( ( ๐พ โ โค โง ๐ โ โ ) โ ( ( ๐ + 2 ) โค ๐พ โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
57 |
56
|
impancom |
โข ( ( ๐พ โ โค โง ( ๐ + 2 ) โค ๐พ ) โ ( ๐ โ โ โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
58 |
57
|
3adant1 |
โข ( ( ( ๐ + 2 ) โ โค โง ๐พ โ โค โง ( ๐ + 2 ) โค ๐พ ) โ ( ๐ โ โ โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
59 |
58
|
com12 |
โข ( ๐ โ โ โ ( ( ( ๐ + 2 ) โ โค โง ๐พ โ โค โง ( ๐ + 2 ) โค ๐พ ) โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
60 |
13 59
|
biimtrid |
โข ( ๐ โ โ โ ( ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
61 |
60
|
adantr |
โข ( ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) โ ( ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
62 |
61
|
adantl |
โข ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โ ( ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) โ ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) ) ) |
63 |
|
0red |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ 0 โ โ ) |
64 |
|
peano2re |
โข ( ๐ โ โ โ ( ๐ + 1 ) โ โ ) |
65 |
16 64
|
syl |
โข ( ๐ โ โ โ ( ๐ + 1 ) โ โ ) |
66 |
65
|
adantr |
โข ( ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) โ ( ๐ + 1 ) โ โ ) |
67 |
66
|
adantl |
โข ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โ ( ๐ + 1 ) โ โ ) |
68 |
67
|
ad2antrr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ๐ + 1 ) โ โ ) |
69 |
|
nn0re |
โข ( ๐พ โ โ0 โ ๐พ โ โ ) |
70 |
69
|
ad2antlr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ๐พ โ โ ) |
71 |
|
nnnn0 |
โข ( ๐ โ โ โ ๐ โ โ0 ) |
72 |
71
|
adantr |
โข ( ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) โ ๐ โ โ0 ) |
73 |
72
|
ad2antlr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ๐ โ โ0 ) |
74 |
|
nn0p1gt0 |
โข ( ๐ โ โ0 โ 0 < ( ๐ + 1 ) ) |
75 |
73 74
|
syl |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ 0 < ( ๐ + 1 ) ) |
76 |
75
|
adantr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ 0 < ( ๐ + 1 ) ) |
77 |
|
simpr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ๐ + 1 ) < ๐พ ) |
78 |
63 68 70 76 77
|
lttrd |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ 0 < ๐พ ) |
79 |
78
|
gt0ne0d |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ๐พ โ 0 ) |
80 |
79
|
neneqd |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ยฌ ๐พ = 0 ) |
81 |
80
|
adantr |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ยฌ ๐พ = 0 ) |
82 |
|
eqeq1 |
โข ( ๐ = ๐พ โ ( ๐ = 0 โ ๐พ = 0 ) ) |
83 |
82
|
notbid |
โข ( ๐ = ๐พ โ ( ยฌ ๐ = 0 โ ยฌ ๐พ = 0 ) ) |
84 |
83
|
adantl |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ( ยฌ ๐ = 0 โ ยฌ ๐พ = 0 ) ) |
85 |
81 84
|
mpbird |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ยฌ ๐ = 0 ) |
86 |
85
|
iffalsed |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ if ( ๐ = 0 , ( 0 โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ 0 ) ) ) ) , if ( ๐ = ( ๐ + 1 ) , ( ๐ โ ( ๐ โ ๐ ) ) , if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) ) = if ( ๐ = ( ๐ + 1 ) , ( ๐ โ ( ๐ โ ๐ ) ) , if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) ) |
87 |
66
|
ad2antlr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( ๐ + 1 ) โ โ ) |
88 |
|
ltne |
โข ( ( ( ๐ + 1 ) โ โ โง ( ๐ + 1 ) < ๐พ ) โ ๐พ โ ( ๐ + 1 ) ) |
89 |
87 88
|
sylan |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ๐พ โ ( ๐ + 1 ) ) |
90 |
89
|
neneqd |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ยฌ ๐พ = ( ๐ + 1 ) ) |
91 |
90
|
adantr |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ยฌ ๐พ = ( ๐ + 1 ) ) |
92 |
|
eqeq1 |
โข ( ๐ = ๐พ โ ( ๐ = ( ๐ + 1 ) โ ๐พ = ( ๐ + 1 ) ) ) |
93 |
92
|
notbid |
โข ( ๐ = ๐พ โ ( ยฌ ๐ = ( ๐ + 1 ) โ ยฌ ๐พ = ( ๐ + 1 ) ) ) |
94 |
93
|
adantl |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ( ยฌ ๐ = ( ๐ + 1 ) โ ยฌ ๐พ = ( ๐ + 1 ) ) ) |
95 |
91 94
|
mpbird |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ยฌ ๐ = ( ๐ + 1 ) ) |
96 |
95
|
iffalsed |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ if ( ๐ = ( ๐ + 1 ) , ( ๐ โ ( ๐ โ ๐ ) ) , if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) = if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) |
97 |
|
simplr |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ( ๐ + 1 ) < ๐พ ) |
98 |
|
breq2 |
โข ( ๐ = ๐พ โ ( ( ๐ + 1 ) < ๐ โ ( ๐ + 1 ) < ๐พ ) ) |
99 |
98
|
adantl |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ( ( ๐ + 1 ) < ๐ โ ( ๐ + 1 ) < ๐พ ) ) |
100 |
97 99
|
mpbird |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ ( ๐ + 1 ) < ๐ ) |
101 |
100
|
iftrued |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) = 0 ) |
102 |
86 96 101
|
3eqtrd |
โข ( ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โง ๐ = ๐พ ) โ if ( ๐ = 0 , ( 0 โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ 0 ) ) ) ) , if ( ๐ = ( ๐ + 1 ) , ( ๐ โ ( ๐ โ ๐ ) ) , if ( ( ๐ + 1 ) < ๐ , 0 , ( ( ๐ โ ( ๐ โ ( ๐ โ 1 ) ) ) โ ( ( ๐ โ ๐ ) ร ( ๐ โ ( ๐ โ ๐ ) ) ) ) ) ) ) = 0 ) |
103 |
|
simplr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ๐พ โ โ0 ) |
104 |
7
|
fvexi |
โข 0 โ V |
105 |
104
|
a1i |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ 0 โ V ) |
106 |
9 102 103 105
|
fvmptd2 |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ๐บ โ ๐พ ) = 0 ) |
107 |
106
|
oveq2d |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ( ๐พ โ ๐ ) ยท ( ๐บ โ ๐พ ) ) = ( ( ๐พ โ ๐ ) ยท 0 ) ) |
108 |
|
crngring |
โข ( ๐
โ CRing โ ๐
โ Ring ) |
109 |
3 4
|
pmatlmod |
โข ( ( ๐ โ Fin โง ๐
โ Ring ) โ ๐ โ LMod ) |
110 |
108 109
|
sylan2 |
โข ( ( ๐ โ Fin โง ๐
โ CRing ) โ ๐ โ LMod ) |
111 |
110
|
3adant3 |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ๐ โ LMod ) |
112 |
111
|
ad2antrr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ๐ โ LMod ) |
113 |
|
eqid |
โข ( mulGrp โ ๐ ) = ( mulGrp โ ๐ ) |
114 |
|
eqid |
โข ( Base โ ๐ ) = ( Base โ ๐ ) |
115 |
113 114
|
mgpbas |
โข ( Base โ ๐ ) = ( Base โ ( mulGrp โ ๐ ) ) |
116 |
3
|
ply1ring |
โข ( ๐
โ Ring โ ๐ โ Ring ) |
117 |
108 116
|
syl |
โข ( ๐
โ CRing โ ๐ โ Ring ) |
118 |
117
|
3ad2ant2 |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ๐ โ Ring ) |
119 |
113
|
ringmgp |
โข ( ๐ โ Ring โ ( mulGrp โ ๐ ) โ Mnd ) |
120 |
118 119
|
syl |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ( mulGrp โ ๐ ) โ Mnd ) |
121 |
120
|
ad2antrr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( mulGrp โ ๐ ) โ Mnd ) |
122 |
|
simpr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ๐พ โ โ0 ) |
123 |
108
|
3ad2ant2 |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ๐
โ Ring ) |
124 |
10 3 114
|
vr1cl |
โข ( ๐
โ Ring โ ๐ โ ( Base โ ๐ ) ) |
125 |
123 124
|
syl |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ๐ โ ( Base โ ๐ ) ) |
126 |
125
|
ad2antrr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ๐ โ ( Base โ ๐ ) ) |
127 |
115 12 121 122 126
|
mulgnn0cld |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( ๐พ โ ๐ ) โ ( Base โ ๐ ) ) |
128 |
3
|
ply1crng |
โข ( ๐
โ CRing โ ๐ โ CRing ) |
129 |
128
|
anim2i |
โข ( ( ๐ โ Fin โง ๐
โ CRing ) โ ( ๐ โ Fin โง ๐ โ CRing ) ) |
130 |
129
|
3adant3 |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ( ๐ โ Fin โง ๐ โ CRing ) ) |
131 |
4
|
matsca2 |
โข ( ( ๐ โ Fin โง ๐ โ CRing ) โ ๐ = ( Scalar โ ๐ ) ) |
132 |
130 131
|
syl |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ๐ = ( Scalar โ ๐ ) ) |
133 |
132
|
eqcomd |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ( Scalar โ ๐ ) = ๐ ) |
134 |
133
|
fveq2d |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ( Base โ ( Scalar โ ๐ ) ) = ( Base โ ๐ ) ) |
135 |
134
|
eleq2d |
โข ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โ ( ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) โ ( ๐พ โ ๐ ) โ ( Base โ ๐ ) ) ) |
136 |
135
|
ad2antrr |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) โ ( ๐พ โ ๐ ) โ ( Base โ ๐ ) ) ) |
137 |
127 136
|
mpbird |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) ) |
138 |
112 137
|
jca |
โข ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โ ( ๐ โ LMod โง ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) ) ) |
139 |
138
|
adantr |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ๐ โ LMod โง ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) ) ) |
140 |
|
eqid |
โข ( Scalar โ ๐ ) = ( Scalar โ ๐ ) |
141 |
|
eqid |
โข ( Base โ ( Scalar โ ๐ ) ) = ( Base โ ( Scalar โ ๐ ) ) |
142 |
140 11 141 7
|
lmodvs0 |
โข ( ( ๐ โ LMod โง ( ๐พ โ ๐ ) โ ( Base โ ( Scalar โ ๐ ) ) ) โ ( ( ๐พ โ ๐ ) ยท 0 ) = 0 ) |
143 |
139 142
|
syl |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ( ๐พ โ ๐ ) ยท 0 ) = 0 ) |
144 |
107 143
|
eqtrd |
โข ( ( ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โง ๐พ โ โ0 ) โง ( ๐ + 1 ) < ๐พ ) โ ( ( ๐พ โ ๐ ) ยท ( ๐บ โ ๐พ ) ) = 0 ) |
145 |
144
|
expl |
โข ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โ ( ( ๐พ โ โ0 โง ( ๐ + 1 ) < ๐พ ) โ ( ( ๐พ โ ๐ ) ยท ( ๐บ โ ๐พ ) ) = 0 ) ) |
146 |
62 145
|
syld |
โข ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) ) โ ( ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) โ ( ( ๐พ โ ๐ ) ยท ( ๐บ โ ๐พ ) ) = 0 ) ) |
147 |
146
|
3impia |
โข ( ( ( ๐ โ Fin โง ๐
โ CRing โง ๐ โ ๐ต ) โง ( ๐ โ โ โง ๐ โ ( ๐ต โm ( 0 ... ๐ ) ) ) โง ๐พ โ ( โคโฅ โ ( ๐ + 2 ) ) ) โ ( ( ๐พ โ ๐ ) ยท ( ๐บ โ ๐พ ) ) = 0 ) |