Step | Hyp | Ref
| Expression |
1 | | rrxval.r |
. . . 4
β’ π» = (β^βπΌ) |
2 | 1 | rrxval 24896 |
. . 3
β’ (πΌ β π β π» =
(toβPreHilβ(βfld freeLMod πΌ))) |
3 | 2 | fveq2d 6893 |
. 2
β’ (πΌ β π β (distβπ») =
(distβ(toβPreHilβ(βfld freeLMod πΌ)))) |
4 | | resrng 21166 |
. . . . 5
β’
βfld β *-Ring |
5 | | srngring 20453 |
. . . . 5
β’
(βfld β *-Ring β βfld β
Ring) |
6 | 4, 5 | ax-mp 5 |
. . . 4
β’
βfld β Ring |
7 | | eqid 2733 |
. . . . 5
β’
(βfld freeLMod πΌ) = (βfld freeLMod πΌ) |
8 | 7 | frlmlmod 21296 |
. . . 4
β’
((βfld β Ring β§ πΌ β π) β (βfld freeLMod
πΌ) β
LMod) |
9 | 6, 8 | mpan 689 |
. . 3
β’ (πΌ β π β (βfld freeLMod
πΌ) β
LMod) |
10 | | lmodgrp 20471 |
. . 3
β’
((βfld freeLMod πΌ) β LMod β (βfld
freeLMod πΌ) β
Grp) |
11 | | eqid 2733 |
. . . 4
β’
(toβPreHilβ(βfld freeLMod πΌ)) =
(toβPreHilβ(βfld freeLMod πΌ)) |
12 | | eqid 2733 |
. . . 4
β’
(normβ(toβPreHilβ(βfld freeLMod πΌ))) =
(normβ(toβPreHilβ(βfld freeLMod πΌ))) |
13 | | eqid 2733 |
. . . 4
β’
(-gβ(βfld freeLMod πΌ)) =
(-gβ(βfld freeLMod πΌ)) |
14 | 11, 12, 13 | tcphds 24740 |
. . 3
β’
((βfld freeLMod πΌ) β Grp β
((normβ(toβPreHilβ(βfld freeLMod πΌ))) β
(-gβ(βfld freeLMod πΌ))) =
(distβ(toβPreHilβ(βfld freeLMod πΌ)))) |
15 | 9, 10, 14 | 3syl 18 |
. 2
β’ (πΌ β π β
((normβ(toβPreHilβ(βfld freeLMod πΌ))) β
(-gβ(βfld freeLMod πΌ))) =
(distβ(toβPreHilβ(βfld freeLMod πΌ)))) |
16 | | eqid 2733 |
. . . . . . . 8
β’
(Baseβ(βfld freeLMod πΌ)) = (Baseβ(βfld
freeLMod πΌ)) |
17 | 16, 13 | grpsubf 18899 |
. . . . . . 7
β’
((βfld freeLMod πΌ) β Grp β
(-gβ(βfld freeLMod πΌ)):((Baseβ(βfld
freeLMod πΌ)) Γ
(Baseβ(βfld freeLMod πΌ)))βΆ(Baseβ(βfld
freeLMod πΌ))) |
18 | 9, 10, 17 | 3syl 18 |
. . . . . 6
β’ (πΌ β π β
(-gβ(βfld freeLMod πΌ)):((Baseβ(βfld
freeLMod πΌ)) Γ
(Baseβ(βfld freeLMod πΌ)))βΆ(Baseβ(βfld
freeLMod πΌ))) |
19 | | rrxbase.b |
. . . . . . . . . 10
β’ π΅ = (Baseβπ») |
20 | 1, 19 | rrxbase 24897 |
. . . . . . . . 9
β’ (πΌ β π β π΅ = {β β (β βm πΌ) β£ β finSupp 0}) |
21 | | rebase 21151 |
. . . . . . . . . . 11
β’ β =
(Baseββfld) |
22 | | re0g 21157 |
. . . . . . . . . . 11
β’ 0 =
(0gββfld) |
23 | | eqid 2733 |
. . . . . . . . . . 11
β’ {β β (β
βm πΌ)
β£ β finSupp 0} =
{β β (β
βm πΌ)
β£ β finSupp
0} |
24 | 7, 21, 22, 23 | frlmbas 21302 |
. . . . . . . . . 10
β’
((βfld β Ring β§ πΌ β π) β {β β (β βm πΌ) β£ β finSupp 0} =
(Baseβ(βfld freeLMod πΌ))) |
25 | 6, 24 | mpan 689 |
. . . . . . . . 9
β’ (πΌ β π β {β β (β βm πΌ) β£ β finSupp 0} =
(Baseβ(βfld freeLMod πΌ))) |
26 | 20, 25 | eqtrd 2773 |
. . . . . . . 8
β’ (πΌ β π β π΅ = (Baseβ(βfld
freeLMod πΌ))) |
27 | 26 | sqxpeqd 5708 |
. . . . . . 7
β’ (πΌ β π β (π΅ Γ π΅) = ((Baseβ(βfld
freeLMod πΌ)) Γ
(Baseβ(βfld freeLMod πΌ)))) |
28 | 27, 26 | feq23d 6710 |
. . . . . 6
β’ (πΌ β π β
((-gβ(βfld freeLMod πΌ)):(π΅ Γ π΅)βΆπ΅ β
(-gβ(βfld freeLMod πΌ)):((Baseβ(βfld
freeLMod πΌ)) Γ
(Baseβ(βfld freeLMod πΌ)))βΆ(Baseβ(βfld
freeLMod πΌ)))) |
29 | 18, 28 | mpbird 257 |
. . . . 5
β’ (πΌ β π β
(-gβ(βfld freeLMod πΌ)):(π΅ Γ π΅)βΆπ΅) |
30 | 29 | fovcdmda 7575 |
. . . 4
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β (π(-gβ(βfld
freeLMod πΌ))π) β π΅) |
31 | 29 | ffnd 6716 |
. . . . 5
β’ (πΌ β π β
(-gβ(βfld freeLMod πΌ)) Fn (π΅ Γ π΅)) |
32 | | fnov 7537 |
. . . . 5
β’
((-gβ(βfld freeLMod πΌ)) Fn (π΅ Γ π΅) β
(-gβ(βfld freeLMod πΌ)) = (π β π΅, π β π΅ β¦ (π(-gβ(βfld
freeLMod πΌ))π))) |
33 | 31, 32 | sylib 217 |
. . . 4
β’ (πΌ β π β
(-gβ(βfld freeLMod πΌ)) = (π β π΅, π β π΅ β¦ (π(-gβ(βfld
freeLMod πΌ))π))) |
34 | 1, 19 | rrxnm 24900 |
. . . . 5
β’ (πΌ β π β (β β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ ((ββπ₯)β2))))) = (normβπ»)) |
35 | 2 | fveq2d 6893 |
. . . . 5
β’ (πΌ β π β (normβπ») =
(normβ(toβPreHilβ(βfld freeLMod πΌ)))) |
36 | 34, 35 | eqtr2d 2774 |
. . . 4
β’ (πΌ β π β
(normβ(toβPreHilβ(βfld freeLMod πΌ))) = (β β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ ((ββπ₯)β2)))))) |
37 | | fveq1 6888 |
. . . . . . . 8
β’ (β = (π(-gβ(βfld
freeLMod πΌ))π) β (ββπ₯) = ((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)) |
38 | 37 | oveq1d 7421 |
. . . . . . 7
β’ (β = (π(-gβ(βfld
freeLMod πΌ))π) β ((ββπ₯)β2) = (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2)) |
39 | 38 | mpteq2dv 5250 |
. . . . . 6
β’ (β = (π(-gβ(βfld
freeLMod πΌ))π) β (π₯ β πΌ β¦ ((ββπ₯)β2)) = (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2))) |
40 | 39 | oveq2d 7422 |
. . . . 5
β’ (β = (π(-gβ(βfld
freeLMod πΌ))π) β (βfld
Ξ£g (π₯ β πΌ β¦ ((ββπ₯)β2))) = (βfld
Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2)))) |
41 | 40 | fveq2d 6893 |
. . . 4
β’ (β = (π(-gβ(βfld
freeLMod πΌ))π) β
(ββ(βfld Ξ£g (π₯ β πΌ β¦ ((ββπ₯)β2)))) =
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2))))) |
42 | 30, 33, 36, 41 | fmpoco 8078 |
. . 3
β’ (πΌ β π β
((normβ(toβPreHilβ(βfld freeLMod πΌ))) β
(-gβ(βfld freeLMod πΌ))) = (π β π΅, π β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2)))))) |
43 | | simp1 1137 |
. . . . . . . . . . . . . 14
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β πΌ β π) |
44 | | simprl 770 |
. . . . . . . . . . . . . . . 16
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β π β π΅) |
45 | 26 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β π΅ = (Baseβ(βfld
freeLMod πΌ))) |
46 | 44, 45 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β π β (Baseβ(βfld
freeLMod πΌ))) |
47 | 46 | 3impb 1116 |
. . . . . . . . . . . . . 14
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π β (Baseβ(βfld
freeLMod πΌ))) |
48 | 7, 21, 16 | frlmbasmap 21306 |
. . . . . . . . . . . . . 14
β’ ((πΌ β π β§ π β (Baseβ(βfld
freeLMod πΌ))) β π β (β
βm πΌ)) |
49 | 43, 47, 48 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π β (β βm πΌ)) |
50 | | elmapi 8840 |
. . . . . . . . . . . . 13
β’ (π β (β
βm πΌ)
β π:πΌβΆβ) |
51 | 49, 50 | syl 17 |
. . . . . . . . . . . 12
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π:πΌβΆβ) |
52 | 51 | ffnd 6716 |
. . . . . . . . . . 11
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π Fn πΌ) |
53 | | simprr 772 |
. . . . . . . . . . . . . . . 16
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β π β π΅) |
54 | 53, 45 | eleqtrd 2836 |
. . . . . . . . . . . . . . 15
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β π β (Baseβ(βfld
freeLMod πΌ))) |
55 | 54 | 3impb 1116 |
. . . . . . . . . . . . . 14
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π β (Baseβ(βfld
freeLMod πΌ))) |
56 | 7, 21, 16 | frlmbasmap 21306 |
. . . . . . . . . . . . . 14
β’ ((πΌ β π β§ π β (Baseβ(βfld
freeLMod πΌ))) β π β (β
βm πΌ)) |
57 | 43, 55, 56 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π β (β βm πΌ)) |
58 | | elmapi 8840 |
. . . . . . . . . . . . 13
β’ (π β (β
βm πΌ)
β π:πΌβΆβ) |
59 | 57, 58 | syl 17 |
. . . . . . . . . . . 12
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π:πΌβΆβ) |
60 | 59 | ffnd 6716 |
. . . . . . . . . . 11
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β π Fn πΌ) |
61 | | inidm 4218 |
. . . . . . . . . . 11
β’ (πΌ β© πΌ) = πΌ |
62 | | eqidd 2734 |
. . . . . . . . . . 11
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β (πβπ₯) = (πβπ₯)) |
63 | | eqidd 2734 |
. . . . . . . . . . 11
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β (πβπ₯) = (πβπ₯)) |
64 | 52, 60, 43, 43, 61, 62, 63 | offval 7676 |
. . . . . . . . . 10
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (π βf
(-gββfld)π) = (π₯ β πΌ β¦ ((πβπ₯)(-gββfld)(πβπ₯)))) |
65 | 6 | a1i 11 |
. . . . . . . . . . . 12
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β βfld β
Ring) |
66 | | simpl 484 |
. . . . . . . . . . . 12
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β πΌ β π) |
67 | | eqid 2733 |
. . . . . . . . . . . 12
β’
(-gββfld) =
(-gββfld) |
68 | 7, 16, 65, 66, 46, 54, 67, 13 | frlmsubgval 21312 |
. . . . . . . . . . 11
β’ ((πΌ β π β§ (π β π΅ β§ π β π΅)) β (π(-gβ(βfld
freeLMod πΌ))π) = (π βf
(-gββfld)π)) |
69 | 68 | 3impb 1116 |
. . . . . . . . . 10
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (π(-gβ(βfld
freeLMod πΌ))π) = (π βf
(-gββfld)π)) |
70 | 51 | ffvelcdmda 7084 |
. . . . . . . . . . . 12
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β (πβπ₯) β β) |
71 | 59 | ffvelcdmda 7084 |
. . . . . . . . . . . 12
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β (πβπ₯) β β) |
72 | 67 | resubgval 21154 |
. . . . . . . . . . . 12
β’ (((πβπ₯) β β β§ (πβπ₯) β β) β ((πβπ₯) β (πβπ₯)) = ((πβπ₯)(-gββfld)(πβπ₯))) |
73 | 70, 71, 72 | syl2anc 585 |
. . . . . . . . . . 11
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β ((πβπ₯) β (πβπ₯)) = ((πβπ₯)(-gββfld)(πβπ₯))) |
74 | 73 | mpteq2dva 5248 |
. . . . . . . . . 10
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (π₯ β πΌ β¦ ((πβπ₯) β (πβπ₯))) = (π₯ β πΌ β¦ ((πβπ₯)(-gββfld)(πβπ₯)))) |
75 | 64, 69, 74 | 3eqtr4d 2783 |
. . . . . . . . 9
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (π(-gβ(βfld
freeLMod πΌ))π) = (π₯ β πΌ β¦ ((πβπ₯) β (πβπ₯)))) |
76 | 70, 71 | resubcld 11639 |
. . . . . . . . 9
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β ((πβπ₯) β (πβπ₯)) β β) |
77 | 75, 76 | fvmpt2d 7009 |
. . . . . . . 8
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β ((π(-gβ(βfld
freeLMod πΌ))π)βπ₯) = ((πβπ₯) β (πβπ₯))) |
78 | 77 | oveq1d 7421 |
. . . . . . 7
β’ (((πΌ β π β§ π β π΅ β§ π β π΅) β§ π₯ β πΌ) β (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2) = (((πβπ₯) β (πβπ₯))β2)) |
79 | 78 | mpteq2dva 5248 |
. . . . . 6
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2)) = (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2))) |
80 | 79 | oveq2d 7422 |
. . . . 5
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β (βfld
Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2))) = (βfld
Ξ£g (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2)))) |
81 | 80 | fveq2d 6893 |
. . . 4
β’ ((πΌ β π β§ π β π΅ β§ π β π΅) β
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2)))) =
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2))))) |
82 | 81 | mpoeq3dva 7483 |
. . 3
β’ (πΌ β π β (π β π΅, π β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((π(-gβ(βfld
freeLMod πΌ))π)βπ₯)β2))))) = (π β π΅, π β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2)))))) |
83 | 42, 82 | eqtrd 2773 |
. 2
β’ (πΌ β π β
((normβ(toβPreHilβ(βfld freeLMod πΌ))) β
(-gβ(βfld freeLMod πΌ))) = (π β π΅, π β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2)))))) |
84 | 3, 15, 83 | 3eqtr2rd 2780 |
1
β’ (πΌ β π β (π β π΅, π β π΅ β¦
(ββ(βfld Ξ£g (π₯ β πΌ β¦ (((πβπ₯) β (πβπ₯))β2))))) = (distβπ»)) |