Step | Hyp | Ref
| Expression |
1 | | crngring 20061 |
. . . . . 6
β’ (π
β CRing β π
β Ring) |
2 | 1 | adantr 481 |
. . . . 5
β’ ((π
β CRing β§ πΌ β π) β π
β Ring) |
3 | 2 | 3ad2ant1 1133 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β π
β Ring) |
4 | | cramerimp.d |
. . . . . . . 8
β’ π· = (π maDet π
) |
5 | | cramerimp.a |
. . . . . . . 8
β’ π΄ = (π Mat π
) |
6 | | cramerimp.b |
. . . . . . . 8
β’ π΅ = (Baseβπ΄) |
7 | | eqid 2732 |
. . . . . . . 8
β’
(Baseβπ
) =
(Baseβπ
) |
8 | 4, 5, 6, 7 | mdetf 22088 |
. . . . . . 7
β’ (π
β CRing β π·:π΅βΆ(Baseβπ
)) |
9 | 8 | adantr 481 |
. . . . . 6
β’ ((π
β CRing β§ πΌ β π) β π·:π΅βΆ(Baseβπ
)) |
10 | 9 | 3ad2ant1 1133 |
. . . . 5
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β π·:π΅βΆ(Baseβπ
)) |
11 | | cramerimp.e |
. . . . . 6
β’ πΈ = (((1rβπ΄)(π matRepV π
)π)βπΌ) |
12 | 5, 6 | matrcl 21903 |
. . . . . . . . . . 11
β’ (π β π΅ β (π β Fin β§ π
β V)) |
13 | 12 | simpld 495 |
. . . . . . . . . 10
β’ (π β π΅ β π β Fin) |
14 | 13 | adantr 481 |
. . . . . . . . 9
β’ ((π β π΅ β§ π β π) β π β Fin) |
15 | 2, 14 | anim12i 613 |
. . . . . . . 8
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β (π
β Ring β§ π β Fin)) |
16 | 15 | 3adant3 1132 |
. . . . . . 7
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π
β Ring β§ π β Fin)) |
17 | | ne0i 4333 |
. . . . . . . . . . 11
β’ (πΌ β π β π β β
) |
18 | 1, 17 | anim12ci 614 |
. . . . . . . . . 10
β’ ((π
β CRing β§ πΌ β π) β (π β β
β§ π
β Ring)) |
19 | 18 | anim1i 615 |
. . . . . . . . 9
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β ((π β β
β§ π
β Ring) β§ (π β π΅ β§ π β π))) |
20 | 19 | 3adant3 1132 |
. . . . . . . 8
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β ((π β β
β§ π
β Ring) β§ (π β π΅ β§ π β π))) |
21 | | simpl 483 |
. . . . . . . . 9
β’ (((π Β· π) = π β§ (π·βπ) β (Unitβπ
)) β (π Β· π) = π) |
22 | 21 | 3ad2ant3 1135 |
. . . . . . . 8
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π Β· π) = π) |
23 | | cramerimp.v |
. . . . . . . . 9
β’ π = ((Baseβπ
) βm π) |
24 | | cramerimp.x |
. . . . . . . . 9
β’ Β· =
(π
maVecMul β¨π, πβ©) |
25 | 5, 6, 23, 24 | slesolvec 22172 |
. . . . . . . 8
β’ (((π β β
β§ π
β Ring) β§ (π β π΅ β§ π β π)) β ((π Β· π) = π β π β π)) |
26 | 20, 22, 25 | sylc 65 |
. . . . . . 7
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β π β π) |
27 | | simpr 485 |
. . . . . . . 8
β’ ((π
β CRing β§ πΌ β π) β πΌ β π) |
28 | 27 | 3ad2ant1 1133 |
. . . . . . 7
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β πΌ β π) |
29 | | eqid 2732 |
. . . . . . . 8
β’
(1rβπ΄) = (1rβπ΄) |
30 | 5, 6, 23, 29 | ma1repvcl 22063 |
. . . . . . 7
β’ (((π
β Ring β§ π β Fin) β§ (π β π β§ πΌ β π)) β (((1rβπ΄)(π matRepV π
)π)βπΌ) β π΅) |
31 | 16, 26, 28, 30 | syl12anc 835 |
. . . . . 6
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (((1rβπ΄)(π matRepV π
)π)βπΌ) β π΅) |
32 | 11, 31 | eqeltrid 2837 |
. . . . 5
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β πΈ β π΅) |
33 | 10, 32 | ffvelcdmd 7084 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π·βπΈ) β (Baseβπ
)) |
34 | | simpr 485 |
. . . . 5
β’ (((π Β· π) = π β§ (π·βπ) β (Unitβπ
)) β (π·βπ) β (Unitβπ
)) |
35 | 34 | 3ad2ant3 1135 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π·βπ) β (Unitβπ
)) |
36 | | eqid 2732 |
. . . . 5
β’
(Unitβπ
) =
(Unitβπ
) |
37 | | cramerimp.q |
. . . . 5
β’ / =
(/rβπ
) |
38 | | eqid 2732 |
. . . . 5
β’
(.rβπ
) = (.rβπ
) |
39 | 7, 36, 37, 38 | dvrcan3 20216 |
. . . 4
β’ ((π
β Ring β§ (π·βπΈ) β (Baseβπ
) β§ (π·βπ) β (Unitβπ
)) β (((π·βπΈ)(.rβπ
)(π·βπ)) / (π·βπ)) = (π·βπΈ)) |
40 | 3, 33, 35, 39 | syl3anc 1371 |
. . 3
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (((π·βπΈ)(.rβπ
)(π·βπ)) / (π·βπ)) = (π·βπΈ)) |
41 | | simpl 483 |
. . . . . 6
β’ ((π
β CRing β§ πΌ β π) β π
β CRing) |
42 | 41 | 3ad2ant1 1133 |
. . . . 5
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β π
β CRing) |
43 | 7, 36 | unitcl 20181 |
. . . . . . 7
β’ ((π·βπ) β (Unitβπ
) β (π·βπ) β (Baseβπ
)) |
44 | 43 | adantl 482 |
. . . . . 6
β’ (((π Β· π) = π β§ (π·βπ) β (Unitβπ
)) β (π·βπ) β (Baseβπ
)) |
45 | 44 | 3ad2ant3 1135 |
. . . . 5
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π·βπ) β (Baseβπ
)) |
46 | 7, 38 | crngcom 20067 |
. . . . 5
β’ ((π
β CRing β§ (π·βπΈ) β (Baseβπ
) β§ (π·βπ) β (Baseβπ
)) β ((π·βπΈ)(.rβπ
)(π·βπ)) = ((π·βπ)(.rβπ
)(π·βπΈ))) |
47 | 42, 33, 45, 46 | syl3anc 1371 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β ((π·βπΈ)(.rβπ
)(π·βπ)) = ((π·βπ)(.rβπ
)(π·βπΈ))) |
48 | 47 | oveq1d 7420 |
. . 3
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (((π·βπΈ)(.rβπ
)(π·βπ)) / (π·βπ)) = (((π·βπ)(.rβπ
)(π·βπΈ)) / (π·βπ))) |
49 | 14 | adantl 482 |
. . . . . 6
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β π β Fin) |
50 | 41 | adantr 481 |
. . . . . 6
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β π
β CRing) |
51 | 27 | adantr 481 |
. . . . . 6
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β πΌ β π) |
52 | 49, 50, 51 | 3jca 1128 |
. . . . 5
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π)) β (π β Fin β§ π
β CRing β§ πΌ β π)) |
53 | 52 | 3adant3 1132 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π β Fin β§ π
β CRing β§ πΌ β π)) |
54 | 5, 23, 11, 4 | cramerimplem1 22176 |
. . . 4
β’ (((π β Fin β§ π
β CRing β§ πΌ β π) β§ π β π) β (π·βπΈ) = (πβπΌ)) |
55 | 53, 26, 54 | syl2anc 584 |
. . 3
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (π·βπΈ) = (πβπΌ)) |
56 | 40, 48, 55 | 3eqtr3rd 2781 |
. 2
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (πβπΌ) = (((π·βπ)(.rβπ
)(π·βπΈ)) / (π·βπ))) |
57 | | cramerimp.h |
. . . . 5
β’ π» = ((π(π matRepV π
)π)βπΌ) |
58 | 5, 6, 23, 11, 57, 24, 4, 38 | cramerimplem3 22178 |
. . . 4
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ (π Β· π) = π) β ((π·βπ)(.rβπ
)(π·βπΈ)) = (π·βπ»)) |
59 | 58 | 3adant3r 1181 |
. . 3
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β ((π·βπ)(.rβπ
)(π·βπΈ)) = (π·βπ»)) |
60 | 59 | oveq1d 7420 |
. 2
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (((π·βπ)(.rβπ
)(π·βπΈ)) / (π·βπ)) = ((π·βπ») / (π·βπ))) |
61 | 56, 60 | eqtrd 2772 |
1
β’ (((π
β CRing β§ πΌ β π) β§ (π β π΅ β§ π β π) β§ ((π Β· π) = π β§ (π·βπ) β (Unitβπ
))) β (πβπΌ) = ((π·βπ») / (π·βπ))) |