Step | Hyp | Ref
| Expression |
1 | | simp1 1134 |
. . 3
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β πΉ β (π NGHom π)) |
2 | | nghmrcl1 24471 |
. . . . 5
β’ (πΉ β (π NGHom π) β π β NrmGrp) |
3 | | ngpgrp 24330 |
. . . . 5
β’ (π β NrmGrp β π β Grp) |
4 | 2, 3 | syl 17 |
. . . 4
β’ (πΉ β (π NGHom π) β π β Grp) |
5 | | nmods.v |
. . . . 5
β’ π = (Baseβπ) |
6 | | eqid 2730 |
. . . . 5
β’
(-gβπ) = (-gβπ) |
7 | 5, 6 | grpsubcl 18941 |
. . . 4
β’ ((π β Grp β§ π΄ β π β§ π΅ β π) β (π΄(-gβπ)π΅) β π) |
8 | 4, 7 | syl3an1 1161 |
. . 3
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β (π΄(-gβπ)π΅) β π) |
9 | | nmods.n |
. . . 4
β’ π = (π normOp π) |
10 | | eqid 2730 |
. . . 4
β’
(normβπ) =
(normβπ) |
11 | | eqid 2730 |
. . . 4
β’
(normβπ) =
(normβπ) |
12 | 9, 5, 10, 11 | nmoi 24467 |
. . 3
β’ ((πΉ β (π NGHom π) β§ (π΄(-gβπ)π΅) β π) β ((normβπ)β(πΉβ(π΄(-gβπ)π΅))) β€ ((πβπΉ) Β· ((normβπ)β(π΄(-gβπ)π΅)))) |
13 | 1, 8, 12 | syl2anc 582 |
. 2
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((normβπ)β(πΉβ(π΄(-gβπ)π΅))) β€ ((πβπΉ) Β· ((normβπ)β(π΄(-gβπ)π΅)))) |
14 | | nghmrcl2 24472 |
. . . . 5
β’ (πΉ β (π NGHom π) β π β NrmGrp) |
15 | 14 | 3ad2ant1 1131 |
. . . 4
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β π β NrmGrp) |
16 | | nghmghm 24473 |
. . . . . . 7
β’ (πΉ β (π NGHom π) β πΉ β (π GrpHom π)) |
17 | 16 | 3ad2ant1 1131 |
. . . . . 6
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β πΉ β (π GrpHom π)) |
18 | | eqid 2730 |
. . . . . . 7
β’
(Baseβπ) =
(Baseβπ) |
19 | 5, 18 | ghmf 19136 |
. . . . . 6
β’ (πΉ β (π GrpHom π) β πΉ:πβΆ(Baseβπ)) |
20 | 17, 19 | syl 17 |
. . . . 5
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β πΉ:πβΆ(Baseβπ)) |
21 | | simp2 1135 |
. . . . 5
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β π΄ β π) |
22 | 20, 21 | ffvelcdmd 7088 |
. . . 4
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β (πΉβπ΄) β (Baseβπ)) |
23 | | simp3 1136 |
. . . . 5
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β π΅ β π) |
24 | 20, 23 | ffvelcdmd 7088 |
. . . 4
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β (πΉβπ΅) β (Baseβπ)) |
25 | | eqid 2730 |
. . . . 5
β’
(-gβπ) = (-gβπ) |
26 | | nmods.d |
. . . . 5
β’ π· = (distβπ) |
27 | 11, 18, 25, 26 | ngpds 24335 |
. . . 4
β’ ((π β NrmGrp β§ (πΉβπ΄) β (Baseβπ) β§ (πΉβπ΅) β (Baseβπ)) β ((πΉβπ΄)π·(πΉβπ΅)) = ((normβπ)β((πΉβπ΄)(-gβπ)(πΉβπ΅)))) |
28 | 15, 22, 24, 27 | syl3anc 1369 |
. . 3
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((πΉβπ΄)π·(πΉβπ΅)) = ((normβπ)β((πΉβπ΄)(-gβπ)(πΉβπ΅)))) |
29 | 5, 6, 25 | ghmsub 19140 |
. . . . 5
β’ ((πΉ β (π GrpHom π) β§ π΄ β π β§ π΅ β π) β (πΉβ(π΄(-gβπ)π΅)) = ((πΉβπ΄)(-gβπ)(πΉβπ΅))) |
30 | 16, 29 | syl3an1 1161 |
. . . 4
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β (πΉβ(π΄(-gβπ)π΅)) = ((πΉβπ΄)(-gβπ)(πΉβπ΅))) |
31 | 30 | fveq2d 6896 |
. . 3
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((normβπ)β(πΉβ(π΄(-gβπ)π΅))) = ((normβπ)β((πΉβπ΄)(-gβπ)(πΉβπ΅)))) |
32 | 28, 31 | eqtr4d 2773 |
. 2
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((πΉβπ΄)π·(πΉβπ΅)) = ((normβπ)β(πΉβ(π΄(-gβπ)π΅)))) |
33 | | nmods.c |
. . . . 5
β’ πΆ = (distβπ) |
34 | 10, 5, 6, 33 | ngpds 24335 |
. . . 4
β’ ((π β NrmGrp β§ π΄ β π β§ π΅ β π) β (π΄πΆπ΅) = ((normβπ)β(π΄(-gβπ)π΅))) |
35 | 2, 34 | syl3an1 1161 |
. . 3
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β (π΄πΆπ΅) = ((normβπ)β(π΄(-gβπ)π΅))) |
36 | 35 | oveq2d 7429 |
. 2
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((πβπΉ) Β· (π΄πΆπ΅)) = ((πβπΉ) Β· ((normβπ)β(π΄(-gβπ)π΅)))) |
37 | 13, 32, 36 | 3brtr4d 5181 |
1
β’ ((πΉ β (π NGHom π) β§ π΄ β π β§ π΅ β π) β ((πΉβπ΄)π·(πΉβπ΅)) β€ ((πβπΉ) Β· (π΄πΆπ΅))) |