Proof of Theorem lincresunit3lem3
Step | Hyp | Ref
| Expression |
1 | | 3simpa 1146 |
. . . . . . . 8
⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵)) |
2 | 1 | adantr 480 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵)) |
3 | | lincresunit3lem3.b |
. . . . . . . 8
⊢ 𝐵 = (Base‘𝑀) |
4 | | lincresunit3lem3.r |
. . . . . . . 8
⊢ 𝑅 = (Scalar‘𝑀) |
5 | | lincresunit3lem3.t |
. . . . . . . 8
⊢ · = (
·𝑠 ‘𝑀) |
6 | | eqid 2738 |
. . . . . . . 8
⊢
(1r‘𝑅) = (1r‘𝑅) |
7 | 3, 4, 5, 6 | lmodvs1 20066 |
. . . . . . 7
⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵) → ((1r‘𝑅) · 𝑋) = 𝑋) |
8 | 2, 7 | syl 17 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → ((1r‘𝑅) · 𝑋) = 𝑋) |
9 | 4 | lmodring 20046 |
. . . . . . . . . . . 12
⊢ (𝑀 ∈ LMod → 𝑅 ∈ Ring) |
10 | 9 | 3ad2ant1 1131 |
. . . . . . . . . . 11
⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑅 ∈ Ring) |
11 | 10 | adantr 480 |
. . . . . . . . . 10
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → 𝑅 ∈ Ring) |
12 | | lincresunit3lem3.u |
. . . . . . . . . . . . 13
⊢ 𝑈 = (Unit‘𝑅) |
13 | | lincresunit3lem3.n |
. . . . . . . . . . . . 13
⊢ 𝑁 = (invg‘𝑅) |
14 | 12, 13 | unitnegcl 19838 |
. . . . . . . . . . . 12
⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝑈) → (𝑁‘𝐴) ∈ 𝑈) |
15 | 9, 14 | sylan 579 |
. . . . . . . . . . 11
⊢ ((𝑀 ∈ LMod ∧ 𝐴 ∈ 𝑈) → (𝑁‘𝐴) ∈ 𝑈) |
16 | 15 | 3ad2antl1 1183 |
. . . . . . . . . 10
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑁‘𝐴) ∈ 𝑈) |
17 | 11, 16 | jca 511 |
. . . . . . . . 9
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑅 ∈ Ring ∧ (𝑁‘𝐴) ∈ 𝑈)) |
18 | | eqid 2738 |
. . . . . . . . . 10
⊢
(invr‘𝑅) = (invr‘𝑅) |
19 | | eqid 2738 |
. . . . . . . . . 10
⊢
(.r‘𝑅) = (.r‘𝑅) |
20 | 12, 18, 19, 6 | unitlinv 19834 |
. . . . . . . . 9
⊢ ((𝑅 ∈ Ring ∧ (𝑁‘𝐴) ∈ 𝑈) → (((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) = (1r‘𝑅)) |
21 | 17, 20 | syl 17 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) = (1r‘𝑅)) |
22 | 21 | eqcomd 2744 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (1r‘𝑅) =
(((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴))) |
23 | 22 | oveq1d 7270 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → ((1r‘𝑅) · 𝑋) = ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋)) |
24 | 8, 23 | eqtr3d 2780 |
. . . . 5
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → 𝑋 = ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋)) |
25 | 24 | adantr 480 |
. . . 4
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → 𝑋 = ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋)) |
26 | | simpl1 1189 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → 𝑀 ∈ LMod) |
27 | | lincresunit3lem3.e |
. . . . . . . . . . 11
⊢ 𝐸 = (Base‘𝑅) |
28 | 12, 18, 27 | ringinvcl 19833 |
. . . . . . . . . 10
⊢ ((𝑅 ∈ Ring ∧ (𝑁‘𝐴) ∈ 𝑈) → ((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸) |
29 | 17, 28 | syl 17 |
. . . . . . . . 9
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → ((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸) |
30 | 4 | lmodfgrp 20047 |
. . . . . . . . . . 11
⊢ (𝑀 ∈ LMod → 𝑅 ∈ Grp) |
31 | 30 | 3ad2ant1 1131 |
. . . . . . . . . 10
⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑅 ∈ Grp) |
32 | 27, 12 | unitcl 19816 |
. . . . . . . . . 10
⊢ (𝐴 ∈ 𝑈 → 𝐴 ∈ 𝐸) |
33 | 27, 13 | grpinvcl 18542 |
. . . . . . . . . 10
⊢ ((𝑅 ∈ Grp ∧ 𝐴 ∈ 𝐸) → (𝑁‘𝐴) ∈ 𝐸) |
34 | 31, 32, 33 | syl2an 595 |
. . . . . . . . 9
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑁‘𝐴) ∈ 𝐸) |
35 | | simpl2 1190 |
. . . . . . . . 9
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → 𝑋 ∈ 𝐵) |
36 | 29, 34, 35 | 3jca 1126 |
. . . . . . . 8
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑋 ∈ 𝐵)) |
37 | 26, 36 | jca 511 |
. . . . . . 7
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑀 ∈ LMod ∧
(((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑋 ∈ 𝐵))) |
38 | 37 | adantr 480 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧
(((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑋 ∈ 𝐵))) |
39 | 3, 4, 5, 27, 19 | lmodvsass 20063 |
. . . . . 6
⊢ ((𝑀 ∈ LMod ∧
(((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑋 ∈ 𝐵)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑋))) |
40 | 38, 39 | syl 17 |
. . . . 5
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑋))) |
41 | | oveq2 7263 |
. . . . . 6
⊢ (((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌) → (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑋)) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑌))) |
42 | 41 | adantl 481 |
. . . . 5
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑋)) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑌))) |
43 | 26 | adantr 480 |
. . . . . . . 8
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → 𝑀 ∈ LMod) |
44 | | simpl3 1191 |
. . . . . . . . . 10
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → 𝑌 ∈ 𝐵) |
45 | 29, 34, 44 | 3jca 1126 |
. . . . . . . . 9
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑌 ∈ 𝐵)) |
46 | 45 | adantr 480 |
. . . . . . . 8
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑌 ∈ 𝐵)) |
47 | 43, 46 | jca 511 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧
(((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑌 ∈ 𝐵))) |
48 | 3, 4, 5, 27, 19 | lmodvsass 20063 |
. . . . . . 7
⊢ ((𝑀 ∈ LMod ∧
(((invr‘𝑅)‘(𝑁‘𝐴)) ∈ 𝐸 ∧ (𝑁‘𝐴) ∈ 𝐸 ∧ 𝑌 ∈ 𝐵)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑌) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑌))) |
49 | 47, 48 | syl 17 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑌) = (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑌))) |
50 | 17 | adantr 480 |
. . . . . . . 8
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (𝑅 ∈ Ring ∧ (𝑁‘𝐴) ∈ 𝑈)) |
51 | 50, 20 | syl 17 |
. . . . . . 7
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) = (1r‘𝑅)) |
52 | 51 | oveq1d 7270 |
. . . . . 6
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑌) = ((1r‘𝑅) · 𝑌)) |
53 | 49, 52 | eqtr3d 2780 |
. . . . 5
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (((invr‘𝑅)‘(𝑁‘𝐴)) · ((𝑁‘𝐴) · 𝑌)) = ((1r‘𝑅) · 𝑌)) |
54 | 40, 42, 53 | 3eqtrd 2782 |
. . . 4
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → ((((invr‘𝑅)‘(𝑁‘𝐴))(.r‘𝑅)(𝑁‘𝐴)) · 𝑋) = ((1r‘𝑅) · 𝑌)) |
55 | | 3simpb 1147 |
. . . . . . 7
⊢ ((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑀 ∈ LMod ∧ 𝑌 ∈ 𝐵)) |
56 | 55 | adantr 480 |
. . . . . 6
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (𝑀 ∈ LMod ∧ 𝑌 ∈ 𝐵)) |
57 | 56 | adantr 480 |
. . . . 5
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧ 𝑌 ∈ 𝐵)) |
58 | 3, 4, 5, 6 | lmodvs1 20066 |
. . . . 5
⊢ ((𝑀 ∈ LMod ∧ 𝑌 ∈ 𝐵) → ((1r‘𝑅) · 𝑌) = 𝑌) |
59 | 57, 58 | syl 17 |
. . . 4
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → ((1r‘𝑅) · 𝑌) = 𝑌) |
60 | 25, 54, 59 | 3eqtrd 2782 |
. . 3
⊢ ((((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) ∧ ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) → 𝑋 = 𝑌) |
61 | 60 | ex 412 |
. 2
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌) → 𝑋 = 𝑌)) |
62 | | oveq2 7263 |
. 2
⊢ (𝑋 = 𝑌 → ((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌)) |
63 | 61, 62 | impbid1 224 |
1
⊢ (((𝑀 ∈ LMod ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝐴 ∈ 𝑈) → (((𝑁‘𝐴) · 𝑋) = ((𝑁‘𝐴) · 𝑌) ↔ 𝑋 = 𝑌)) |