Step | Hyp | Ref
| Expression |
1 | | fldhmf1.3 |
. . . 4
β’ (π β πΉ β (πΎ RingHom πΏ)) |
2 | | fldhmf1.4 |
. . . . 5
β’ π΄ = (BaseβπΎ) |
3 | | fldhmf1.5 |
. . . . 5
β’ π΅ = (BaseβπΏ) |
4 | 2, 3 | rhmf 20255 |
. . . 4
β’ (πΉ β (πΎ RingHom πΏ) β πΉ:π΄βΆπ΅) |
5 | 1, 4 | syl 17 |
. . 3
β’ (π β πΉ:π΄βΆπ΅) |
6 | 1 | ad4antr 730 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΉ β (πΎ RingHom πΏ)) |
7 | | rhmghm 20254 |
. . . . . . . . . . . . . . 15
β’ (πΉ β (πΎ RingHom πΏ) β πΉ β (πΎ GrpHom πΏ)) |
8 | 6, 7 | syl 17 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΉ β (πΎ GrpHom πΏ)) |
9 | | simp-4r 782 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β π β π΄) |
10 | | fldhmf1.1 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β πΎ β Field) |
11 | | isfld 20318 |
. . . . . . . . . . . . . . . . . . 19
β’ (πΎ β Field β (πΎ β DivRing β§ πΎ β CRing)) |
12 | 10, 11 | sylib 217 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (πΎ β DivRing β§ πΎ β CRing)) |
13 | 12 | simpld 495 |
. . . . . . . . . . . . . . . . 17
β’ (π β πΎ β DivRing) |
14 | 13 | ad4antr 730 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΎ β DivRing) |
15 | | drnggrp 20317 |
. . . . . . . . . . . . . . . 16
β’ (πΎ β DivRing β πΎ β Grp) |
16 | 14, 15 | syl 17 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΎ β Grp) |
17 | | simpllr 774 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β π β π΄) |
18 | | eqid 2732 |
. . . . . . . . . . . . . . . 16
β’
(invgβπΎ) = (invgβπΎ) |
19 | 2, 18 | grpinvcl 18868 |
. . . . . . . . . . . . . . 15
β’ ((πΎ β Grp β§ π β π΄) β ((invgβπΎ)βπ) β π΄) |
20 | 16, 17, 19 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invgβπΎ)βπ) β π΄) |
21 | | eqid 2732 |
. . . . . . . . . . . . . . 15
β’
(+gβπΎ) = (+gβπΎ) |
22 | | eqid 2732 |
. . . . . . . . . . . . . . 15
β’
(+gβπΏ) = (+gβπΏ) |
23 | 2, 21, 22 | ghmlin 19091 |
. . . . . . . . . . . . . 14
β’ ((πΉ β (πΎ GrpHom πΏ) β§ π β π΄ β§ ((invgβπΎ)βπ) β π΄) β (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) = ((πΉβπ)(+gβπΏ)(πΉβ((invgβπΎ)βπ)))) |
24 | 8, 9, 20, 23 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) = ((πΉβπ)(+gβπΏ)(πΉβ((invgβπΎ)βπ)))) |
25 | | eqid 2732 |
. . . . . . . . . . . . . . . . 17
β’
(invgβπΏ) = (invgβπΏ) |
26 | 2, 18, 25 | ghminv 19093 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ β (πΎ GrpHom πΏ) β§ π β π΄) β (πΉβ((invgβπΎ)βπ)) = ((invgβπΏ)β(πΉβπ))) |
27 | 8, 17, 26 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((invgβπΎ)βπ)) = ((invgβπΏ)β(πΉβπ))) |
28 | 27 | oveq2d 7421 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβπ)(+gβπΏ)(πΉβ((invgβπΎ)βπ))) = ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ)))) |
29 | | simpr 485 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβπ) = (πΉβπ)) |
30 | 29 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ))) = ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ)))) |
31 | | fldhmf1.2 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β πΏ β Field) |
32 | 31 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β πΏ β Field) |
33 | | isfld 20318 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (πΏ β Field β (πΏ β DivRing β§ πΏ β CRing)) |
34 | 32, 33 | sylib 217 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β (πΏ β DivRing β§ πΏ β CRing)) |
35 | 34 | simpld 495 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β πΏ β DivRing) |
36 | 35 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΏ β DivRing) |
37 | | drngring 20314 |
. . . . . . . . . . . . . . . . . 18
β’ (πΏ β DivRing β πΏ β Ring) |
38 | 36, 37 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΏ β Ring) |
39 | 38 | ringgrpd 20058 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΏ β Grp) |
40 | 6, 4 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΉ:π΄βΆπ΅) |
41 | 40, 17 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβπ) β π΅) |
42 | | eqid 2732 |
. . . . . . . . . . . . . . . . 17
β’
(0gβπΏ) = (0gβπΏ) |
43 | 3, 22, 42, 25 | grprinv 18871 |
. . . . . . . . . . . . . . . 16
β’ ((πΏ β Grp β§ (πΉβπ) β π΅) β ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ))) = (0gβπΏ)) |
44 | 39, 41, 43 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ))) = (0gβπΏ)) |
45 | 30, 44 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβπ)(+gβπΏ)((invgβπΏ)β(πΉβπ))) = (0gβπΏ)) |
46 | 28, 45 | eqtrd 2772 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβπ)(+gβπΏ)(πΉβ((invgβπΎ)βπ))) = (0gβπΏ)) |
47 | 24, 46 | eqtrd 2772 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) = (0gβπΏ)) |
48 | 47 | oveq1d 7420 |
. . . . . . . . . . 11
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = ((0gβπΏ)(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))))) |
49 | 2, 21 | grpcl 18823 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΎ β Grp β§ π β π΄ β§ ((invgβπΎ)βπ) β π΄) β (π(+gβπΎ)((invgβπΎ)βπ)) β π΄) |
50 | 16, 9, 20, 49 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (π(+gβπΎ)((invgβπΎ)βπ)) β π΄) |
51 | 2, 18 | grpinvinv 18886 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΎ β Grp β§ π β π΄) β ((invgβπΎ)β((invgβπΎ)βπ)) = π) |
52 | 16, 17, 51 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invgβπΎ)β((invgβπΎ)βπ)) = π) |
53 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β π β π) |
54 | 53 | necomd 2996 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β π β π) |
55 | 52, 54 | eqnetrd 3008 |
. . . . . . . . . . . . . . . . . 18
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invgβπΎ)β((invgβπΎ)βπ)) β π) |
56 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(0gβπΎ) = (0gβπΎ) |
57 | 2, 21, 56, 18 | grpinvid2 18873 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΎ β Grp β§
((invgβπΎ)βπ) β π΄ β§ π β π΄) β (((invgβπΎ)β((invgβπΎ)βπ)) = π β (π(+gβπΎ)((invgβπΎ)βπ)) = (0gβπΎ))) |
58 | 57 | necon3bid 2985 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΎ β Grp β§
((invgβπΎ)βπ) β π΄ β§ π β π΄) β (((invgβπΎ)β((invgβπΎ)βπ)) β π β (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ))) |
59 | 16, 20, 9, 58 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . 18
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (((invgβπΎ)β((invgβπΎ)βπ)) β π β (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ))) |
60 | 55, 59 | mpbid 231 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ)) |
61 | 50, 60 | jca 512 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((π(+gβπΎ)((invgβπΎ)βπ)) β π΄ β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ))) |
62 | | eqid 2732 |
. . . . . . . . . . . . . . . . . 18
β’
(UnitβπΎ) =
(UnitβπΎ) |
63 | 2, 62, 56 | drngunit 20312 |
. . . . . . . . . . . . . . . . 17
β’ (πΎ β DivRing β ((π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ) β ((π(+gβπΎ)((invgβπΎ)βπ)) β π΄ β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ)))) |
64 | 14, 63 | syl 17 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ) β ((π(+gβπΎ)((invgβπΎ)βπ)) β π΄ β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (0gβπΎ)))) |
65 | 61, 64 | mpbird 256 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ)) |
66 | | rhmunitinv 20282 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β (πΎ RingHom πΏ) β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ)) β (πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) = ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ))))) |
67 | 6, 65, 66 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) = ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ))))) |
68 | | elrhmunit 20281 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΉ β (πΎ RingHom πΏ) β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ)) β (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΏ)) |
69 | 6, 65, 68 | syl2anc 584 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΏ)) |
70 | | eqid 2732 |
. . . . . . . . . . . . . . . . . 18
β’
(UnitβπΏ) =
(UnitβπΏ) |
71 | | eqid 2732 |
. . . . . . . . . . . . . . . . . 18
β’
(invrβπΏ) = (invrβπΏ) |
72 | 70, 71 | unitinvcl 20196 |
. . . . . . . . . . . . . . . . 17
β’ ((πΏ β Ring β§ (πΉβ(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΏ)) β ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (UnitβπΏ)) |
73 | 38, 69, 72 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (UnitβπΏ)) |
74 | 3, 70, 42 | drngunit 20312 |
. . . . . . . . . . . . . . . . . 18
β’ (πΏ β DivRing β
(((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (UnitβπΏ) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅ β§ ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (0gβπΏ)))) |
75 | 36, 74 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (UnitβπΏ) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅ β§ ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (0gβπΏ)))) |
76 | 75 | biimpd 228 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (UnitβπΏ) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅ β§ ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (0gβπΏ)))) |
77 | 73, 76 | mpd 15 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅ β§ ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β (0gβπΏ))) |
78 | 77 | simpld 495 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invrβπΏ)β(πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅) |
79 | 67, 78 | eqeltrd 2833 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅) |
80 | 38, 79 | jca 512 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΏ β Ring β§ (πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅)) |
81 | | eqid 2732 |
. . . . . . . . . . . . 13
β’
(.rβπΏ) = (.rβπΏ) |
82 | 3, 81, 42 | ringlz 20100 |
. . . . . . . . . . . 12
β’ ((πΏ β Ring β§ (πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) β π΅) β ((0gβπΏ)(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (0gβπΏ)) |
83 | 80, 82 | syl 17 |
. . . . . . . . . . 11
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((0gβπΏ)(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (0gβπΏ)) |
84 | 48, 83 | eqtrd 2772 |
. . . . . . . . . 10
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (0gβπΏ)) |
85 | 84 | eqcomd 2738 |
. . . . . . . . 9
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (0gβπΏ) = ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))))) |
86 | 12 | simprd 496 |
. . . . . . . . . . . . . . 15
β’ (π β πΎ β CRing) |
87 | 86 | crngringd 20062 |
. . . . . . . . . . . . . 14
β’ (π β πΎ β Ring) |
88 | 87 | ad4antr 730 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΎ β Ring) |
89 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’
(invrβπΎ) = (invrβπΎ) |
90 | 62, 89 | unitinvcl 20196 |
. . . . . . . . . . . . 13
β’ ((πΎ β Ring β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ)) β ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΎ)) |
91 | 88, 65, 90 | syl2anc 584 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΎ)) |
92 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’
(BaseβπΎ) =
(BaseβπΎ) |
93 | 92, 62 | unitcl 20181 |
. . . . . . . . . . . . 13
β’
(((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΎ) β ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β (BaseβπΎ)) |
94 | 2 | eqcomi 2741 |
. . . . . . . . . . . . 13
β’
(BaseβπΎ) =
π΄ |
95 | 93, 94 | eleqtrdi 2843 |
. . . . . . . . . . . 12
β’
(((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β (UnitβπΎ) β ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β π΄) |
96 | 91, 95 | syl 17 |
. . . . . . . . . . 11
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β π΄) |
97 | | eqid 2732 |
. . . . . . . . . . . 12
β’
(.rβπΎ) = (.rβπΎ) |
98 | 2, 97, 81 | rhmmul 20256 |
. . . . . . . . . . 11
β’ ((πΉ β (πΎ RingHom πΏ) β§ (π(+gβπΎ)((invgβπΎ)βπ)) β π΄ β§ ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))) β π΄) β (πΉβ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))))) |
99 | 6, 50, 96, 98 | syl3anc 1371 |
. . . . . . . . . 10
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))))) |
100 | 99 | eqcomd 2738 |
. . . . . . . . 9
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((πΉβ(π(+gβπΎ)((invgβπΎ)βπ)))(.rβπΏ)(πΉβ((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (πΉβ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))))) |
101 | | drngring 20314 |
. . . . . . . . . . . . 13
β’ (πΎ β DivRing β πΎ β Ring) |
102 | 14, 101 | syl 17 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β πΎ β Ring) |
103 | | eqid 2732 |
. . . . . . . . . . . . 13
β’
(1rβπΎ) = (1rβπΎ) |
104 | 62, 89, 97, 103 | unitrinv 20200 |
. . . . . . . . . . . 12
β’ ((πΎ β Ring β§ (π(+gβπΎ)((invgβπΎ)βπ)) β (UnitβπΎ)) β ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) = (1rβπΎ)) |
105 | 102, 65, 104 | syl2anc 584 |
. . . . . . . . . . 11
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ)))) = (1rβπΎ)) |
106 | 105 | fveq2d 6892 |
. . . . . . . . . 10
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (πΉβ(1rβπΎ))) |
107 | | eqid 2732 |
. . . . . . . . . . . 12
β’
(1rβπΏ) = (1rβπΏ) |
108 | 103, 107 | rhm1 20259 |
. . . . . . . . . . 11
β’ (πΉ β (πΎ RingHom πΏ) β (πΉβ(1rβπΎ)) = (1rβπΏ)) |
109 | 6, 108 | syl 17 |
. . . . . . . . . 10
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ(1rβπΎ)) = (1rβπΏ)) |
110 | 106, 109 | eqtrd 2772 |
. . . . . . . . 9
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (πΉβ((π(+gβπΎ)((invgβπΎ)βπ))(.rβπΎ)((invrβπΎ)β(π(+gβπΎ)((invgβπΎ)βπ))))) = (1rβπΏ)) |
111 | 85, 100, 110 | 3eqtrd 2776 |
. . . . . . . 8
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (0gβπΏ) = (1rβπΏ)) |
112 | 42, 107 | drngunz 20326 |
. . . . . . . . . . . 12
β’ (πΏ β DivRing β
(1rβπΏ)
β (0gβπΏ)) |
113 | 35, 112 | syl 17 |
. . . . . . . . . . 11
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β (1rβπΏ) β
(0gβπΏ)) |
114 | 113 | necomd 2996 |
. . . . . . . . . 10
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β (0gβπΏ) β
(1rβπΏ)) |
115 | 114 | adantr 481 |
. . . . . . . . 9
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β (0gβπΏ) β
(1rβπΏ)) |
116 | 115 | neneqd 2945 |
. . . . . . . 8
β’
(((((π β§ π β π΄) β§ π β π΄) β§ π β π) β§ (πΉβπ) = (πΉβπ)) β Β¬ (0gβπΏ) = (1rβπΏ)) |
117 | 111, 116 | pm2.65da 815 |
. . . . . . 7
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β Β¬ (πΉβπ) = (πΉβπ)) |
118 | 117 | neqned 2947 |
. . . . . 6
β’ ((((π β§ π β π΄) β§ π β π΄) β§ π β π) β (πΉβπ) β (πΉβπ)) |
119 | 118 | ex 413 |
. . . . 5
β’ (((π β§ π β π΄) β§ π β π΄) β (π β π β (πΉβπ) β (πΉβπ))) |
120 | 119 | ralrimiva 3146 |
. . . 4
β’ ((π β§ π β π΄) β βπ β π΄ (π β π β (πΉβπ) β (πΉβπ))) |
121 | 120 | ralrimiva 3146 |
. . 3
β’ (π β βπ β π΄ βπ β π΄ (π β π β (πΉβπ) β (πΉβπ))) |
122 | 5, 121 | jca 512 |
. 2
β’ (π β (πΉ:π΄βΆπ΅ β§ βπ β π΄ βπ β π΄ (π β π β (πΉβπ) β (πΉβπ)))) |
123 | | dff14a 7265 |
. 2
β’ (πΉ:π΄β1-1βπ΅ β (πΉ:π΄βΆπ΅ β§ βπ β π΄ βπ β π΄ (π β π β (πΉβπ) β (πΉβπ)))) |
124 | 122, 123 | sylibr 233 |
1
β’ (π β πΉ:π΄β1-1βπ΅) |