Proof of Theorem lincresunit3lem1
Step | Hyp | Ref
| Expression |
1 | | lincresunit.g |
. . . . . 6
⊢ 𝐺 = (𝑠 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠))) |
2 | 1 | a1i 11 |
. . . . 5
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝐺 = (𝑠 ∈ (𝑆 ∖ {𝑋}) ↦ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠)))) |
3 | | fveq2 6103 |
. . . . . . 7
⊢ (𝑠 = 𝑧 → (𝐹‘𝑠) = (𝐹‘𝑧)) |
4 | 3 | oveq2d 6565 |
. . . . . 6
⊢ (𝑠 = 𝑧 → ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠)) = ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))) |
5 | 4 | adantl 481 |
. . . . 5
⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) ∧ 𝑠 = 𝑧) → ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑠)) = ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))) |
6 | | simpr3 1062 |
. . . . 5
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝑧 ∈ (𝑆 ∖ {𝑋})) |
7 | | ovex 6577 |
. . . . . 6
⊢ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ V |
8 | 7 | a1i 11 |
. . . . 5
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ V) |
9 | 2, 5, 6, 8 | fvmptd 6197 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → (𝐺‘𝑧) = ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))) |
10 | 9 | oveq1d 6564 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝐺‘𝑧)( ·𝑠
‘𝑀)𝑧) = (((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))( ·𝑠
‘𝑀)𝑧)) |
11 | 10 | oveq2d 6565 |
. 2
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)((𝐺‘𝑧)( ·𝑠
‘𝑀)𝑧)) = ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)(((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))( ·𝑠
‘𝑀)𝑧))) |
12 | | simp2 1055 |
. . . 4
⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → 𝑀 ∈ LMod) |
13 | 12 | adantr 480 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝑀 ∈ LMod) |
14 | | lincresunit.r |
. . . . . 6
⊢ 𝑅 = (Scalar‘𝑀) |
15 | 14 | lmodfgrp 18695 |
. . . . 5
⊢ (𝑀 ∈ LMod → 𝑅 ∈ Grp) |
16 | 15 | 3ad2ant2 1076 |
. . . 4
⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → 𝑅 ∈ Grp) |
17 | | lincresunit.e |
. . . . . 6
⊢ 𝐸 = (Base‘𝑅) |
18 | | lincresunit.u |
. . . . . 6
⊢ 𝑈 = (Unit‘𝑅) |
19 | 17, 18 | unitcl 18482 |
. . . . 5
⊢ ((𝐹‘𝑋) ∈ 𝑈 → (𝐹‘𝑋) ∈ 𝐸) |
20 | 19 | 3ad2ant2 1076 |
. . . 4
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑋) ∈ 𝐸) |
21 | | lincresunit.n |
. . . . 5
⊢ 𝑁 = (invg‘𝑅) |
22 | 17, 21 | grpinvcl 17290 |
. . . 4
⊢ ((𝑅 ∈ Grp ∧ (𝐹‘𝑋) ∈ 𝐸) → (𝑁‘(𝐹‘𝑋)) ∈ 𝐸) |
23 | 16, 20, 22 | syl2an 493 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → (𝑁‘(𝐹‘𝑋)) ∈ 𝐸) |
24 | | 3simpa 1051 |
. . . . 5
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈)) |
25 | 24 | anim2i 591 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈))) |
26 | | eldifi 3694 |
. . . . . 6
⊢ (𝑧 ∈ (𝑆 ∖ {𝑋}) → 𝑧 ∈ 𝑆) |
27 | 26 | 3ad2ant3 1077 |
. . . . 5
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧 ∈ 𝑆) |
28 | 27 | adantl 481 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝑧 ∈ 𝑆) |
29 | | lincresunit.b |
. . . . 5
⊢ 𝐵 = (Base‘𝑀) |
30 | | lincresunit.0 |
. . . . 5
⊢ 0 =
(0g‘𝑅) |
31 | | lincresunit.z |
. . . . 5
⊢ 𝑍 = (0g‘𝑀) |
32 | | lincresunit.i |
. . . . 5
⊢ 𝐼 = (invr‘𝑅) |
33 | | lincresunit.t |
. . . . 5
⊢ · =
(.r‘𝑅) |
34 | 29, 14, 17, 18, 30, 31, 21, 32, 33, 1 | lincresunitlem2 42059 |
. . . 4
⊢ ((((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈)) ∧ 𝑧 ∈ 𝑆) → ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ 𝐸) |
35 | 25, 28, 34 | syl2anc 691 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ 𝐸) |
36 | | elpwi 4117 |
. . . . . . . . 9
⊢ (𝑆 ∈ 𝒫 𝐵 → 𝑆 ⊆ 𝐵) |
37 | 36 | sseld 3567 |
. . . . . . . 8
⊢ (𝑆 ∈ 𝒫 𝐵 → (𝑧 ∈ 𝑆 → 𝑧 ∈ 𝐵)) |
38 | 26, 37 | syl5com 31 |
. . . . . . 7
⊢ (𝑧 ∈ (𝑆 ∖ {𝑋}) → (𝑆 ∈ 𝒫 𝐵 → 𝑧 ∈ 𝐵)) |
39 | 38 | 3ad2ant3 1077 |
. . . . . 6
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝑆 ∈ 𝒫 𝐵 → 𝑧 ∈ 𝐵)) |
40 | 39 | com12 32 |
. . . . 5
⊢ (𝑆 ∈ 𝒫 𝐵 → ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧 ∈ 𝐵)) |
41 | 40 | 3ad2ant1 1075 |
. . . 4
⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → 𝑧 ∈ 𝐵)) |
42 | 41 | imp 444 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝑧 ∈ 𝐵) |
43 | | eqid 2610 |
. . . . 5
⊢ (
·𝑠 ‘𝑀) = ( ·𝑠
‘𝑀) |
44 | 29, 14, 43, 17, 33 | lmodvsass 18711 |
. . . 4
⊢ ((𝑀 ∈ LMod ∧ ((𝑁‘(𝐹‘𝑋)) ∈ 𝐸 ∧ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ 𝐸 ∧ 𝑧 ∈ 𝐵)) → (((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)))( ·𝑠
‘𝑀)𝑧) = ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)(((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))( ·𝑠
‘𝑀)𝑧))) |
45 | 44 | eqcomd 2616 |
. . 3
⊢ ((𝑀 ∈ LMod ∧ ((𝑁‘(𝐹‘𝑋)) ∈ 𝐸 ∧ ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)) ∈ 𝐸 ∧ 𝑧 ∈ 𝐵)) → ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)(((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))( ·𝑠
‘𝑀)𝑧)) = (((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)))( ·𝑠
‘𝑀)𝑧)) |
46 | 13, 23, 35, 42, 45 | syl13anc 1320 |
. 2
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)(((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))( ·𝑠
‘𝑀)𝑧)) = (((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)))( ·𝑠
‘𝑀)𝑧)) |
47 | 14 | lmodring 18694 |
. . . . . 6
⊢ (𝑀 ∈ LMod → 𝑅 ∈ Ring) |
48 | 47 | 3ad2ant2 1076 |
. . . . 5
⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) → 𝑅 ∈ Ring) |
49 | 48 | adantr 480 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → 𝑅 ∈ Ring) |
50 | | elmapi 7765 |
. . . . . . 7
⊢ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) → 𝐹:𝑆⟶𝐸) |
51 | | ffvelrn 6265 |
. . . . . . 7
⊢ ((𝐹:𝑆⟶𝐸 ∧ 𝑧 ∈ 𝑆) → (𝐹‘𝑧) ∈ 𝐸) |
52 | 50, 26, 51 | syl2an 493 |
. . . . . 6
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑧) ∈ 𝐸) |
53 | 52 | 3adant2 1073 |
. . . . 5
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑧) ∈ 𝐸) |
54 | 53 | adantl 481 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → (𝐹‘𝑧) ∈ 𝐸) |
55 | | simp2 1055 |
. . . . 5
⊢ ((𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋})) → (𝐹‘𝑋) ∈ 𝑈) |
56 | 55 | adantl 481 |
. . . 4
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → (𝐹‘𝑋) ∈ 𝑈) |
57 | 17, 18, 21, 32, 33 | invginvrid 41942 |
. . . 4
⊢ ((𝑅 ∈ Ring ∧ (𝐹‘𝑧) ∈ 𝐸 ∧ (𝐹‘𝑋) ∈ 𝑈) → ((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))) = (𝐹‘𝑧)) |
58 | 49, 54, 56, 57 | syl3anc 1318 |
. . 3
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧))) = (𝐹‘𝑧)) |
59 | 58 | oveq1d 6564 |
. 2
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → (((𝑁‘(𝐹‘𝑋)) · ((𝐼‘(𝑁‘(𝐹‘𝑋))) · (𝐹‘𝑧)))( ·𝑠
‘𝑀)𝑧) = ((𝐹‘𝑧)( ·𝑠
‘𝑀)𝑧)) |
60 | 11, 46, 59 | 3eqtrd 2648 |
1
⊢ (((𝑆 ∈ 𝒫 𝐵 ∧ 𝑀 ∈ LMod ∧ 𝑋 ∈ 𝑆) ∧ (𝐹 ∈ (𝐸 ↑𝑚 𝑆) ∧ (𝐹‘𝑋) ∈ 𝑈 ∧ 𝑧 ∈ (𝑆 ∖ {𝑋}))) → ((𝑁‘(𝐹‘𝑋))( ·𝑠
‘𝑀)((𝐺‘𝑧)( ·𝑠
‘𝑀)𝑧)) = ((𝐹‘𝑧)( ·𝑠
‘𝑀)𝑧)) |