Step | Hyp | Ref
| Expression |
1 | | simpl 484 |
. . . . . . . . 9
β’ ((π β βPreHil β§ i
β πΎ) β π β
βPreHil) |
2 | 1 | 3ad2ant1 1134 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β π β βPreHil) |
3 | | cphngp 24682 |
. . . . . . . . . . 11
β’ (π β βPreHil β
π β
NrmGrp) |
4 | 3 | adantr 482 |
. . . . . . . . . 10
β’ ((π β βPreHil β§ i
β πΎ) β π β NrmGrp) |
5 | | ngpgrp 24100 |
. . . . . . . . . 10
β’ (π β NrmGrp β π β Grp) |
6 | 4, 5 | syl 17 |
. . . . . . . . 9
β’ ((π β βPreHil β§ i
β πΎ) β π β Grp) |
7 | | cphipfval.x |
. . . . . . . . . 10
β’ π = (Baseβπ) |
8 | | cphipfval.p |
. . . . . . . . . 10
β’ + =
(+gβπ) |
9 | 7, 8 | grpcl 18824 |
. . . . . . . . 9
β’ ((π β Grp β§ π΄ β π β§ π΅ β π) β (π΄ + π΅) β π) |
10 | 6, 9 | syl3an1 1164 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ + π΅) β π) |
11 | | cphipfval.i |
. . . . . . . . 9
β’ , =
(Β·πβπ) |
12 | | cphipfval.n |
. . . . . . . . 9
β’ π = (normβπ) |
13 | 7, 11, 12 | nmsq 24703 |
. . . . . . . 8
β’ ((π β βPreHil β§
(π΄ + π΅) β π) β ((πβ(π΄ + π΅))β2) = ((π΄ + π΅) , (π΄ + π΅))) |
14 | 2, 10, 13 | syl2anc 585 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ + π΅))β2) = ((π΄ + π΅) , (π΄ + π΅))) |
15 | | simp2 1138 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β π΄ β π) |
16 | | simp3 1139 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β π΅ β π) |
17 | 11, 7, 8, 2, 15, 16, 15, 16 | cph2di 24716 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ + π΅) , (π΄ + π΅)) = (((π΄ , π΄) + (π΅ , π΅)) + ((π΄ , π΅) + (π΅ , π΄)))) |
18 | 14, 17 | eqtrd 2773 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ + π΅))β2) = (((π΄ , π΄) + (π΅ , π΅)) + ((π΄ , π΅) + (π΅ , π΄)))) |
19 | | cphipval2.m |
. . . . . . . . . 10
β’ β =
(-gβπ) |
20 | 7, 19 | grpsubcl 18900 |
. . . . . . . . 9
β’ ((π β Grp β§ π΄ β π β§ π΅ β π) β (π΄ β π΅) β π) |
21 | 6, 20 | syl3an1 1164 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ β π΅) β π) |
22 | 7, 11, 12 | nmsq 24703 |
. . . . . . . 8
β’ ((π β βPreHil β§
(π΄ β π΅) β π) β ((πβ(π΄ β π΅))β2) = ((π΄ β π΅) , (π΄ β π΅))) |
23 | 2, 21, 22 | syl2anc 585 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ β π΅))β2) = ((π΄ β π΅) , (π΄ β π΅))) |
24 | 11, 7, 19, 2, 15, 16, 15, 16 | cph2subdi 24719 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ β π΅) , (π΄ β π΅)) = (((π΄ , π΄) + (π΅ , π΅)) β ((π΄ , π΅) + (π΅ , π΄)))) |
25 | 23, 24 | eqtrd 2773 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ β π΅))β2) = (((π΄ , π΄) + (π΅ , π΅)) β ((π΄ , π΅) + (π΅ , π΄)))) |
26 | 18, 25 | oveq12d 7424 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((πβ(π΄ + π΅))β2) β ((πβ(π΄ β π΅))β2)) = ((((π΄ , π΄) + (π΅ , π΅)) + ((π΄ , π΅) + (π΅ , π΄))) β (((π΄ , π΄) + (π΅ , π΅)) β ((π΄ , π΅) + (π΅ , π΄))))) |
27 | 7, 11 | reipcl 24706 |
. . . . . . . . . 10
β’ ((π β βPreHil β§
π΄ β π) β (π΄ , π΄) β β) |
28 | 27 | adantlr 714 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π) β (π΄ , π΄) β β) |
29 | 28 | recnd 11239 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π) β (π΄ , π΄) β β) |
30 | 29 | 3adant3 1133 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ , π΄) β β) |
31 | 7, 11 | reipcl 24706 |
. . . . . . . . . 10
β’ ((π β βPreHil β§
π΅ β π) β (π΅ , π΅) β β) |
32 | 31 | adantlr 714 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β (π΅ , π΅) β β) |
33 | 32 | recnd 11239 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β (π΅ , π΅) β β) |
34 | 33 | 3adant2 1132 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΅ , π΅) β β) |
35 | 30, 34 | addcld 11230 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΄) + (π΅ , π΅)) β β) |
36 | 7, 11 | cphipcl 24700 |
. . . . . . . 8
β’ ((π β βPreHil β§
π΄ β π β§ π΅ β π) β (π΄ , π΅) β β) |
37 | 1, 36 | syl3an1 1164 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ , π΅) β β) |
38 | 7, 11 | cphipcl 24700 |
. . . . . . . . 9
β’ ((π β βPreHil β§
π΅ β π β§ π΄ β π) β (π΅ , π΄) β β) |
39 | 1, 38 | syl3an1 1164 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π β§ π΄ β π) β (π΅ , π΄) β β) |
40 | 39 | 3com23 1127 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΅ , π΄) β β) |
41 | 37, 40 | addcld 11230 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΅) + (π΅ , π΄)) β β) |
42 | 35, 41, 41 | pnncand 11607 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΄) + (π΅ , π΅)) + ((π΄ , π΅) + (π΅ , π΄))) β (((π΄ , π΄) + (π΅ , π΅)) β ((π΄ , π΅) + (π΅ , π΄)))) = (((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄)))) |
43 | 26, 42 | eqtrd 2773 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((πβ(π΄ + π΅))β2) β ((πβ(π΄ β π΅))β2)) = (((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄)))) |
44 | 6 | 3ad2ant1 1134 |
. . . . . . . . . 10
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β π β Grp) |
45 | | cphlmod 24683 |
. . . . . . . . . . . . . 14
β’ (π β βPreHil β
π β
LMod) |
46 | 45 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β βPreHil β§ i
β πΎ) β π β LMod) |
47 | 46 | adantr 482 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β π β LMod) |
48 | | simplr 768 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β i β πΎ) |
49 | | simpr 486 |
. . . . . . . . . . . 12
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β π΅ β π) |
50 | | cphipval2.f |
. . . . . . . . . . . . 13
β’ πΉ = (Scalarβπ) |
51 | | cphipfval.s |
. . . . . . . . . . . . 13
β’ Β· = (
Β·π βπ) |
52 | | cphipval2.k |
. . . . . . . . . . . . 13
β’ πΎ = (BaseβπΉ) |
53 | 7, 50, 51, 52 | lmodvscl 20482 |
. . . . . . . . . . . 12
β’ ((π β LMod β§ i β
πΎ β§ π΅ β π) β (i Β· π΅) β π) |
54 | 47, 48, 49, 53 | syl3anc 1372 |
. . . . . . . . . . 11
β’ (((π β βPreHil β§ i
β πΎ) β§ π΅ β π) β (i Β· π΅) β π) |
55 | 54 | 3adant2 1132 |
. . . . . . . . . 10
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· π΅) β π) |
56 | 7, 8 | grpcl 18824 |
. . . . . . . . . 10
β’ ((π β Grp β§ π΄ β π β§ (i Β· π΅) β π) β (π΄ + (i Β· π΅)) β π) |
57 | 44, 15, 55, 56 | syl3anc 1372 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ + (i Β· π΅)) β π) |
58 | 7, 11, 12 | nmsq 24703 |
. . . . . . . . 9
β’ ((π β βPreHil β§
(π΄ + (i Β· π΅)) β π) β ((πβ(π΄ + (i Β· π΅)))β2) = ((π΄ + (i Β· π΅)) , (π΄ + (i Β· π΅)))) |
59 | 2, 57, 58 | syl2anc 585 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ + (i Β· π΅)))β2) = ((π΄ + (i Β· π΅)) , (π΄ + (i Β· π΅)))) |
60 | 11, 7, 8, 2, 15, 55, 15, 55 | cph2di 24716 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ + (i Β· π΅)) , (π΄ + (i Β· π΅))) = (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) |
61 | 59, 60 | eqtrd 2773 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ + (i Β· π΅)))β2) = (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) |
62 | 7, 19 | grpsubcl 18900 |
. . . . . . . . . 10
β’ ((π β Grp β§ π΄ β π β§ (i Β· π΅) β π) β (π΄ β (i Β· π΅)) β π) |
63 | 44, 15, 55, 62 | syl3anc 1372 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ β (i Β· π΅)) β π) |
64 | 7, 11, 12 | nmsq 24703 |
. . . . . . . . 9
β’ ((π β βPreHil β§
(π΄ β (i Β· π΅)) β π) β ((πβ(π΄ β (i Β· π΅)))β2) = ((π΄ β (i Β· π΅)) , (π΄ β (i Β· π΅)))) |
65 | 2, 63, 64 | syl2anc 585 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ β (i Β· π΅)))β2) = ((π΄ β (i Β· π΅)) , (π΄ β (i Β· π΅)))) |
66 | 11, 7, 19, 2, 15, 55, 15, 55 | cph2subdi 24719 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ β (i Β· π΅)) , (π΄ β (i Β· π΅))) = (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) |
67 | 65, 66 | eqtrd 2773 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((πβ(π΄ β (i Β· π΅)))β2) = (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) |
68 | 61, 67 | oveq12d 7424 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2)) = ((((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))) β (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))))) |
69 | 68 | oveq2d 7422 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2))) = (i Β·
((((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))) β (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))))) |
70 | 7, 11 | cphipcl 24700 |
. . . . . . . . 9
β’ ((π β βPreHil β§ (i
Β·
π΅) β π β§ (i Β· π΅) β π) β ((i Β· π΅) , (i Β· π΅)) β β) |
71 | 2, 55, 55, 70 | syl3anc 1372 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· π΅) , (i Β· π΅)) β β) |
72 | 30, 71 | addcld 11230 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β β) |
73 | 7, 11 | cphipcl 24700 |
. . . . . . . . 9
β’ ((π β βPreHil β§
π΄ β π β§ (i Β· π΅) β π) β (π΄ , (i Β· π΅)) β β) |
74 | 2, 15, 55, 73 | syl3anc 1372 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ , (i Β· π΅)) β β) |
75 | 7, 11 | cphipcl 24700 |
. . . . . . . . 9
β’ ((π β βPreHil β§ (i
Β·
π΅) β π β§ π΄ β π) β ((i Β· π΅) , π΄) β β) |
76 | 2, 55, 15, 75 | syl3anc 1372 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· π΅) , π΄) β β) |
77 | 74, 76 | addcld 11230 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) β β) |
78 | 72, 77, 77 | pnncand 11607 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))) β (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) = (((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) |
79 | 78 | oveq2d 7422 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· ((((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))) β (((π΄ , π΄) + ((i Β· π΅) , (i Β· π΅))) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))))) = (i Β· (((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))))) |
80 | 7, 51, 11, 50, 52 | cphassir 24724 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ , (i Β· π΅)) = (-i Β· (π΄ , π΅))) |
81 | 7, 51, 11, 50, 52 | cphassi 24723 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· π΅) , π΄) = (i Β· (π΅ , π΄))) |
82 | 80, 81 | oveq12d 7424 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) = ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) |
83 | 82, 82 | oveq12d 7424 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄))) = (((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))) + ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))))) |
84 | 83 | oveq2d 7422 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) = (i Β· (((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))) + ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))))) |
85 | | ax-icn 11166 |
. . . . . . . 8
β’ i β
β |
86 | 85 | a1i 11 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β i β β) |
87 | | negicn 11458 |
. . . . . . . . . 10
β’ -i β
β |
88 | 87 | a1i 11 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β -i β β) |
89 | 88, 37 | mulcld 11231 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (-i Β· (π΄ , π΅)) β β) |
90 | 86, 40 | mulcld 11231 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (π΅ , π΄)) β β) |
91 | 89, 90 | addcld 11230 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))) β β) |
92 | 86, 91, 91 | adddid 11235 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))) + ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))))) = ((i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) + (i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))))) |
93 | 86, 89, 90 | adddid 11235 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) = ((i Β· (-i Β· (π΄ , π΅))) + (i Β· (i Β· (π΅ , π΄))))) |
94 | 86, 88, 37 | mulassd 11234 |
. . . . . . . . . . 11
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· -i) Β· (π΄ , π΅)) = (i Β· (-i Β· (π΄ , π΅)))) |
95 | 85, 85 | mulneg2i 11658 |
. . . . . . . . . . . . 13
β’ (i
Β· -i) = -(i Β· i) |
96 | | ixi 11840 |
. . . . . . . . . . . . . 14
β’ (i
Β· i) = -1 |
97 | 96 | negeqi 11450 |
. . . . . . . . . . . . 13
β’ -(i
Β· i) = --1 |
98 | | negneg1e1 12327 |
. . . . . . . . . . . . 13
β’ --1 =
1 |
99 | 95, 97, 98 | 3eqtri 2765 |
. . . . . . . . . . . 12
β’ (i
Β· -i) = 1 |
100 | 99 | oveq1i 7416 |
. . . . . . . . . . 11
β’ ((i
Β· -i) Β· (π΄
, π΅)) = (1 Β· (π΄ , π΅)) |
101 | 94, 100 | eqtr3di 2788 |
. . . . . . . . . 10
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (-i Β· (π΄ , π΅))) = (1 Β· (π΄ , π΅))) |
102 | 86, 86, 40 | mulassd 11234 |
. . . . . . . . . . 11
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· i) Β· (π΅ , π΄)) = (i Β· (i Β· (π΅ , π΄)))) |
103 | 96 | oveq1i 7416 |
. . . . . . . . . . 11
β’ ((i
Β· i) Β· (π΅
, π΄)) = (-1 Β· (π΅ , π΄)) |
104 | 102, 103 | eqtr3di 2788 |
. . . . . . . . . 10
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (i Β· (π΅ , π΄))) = (-1 Β· (π΅ , π΄))) |
105 | 101, 104 | oveq12d 7424 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· (-i Β· (π΄ , π΅))) + (i Β· (i Β· (π΅ , π΄)))) = ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄)))) |
106 | 93, 105 | eqtrd 2773 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) = ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄)))) |
107 | 106, 106 | oveq12d 7424 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) + (i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))))) = (((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄))) + ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄))))) |
108 | 37 | mullidd 11229 |
. . . . . . . . . 10
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (1 Β· (π΄ , π΅)) = (π΄ , π΅)) |
109 | 108 | oveq1d 7421 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄))) = ((π΄ , π΅) + (-1 Β· (π΅ , π΄)))) |
110 | | addneg1mul 11653 |
. . . . . . . . . 10
β’ (((π΄ , π΅) β β β§ (π΅ , π΄) β β) β ((π΄ , π΅) + (-1 Β· (π΅ , π΄))) = ((π΄ , π΅) β (π΅ , π΄))) |
111 | 37, 40, 110 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΅) + (-1 Β· (π΅ , π΄))) = ((π΄ , π΅) β (π΅ , π΄))) |
112 | 109, 111 | eqtrd 2773 |
. . . . . . . 8
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄))) = ((π΄ , π΅) β (π΅ , π΄))) |
113 | 112, 112 | oveq12d 7424 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄))) + ((1 Β· (π΄ , π΅)) + (-1 Β· (π΅ , π΄)))) = (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) |
114 | 107, 113 | eqtrd 2773 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄)))) + (i Β· ((-i Β· (π΄ , π΅)) + (i Β· (π΅ , π΄))))) = (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) |
115 | 84, 92, 114 | 3eqtrd 2777 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)) + ((π΄ , (i Β· π΅)) + ((i Β· π΅) , π΄)))) = (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) |
116 | 69, 79, 115 | 3eqtrd 2777 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (i Β· (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2))) = (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) |
117 | 43, 116 | oveq12d 7424 |
. . 3
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((πβ(π΄ + π΅))β2) β ((πβ(π΄ β π΅))β2)) + (i Β· (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2)))) = ((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄))) + (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄))))) |
118 | 117 | oveq1d 7421 |
. 2
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((((πβ(π΄ + π΅))β2) β ((πβ(π΄ β π΅))β2)) + (i Β· (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2)))) / 4) = (((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄))) + (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) / 4)) |
119 | 37, 40 | subcld 11568 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΅) β (π΅ , π΄)) β β) |
120 | 41, 41, 119, 119 | add4d 11439 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄))) + (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) = ((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄))) + (((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄))))) |
121 | 37, 40, 37 | ppncand 11608 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄))) = ((π΄ , π΅) + (π΄ , π΅))) |
122 | 121, 121 | oveq12d 7424 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄))) + (((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) = (((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅)))) |
123 | 120, 122 | eqtrd 2773 |
. . 3
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄))) + (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) = (((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅)))) |
124 | 123 | oveq1d 7421 |
. 2
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((((π΄ , π΅) + (π΅ , π΄)) + ((π΄ , π΅) + (π΅ , π΄))) + (((π΄ , π΅) β (π΅ , π΄)) + ((π΄ , π΅) β (π΅ , π΄)))) / 4) = ((((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅))) / 4)) |
125 | 37 | 2timesd 12452 |
. . . . . . 7
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (2 Β· (π΄ , π΅)) = ((π΄ , π΅) + (π΄ , π΅))) |
126 | 125 | eqcomd 2739 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((π΄ , π΅) + (π΄ , π΅)) = (2 Β· (π΄ , π΅))) |
127 | 126, 126 | oveq12d 7424 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅))) = ((2 Β· (π΄ , π΅)) + (2 Β· (π΄ , π΅)))) |
128 | | 2cnd 12287 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β 2 β β) |
129 | 128, 128,
37 | adddird 11236 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((2 + 2) Β· (π΄ , π΅)) = ((2 Β· (π΄ , π΅)) + (2 Β· (π΄ , π΅)))) |
130 | | 2p2e4 12344 |
. . . . . . 7
β’ (2 + 2) =
4 |
131 | 130 | a1i 11 |
. . . . . 6
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (2 + 2) = 4) |
132 | 131 | oveq1d 7421 |
. . . . 5
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((2 + 2) Β· (π΄ , π΅)) = (4 Β· (π΄ , π΅))) |
133 | 127, 129,
132 | 3eqtr2d 2779 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅))) = (4 Β· (π΄ , π΅))) |
134 | 133 | oveq1d 7421 |
. . 3
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅))) / 4) = ((4 Β· (π΄ , π΅)) / 4)) |
135 | | 4cn 12294 |
. . . . 5
β’ 4 β
β |
136 | 135 | a1i 11 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β 4 β β) |
137 | | 4ne0 12317 |
. . . . 5
β’ 4 β
0 |
138 | 137 | a1i 11 |
. . . 4
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β 4 β 0) |
139 | 37, 136, 138 | divcan3d 11992 |
. . 3
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((4 Β· (π΄ , π΅)) / 4) = (π΄ , π΅)) |
140 | 134, 139 | eqtrd 2773 |
. 2
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β ((((π΄ , π΅) + (π΄ , π΅)) + ((π΄ , π΅) + (π΄ , π΅))) / 4) = (π΄ , π΅)) |
141 | 118, 124,
140 | 3eqtrrd 2778 |
1
β’ (((π β βPreHil β§ i
β πΎ) β§ π΄ β π β§ π΅ β π) β (π΄ , π΅) = (((((πβ(π΄ + π΅))β2) β ((πβ(π΄ β π΅))β2)) + (i Β· (((πβ(π΄ + (i Β· π΅)))β2) β ((πβ(π΄ β (i Β· π΅)))β2)))) /
4)) |