Step | Hyp | Ref
| Expression |
1 | | cramerimp.m |
. . 3
โข ร =
(๐
maMul โจ๐, ๐, ๐โฉ) |
2 | | eqid 2732 |
. . 3
โข
(Baseโ๐
) =
(Baseโ๐
) |
3 | | eqid 2732 |
. . 3
โข
(.rโ๐
) = (.rโ๐
) |
4 | | simpl 483 |
. . . 4
โข ((๐
โ CRing โง ๐ผ โ ๐) โ ๐
โ CRing) |
5 | 4 | 3ad2ant1 1133 |
. . 3
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐
โ CRing) |
6 | | cramerimp.a |
. . . . . . 7
โข ๐ด = (๐ Mat ๐
) |
7 | | cramerimp.b |
. . . . . . 7
โข ๐ต = (Baseโ๐ด) |
8 | 6, 7 | matrcl 21911 |
. . . . . 6
โข (๐ โ ๐ต โ (๐ โ Fin โง ๐
โ V)) |
9 | 8 | simpld 495 |
. . . . 5
โข (๐ โ ๐ต โ ๐ โ Fin) |
10 | 9 | adantr 481 |
. . . 4
โข ((๐ โ ๐ต โง ๐ โ ๐) โ ๐ โ Fin) |
11 | 10 | 3ad2ant2 1134 |
. . 3
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ Fin) |
12 | 9 | anim2i 617 |
. . . . . . . . . . . . . . 15
โข ((๐
โ CRing โง ๐ โ ๐ต) โ (๐
โ CRing โง ๐ โ Fin)) |
13 | 12 | ancomd 462 |
. . . . . . . . . . . . . 14
โข ((๐
โ CRing โง ๐ โ ๐ต) โ (๐ โ Fin โง ๐
โ CRing)) |
14 | 6, 2 | matbas2 21922 |
. . . . . . . . . . . . . 14
โข ((๐ โ Fin โง ๐
โ CRing) โ
((Baseโ๐
)
โm (๐
ร ๐)) =
(Baseโ๐ด)) |
15 | 13, 14 | syl 17 |
. . . . . . . . . . . . 13
โข ((๐
โ CRing โง ๐ โ ๐ต) โ ((Baseโ๐
) โm (๐ ร ๐)) = (Baseโ๐ด)) |
16 | 7, 15 | eqtr4id 2791 |
. . . . . . . . . . . 12
โข ((๐
โ CRing โง ๐ โ ๐ต) โ ๐ต = ((Baseโ๐
) โm (๐ ร ๐))) |
17 | 16 | eleq2d 2819 |
. . . . . . . . . . 11
โข ((๐
โ CRing โง ๐ โ ๐ต) โ (๐ โ ๐ต โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐)))) |
18 | 17 | biimpd 228 |
. . . . . . . . . 10
โข ((๐
โ CRing โง ๐ โ ๐ต) โ (๐ โ ๐ต โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐)))) |
19 | 18 | ex 413 |
. . . . . . . . 9
โข (๐
โ CRing โ (๐ โ ๐ต โ (๐ โ ๐ต โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐))))) |
20 | 19 | adantr 481 |
. . . . . . . 8
โข ((๐
โ CRing โง ๐ผ โ ๐) โ (๐ โ ๐ต โ (๐ โ ๐ต โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐))))) |
21 | 20 | com12 32 |
. . . . . . 7
โข (๐ โ ๐ต โ ((๐
โ CRing โง ๐ผ โ ๐) โ (๐ โ ๐ต โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐))))) |
22 | 21 | pm2.43a 54 |
. . . . . 6
โข (๐ โ ๐ต โ ((๐
โ CRing โง ๐ผ โ ๐) โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐)))) |
23 | 22 | adantr 481 |
. . . . 5
โข ((๐ โ ๐ต โง ๐ โ ๐) โ ((๐
โ CRing โง ๐ผ โ ๐) โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐)))) |
24 | 23 | impcom 408 |
. . . 4
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐)) โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐))) |
25 | 24 | 3adant3 1132 |
. . 3
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ ((Baseโ๐
) โm (๐ ร ๐))) |
26 | | crngring 20067 |
. . . . . . . 8
โข (๐
โ CRing โ ๐
โ Ring) |
27 | 26 | adantr 481 |
. . . . . . 7
โข ((๐
โ CRing โง ๐ผ โ ๐) โ ๐
โ Ring) |
28 | 27, 10 | anim12i 613 |
. . . . . 6
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐)) โ (๐
โ Ring โง ๐ โ Fin)) |
29 | 28 | 3adant3 1132 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐
โ Ring โง ๐ โ Fin)) |
30 | | ne0i 4334 |
. . . . . . . . 9
โข (๐ผ โ ๐ โ ๐ โ โ
) |
31 | 30 | adantl 482 |
. . . . . . . 8
โข ((๐
โ CRing โง ๐ผ โ ๐) โ ๐ โ โ
) |
32 | 31 | 3ad2ant1 1133 |
. . . . . . 7
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ โ
) |
33 | 11, 11, 32 | 3jca 1128 |
. . . . . 6
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ โ Fin โง ๐ โ Fin โง ๐ โ โ
)) |
34 | | cramerimp.v |
. . . . . . . . . . 11
โข ๐ = ((Baseโ๐
) โm ๐) |
35 | 34 | eleq2i 2825 |
. . . . . . . . . 10
โข (๐ โ ๐ โ ๐ โ ((Baseโ๐
) โm ๐)) |
36 | 35 | biimpi 215 |
. . . . . . . . 9
โข (๐ โ ๐ โ ๐ โ ((Baseโ๐
) โm ๐)) |
37 | 36 | adantl 482 |
. . . . . . . 8
โข ((๐ โ ๐ต โง ๐ โ ๐) โ ๐ โ ((Baseโ๐
) โm ๐)) |
38 | 4, 37 | anim12i 613 |
. . . . . . 7
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐)) โ (๐
โ CRing โง ๐ โ ((Baseโ๐
) โm ๐))) |
39 | 38 | 3adant3 1132 |
. . . . . 6
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐
โ CRing โง ๐ โ ((Baseโ๐
) โm ๐))) |
40 | | simp3 1138 |
. . . . . 6
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ ยท ๐) = ๐) |
41 | | eqid 2732 |
. . . . . . . 8
โข
((Baseโ๐
)
โm (๐
ร ๐)) =
((Baseโ๐
)
โm (๐
ร ๐)) |
42 | | cramerimp.x |
. . . . . . . 8
โข ยท =
(๐
maVecMul โจ๐, ๐โฉ) |
43 | | eqid 2732 |
. . . . . . . 8
โข
((Baseโ๐
)
โm ๐) =
((Baseโ๐
)
โm ๐) |
44 | 2, 41, 34, 42, 43 | mavmulsolcl 22052 |
. . . . . . 7
โข (((๐ โ Fin โง ๐ โ Fin โง ๐ โ โ
) โง (๐
โ CRing โง ๐ โ ((Baseโ๐
) โm ๐))) โ ((๐ ยท ๐) = ๐ โ ๐ โ ๐)) |
45 | 44 | imp 407 |
. . . . . 6
โข ((((๐ โ Fin โง ๐ โ Fin โง ๐ โ โ
) โง (๐
โ CRing โง ๐ โ ((Baseโ๐
) โm ๐))) โง (๐ ยท ๐) = ๐) โ ๐ โ ๐) |
46 | 33, 39, 40, 45 | syl21anc 836 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ ๐) |
47 | | simpr 485 |
. . . . . 6
โข ((๐
โ CRing โง ๐ผ โ ๐) โ ๐ผ โ ๐) |
48 | 47 | 3ad2ant1 1133 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ผ โ ๐) |
49 | | cramerimp.e |
. . . . . 6
โข ๐ธ = (((1rโ๐ด)(๐ matRepV ๐
)๐)โ๐ผ) |
50 | | eqid 2732 |
. . . . . . 7
โข
(1rโ๐ด) = (1rโ๐ด) |
51 | 6, 7, 34, 50 | ma1repvcl 22071 |
. . . . . 6
โข (((๐
โ Ring โง ๐ โ Fin) โง (๐ โ ๐ โง ๐ผ โ ๐)) โ (((1rโ๐ด)(๐ matRepV ๐
)๐)โ๐ผ) โ ๐ต) |
52 | 49, 51 | eqeltrid 2837 |
. . . . 5
โข (((๐
โ Ring โง ๐ โ Fin) โง (๐ โ ๐ โง ๐ผ โ ๐)) โ ๐ธ โ ๐ต) |
53 | 29, 46, 48, 52 | syl12anc 835 |
. . . 4
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ธ โ ๐ต) |
54 | 16 | eqcomd 2738 |
. . . . . 6
โข ((๐
โ CRing โง ๐ โ ๐ต) โ ((Baseโ๐
) โm (๐ ร ๐)) = ๐ต) |
55 | 54 | ad2ant2r 745 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐)) โ ((Baseโ๐
) โm (๐ ร ๐)) = ๐ต) |
56 | 55 | 3adant3 1132 |
. . . 4
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ((Baseโ๐
) โm (๐ ร ๐)) = ๐ต) |
57 | 53, 56 | eleqtrrd 2836 |
. . 3
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ธ โ ((Baseโ๐
) โm (๐ ร ๐))) |
58 | 1, 2, 3, 5, 11, 11, 11, 25, 57 | mamuval 21887 |
. 2
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ ร ๐ธ) = (๐ โ ๐, ๐ โ ๐ โฆ (๐
ฮฃg (๐ โ ๐ โฆ ((๐๐๐)(.rโ๐
)(๐๐ธ๐)))))) |
59 | 27 | 3ad2ant1 1133 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐
โ Ring) |
60 | 59 | 3ad2ant1 1133 |
. . . 4
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ ๐
โ Ring) |
61 | | simpl 483 |
. . . . . . 7
โข ((๐ โ ๐ต โง ๐ โ ๐) โ ๐ โ ๐ต) |
62 | 61 | 3ad2ant2 1134 |
. . . . . 6
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ ๐ต) |
63 | 62, 46, 48 | 3jca 1128 |
. . . . 5
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ โ ๐ต โง ๐ โ ๐ โง ๐ผ โ ๐)) |
64 | 63 | 3ad2ant1 1133 |
. . . 4
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ โ ๐ต โง ๐ โ ๐ โง ๐ผ โ ๐)) |
65 | | simp2 1137 |
. . . 4
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ ๐ โ ๐) |
66 | | simp3 1138 |
. . . 4
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ ๐ โ ๐) |
67 | 40 | 3ad2ant1 1133 |
. . . 4
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ ยท ๐) = ๐) |
68 | | eqid 2732 |
. . . . 5
โข
(0gโ๐
) = (0gโ๐
) |
69 | 6, 7, 34, 50, 68, 49, 42 | mulmarep1gsum2 22075 |
. . . 4
โข ((๐
โ Ring โง (๐ โ ๐ต โง ๐ โ ๐ โง ๐ผ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐ โง (๐ ยท ๐) = ๐)) โ (๐
ฮฃg (๐ โ ๐ โฆ ((๐๐๐)(.rโ๐
)(๐๐ธ๐)))) = if(๐ = ๐ผ, (๐โ๐), (๐๐๐))) |
70 | 60, 64, 65, 66, 67, 69 | syl113anc 1382 |
. . 3
โข ((((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐
ฮฃg (๐ โ ๐ โฆ ((๐๐๐)(.rโ๐
)(๐๐ธ๐)))) = if(๐ = ๐ผ, (๐โ๐), (๐๐๐))) |
71 | 70 | mpoeq3dva 7485 |
. 2
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ โ ๐, ๐ โ ๐ โฆ (๐
ฮฃg (๐ โ ๐ โฆ ((๐๐๐)(.rโ๐
)(๐๐ธ๐))))) = (๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐ผ, (๐โ๐), (๐๐๐)))) |
72 | | cramerimp.h |
. . 3
โข ๐ป = ((๐(๐ matRepV ๐
)๐)โ๐ผ) |
73 | | simpr 485 |
. . . . 5
โข ((๐ โ ๐ต โง ๐ โ ๐) โ ๐ โ ๐) |
74 | 73 | 3ad2ant2 1134 |
. . . 4
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ๐ โ ๐) |
75 | | eqid 2732 |
. . . . 5
โข (๐ matRepV ๐
) = (๐ matRepV ๐
) |
76 | 6, 7, 75, 34 | marepvval 22068 |
. . . 4
โข ((๐ โ ๐ต โง ๐ โ ๐ โง ๐ผ โ ๐) โ ((๐(๐ matRepV ๐
)๐)โ๐ผ) = (๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐ผ, (๐โ๐), (๐๐๐)))) |
77 | 62, 74, 48, 76 | syl3anc 1371 |
. . 3
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ ((๐(๐ matRepV ๐
)๐)โ๐ผ) = (๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐ผ, (๐โ๐), (๐๐๐)))) |
78 | 72, 77 | eqtr2id 2785 |
. 2
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐ผ, (๐โ๐), (๐๐๐))) = ๐ป) |
79 | 58, 71, 78 | 3eqtrd 2776 |
1
โข (((๐
โ CRing โง ๐ผ โ ๐) โง (๐ โ ๐ต โง ๐ โ ๐) โง (๐ ยท ๐) = ๐) โ (๐ ร ๐ธ) = ๐ป) |