Step |
Hyp |
Ref |
Expression |
1 |
|
cphipfval.x |
β’ π = ( Base β π ) |
2 |
|
cphipfval.p |
β’ + = ( +g β π ) |
3 |
|
cphipfval.s |
β’ Β· = ( Β·π β π ) |
4 |
|
cphipfval.n |
β’ π = ( norm β π ) |
5 |
|
cphipfval.i |
β’ , = ( Β·π β π ) |
6 |
|
cphipval2.m |
β’ β = ( -g β π ) |
7 |
|
cphipval2.f |
β’ πΉ = ( Scalar β π ) |
8 |
|
cphipval2.k |
β’ πΎ = ( Base β πΉ ) |
9 |
1 2 3 4 5 6 7 8
|
cphipval2 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π΄ , π΅ ) = ( ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) / 4 ) ) |
10 |
9
|
oveq2d |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( 4 Β· ( π΄ , π΅ ) ) = ( 4 Β· ( ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) / 4 ) ) ) |
11 |
7 8
|
cphsubrg |
β’ ( π β βPreHil β πΎ β ( SubRing β βfld ) ) |
12 |
|
cnfldbas |
β’ β = ( Base β βfld ) |
13 |
12
|
subrgss |
β’ ( πΎ β ( SubRing β βfld ) β πΎ β β ) |
14 |
11 13
|
syl |
β’ ( π β βPreHil β πΎ β β ) |
15 |
14
|
adantr |
β’ ( ( π β βPreHil β§ i β πΎ ) β πΎ β β ) |
16 |
15
|
3ad2ant1 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β πΎ β β ) |
17 |
|
simp1l |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β π β βPreHil ) |
18 |
|
cphngp |
β’ ( π β βPreHil β π β NrmGrp ) |
19 |
|
ngpgrp |
β’ ( π β NrmGrp β π β Grp ) |
20 |
18 19
|
syl |
β’ ( π β βPreHil β π β Grp ) |
21 |
20
|
adantr |
β’ ( ( π β βPreHil β§ i β πΎ ) β π β Grp ) |
22 |
1 2
|
grpcl |
β’ ( ( π β Grp β§ π΄ β π β§ π΅ β π ) β ( π΄ + π΅ ) β π ) |
23 |
21 22
|
syl3an1 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π΄ + π΅ ) β π ) |
24 |
1 5 4 7 8
|
cphnmcl |
β’ ( ( π β βPreHil β§ ( π΄ + π΅ ) β π ) β ( π β ( π΄ + π΅ ) ) β πΎ ) |
25 |
17 23 24
|
syl2anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ + π΅ ) ) β πΎ ) |
26 |
16 25
|
sseldd |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ + π΅ ) ) β β ) |
27 |
26
|
sqcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( π β ( π΄ + π΅ ) ) β 2 ) β β ) |
28 |
1 6
|
grpsubcl |
β’ ( ( π β Grp β§ π΄ β π β§ π΅ β π ) β ( π΄ β π΅ ) β π ) |
29 |
21 28
|
syl3an1 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π΄ β π΅ ) β π ) |
30 |
1 5 4 7 8
|
cphnmcl |
β’ ( ( π β βPreHil β§ ( π΄ β π΅ ) β π ) β ( π β ( π΄ β π΅ ) ) β πΎ ) |
31 |
17 29 30
|
syl2anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ β π΅ ) ) β πΎ ) |
32 |
16 31
|
sseldd |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ β π΅ ) ) β β ) |
33 |
32
|
sqcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) β β ) |
34 |
27 33
|
subcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) β β ) |
35 |
|
ax-icn |
β’ i β β |
36 |
35
|
a1i |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β i β β ) |
37 |
17 20
|
syl |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β π β Grp ) |
38 |
|
simp2 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β π΄ β π ) |
39 |
|
cphlmod |
β’ ( π β βPreHil β π β LMod ) |
40 |
39
|
adantr |
β’ ( ( π β βPreHil β§ i β πΎ ) β π β LMod ) |
41 |
40
|
3ad2ant1 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β π β LMod ) |
42 |
|
simp1r |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β i β πΎ ) |
43 |
|
simp3 |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β π΅ β π ) |
44 |
1 7 3 8
|
lmodvscl |
β’ ( ( π β LMod β§ i β πΎ β§ π΅ β π ) β ( i Β· π΅ ) β π ) |
45 |
41 42 43 44
|
syl3anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( i Β· π΅ ) β π ) |
46 |
1 2
|
grpcl |
β’ ( ( π β Grp β§ π΄ β π β§ ( i Β· π΅ ) β π ) β ( π΄ + ( i Β· π΅ ) ) β π ) |
47 |
37 38 45 46
|
syl3anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π΄ + ( i Β· π΅ ) ) β π ) |
48 |
1 5 4 7 8
|
cphnmcl |
β’ ( ( π β βPreHil β§ ( π΄ + ( i Β· π΅ ) ) β π ) β ( π β ( π΄ + ( i Β· π΅ ) ) ) β πΎ ) |
49 |
17 47 48
|
syl2anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ + ( i Β· π΅ ) ) ) β πΎ ) |
50 |
16 49
|
sseldd |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ + ( i Β· π΅ ) ) ) β β ) |
51 |
50
|
sqcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β β ) |
52 |
1 6
|
grpsubcl |
β’ ( ( π β Grp β§ π΄ β π β§ ( i Β· π΅ ) β π ) β ( π΄ β ( i Β· π΅ ) ) β π ) |
53 |
37 38 45 52
|
syl3anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π΄ β ( i Β· π΅ ) ) β π ) |
54 |
1 5 4 7 8
|
cphnmcl |
β’ ( ( π β βPreHil β§ ( π΄ β ( i Β· π΅ ) ) β π ) β ( π β ( π΄ β ( i Β· π΅ ) ) ) β πΎ ) |
55 |
17 53 54
|
syl2anc |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ β ( i Β· π΅ ) ) ) β πΎ ) |
56 |
16 55
|
sseldd |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( π β ( π΄ β ( i Β· π΅ ) ) ) β β ) |
57 |
56
|
sqcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) β β ) |
58 |
51 57
|
subcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) β β ) |
59 |
36 58
|
mulcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) β β ) |
60 |
34 59
|
addcld |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) β β ) |
61 |
|
4cn |
β’ 4 β β |
62 |
61
|
a1i |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β 4 β β ) |
63 |
|
4ne0 |
β’ 4 β 0 |
64 |
63
|
a1i |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β 4 β 0 ) |
65 |
60 62 64
|
divcan2d |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( 4 Β· ( ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) / 4 ) ) = ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) ) |
66 |
10 65
|
eqtrd |
β’ ( ( ( π β βPreHil β§ i β πΎ ) β§ π΄ β π β§ π΅ β π ) β ( 4 Β· ( π΄ , π΅ ) ) = ( ( ( ( π β ( π΄ + π΅ ) ) β 2 ) β ( ( π β ( π΄ β π΅ ) ) β 2 ) ) + ( i Β· ( ( ( π β ( π΄ + ( i Β· π΅ ) ) ) β 2 ) β ( ( π β ( π΄ β ( i Β· π΅ ) ) ) β 2 ) ) ) ) ) |