Metamath Proof Explorer


Theorem lnophmlem2

Description: Lemma for lnophmi . (Contributed by NM, 24-Jan-2006) (New usage is discouraged.)

Ref Expression
Hypotheses lnophmlem.1 ⊢ A ∈ ℋ
lnophmlem.2 ⊢ B ∈ ℋ
lnophmlem.3 ⊢ T ∈ LinOp
lnophmlem.4 ⊢ ∀ x ∈ ℋ x ⋅ ih T ⁡ x ∈ ℝ
Assertion lnophmlem2 ⊢ A ⋅ ih T ⁡ B = T ⁡ A ⋅ ih B

Proof

Step Hyp Ref Expression
1 lnophmlem.1 ⊢ A ∈ ℋ
2 lnophmlem.2 ⊢ B ∈ ℋ
3 lnophmlem.3 ⊢ T ∈ LinOp
4 lnophmlem.4 ⊢ ∀ x ∈ ℋ x ⋅ ih T ⁡ x ∈ ℝ
5 3 lnopfi ⊢ T : ℋ ⟶ ℋ
6 5 ffvelcdmi ⊢ A ∈ ℋ → T ⁡ A ∈ ℋ
7 1 6 ax-mp ⊢ T ⁡ A ∈ ℋ
8 5 ffvelcdmi ⊢ B ∈ ℋ → T ⁡ B ∈ ℋ
9 2 8 ax-mp ⊢ T ⁡ B ∈ ℋ
10 2 7 1 9 polid2i ⊢ B ⋅ ih T ⁡ A = B + ℎ A ⋅ ih T ⁡ B + ℎ T ⁡ A - B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A + i ⁢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A − B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A 4
11 2 1 hvcomi ⊢ B + ℎ A = A + ℎ B
12 9 7 hvcomi ⊢ T ⁡ B + ℎ T ⁡ A = T ⁡ A + ℎ T ⁡ B
13 3 lnopaddi ⊢ A ∈ ℋ ∧ B ∈ ℋ → T ⁡ A + ℎ B = T ⁡ A + ℎ T ⁡ B
14 1 2 13 mp2an ⊢ T ⁡ A + ℎ B = T ⁡ A + ℎ T ⁡ B
15 12 14 eqtr4i ⊢ T ⁡ B + ℎ T ⁡ A = T ⁡ A + ℎ B
16 11 15 oveq12i ⊢ B + ℎ A ⋅ ih T ⁡ B + ℎ T ⁡ A = A + ℎ B ⋅ ih T ⁡ A + ℎ B
17 2 1 9 7 hisubcomi ⊢ B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A = A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B
18 3 lnopsubi ⊢ A ∈ ℋ ∧ B ∈ ℋ → T ⁡ A - ℎ B = T ⁡ A - ℎ T ⁡ B
19 1 2 18 mp2an ⊢ T ⁡ A - ℎ B = T ⁡ A - ℎ T ⁡ B
20 19 oveq2i ⊢ A - ℎ B ⋅ ih T ⁡ A - ℎ B = A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B
21 17 20 eqtr4i ⊢ B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A = A - ℎ B ⋅ ih T ⁡ A - ℎ B
22 16 21 oveq12i ⊢ B + ℎ A ⋅ ih T ⁡ B + ℎ T ⁡ A − B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A = A + ℎ B ⋅ ih T ⁡ A + ℎ B − A - ℎ B ⋅ ih T ⁡ A - ℎ B
23 ax-icn ⊢ i ∈ ℂ
24 23 2 hvmulcli ⊢ i ⋅ ℎ B ∈ ℋ
25 1 24 hvsubcli ⊢ A - ℎ i ⋅ ℎ B ∈ ℋ
26 5 ffvelcdmi ⊢ A - ℎ i ⋅ ℎ B ∈ ℋ → T ⁡ A - ℎ i ⋅ ℎ B ∈ ℋ
27 25 26 ax-mp ⊢ T ⁡ A - ℎ i ⋅ ℎ B ∈ ℋ
28 23 23 25 27 his35i ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ B ⋅ ih i ⋅ ℎ T ⁡ A - ℎ i ⋅ ℎ B = i ⁢ i ‾ ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
29 23 1 24 hvsubdistr1i ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ B = i ⋅ ℎ A - ℎ i ⋅ ℎ i ⋅ ℎ B
30 23 1 hvmulcli ⊢ i ⋅ ℎ A ∈ ℋ
31 23 24 hvmulcli ⊢ i ⋅ ℎ i ⋅ ℎ B ∈ ℋ
32 30 31 hvsubvali ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ i ⋅ ℎ B = i ⋅ ℎ A + ℎ -1 ⋅ ℎ i ⋅ ℎ i ⋅ ℎ B
33 23 23 2 hvmulassi ⊢ i ⁢ i ⋅ ℎ B = i ⋅ ℎ i ⋅ ℎ B
34 33 oveq2i ⊢ -1 ⋅ ℎ i ⁢ i ⋅ ℎ B = -1 ⋅ ℎ i ⋅ ℎ i ⋅ ℎ B
35 ixi ⊢ i ⁢ i = − 1
36 35 oveq2i ⊢ -1 ⁢ i ⁢ i = -1 ⁢ -1
37 ax-1cn ⊢ 1 ∈ ℂ
38 37 37 mul2negi ⊢ -1 ⁢ -1 = 1 ⋅ 1
39 1t1e1 ⊢ 1 ⋅ 1 = 1
40 36 38 39 3eqtri ⊢ -1 ⁢ i ⁢ i = 1
41 40 oveq1i ⊢ -1 ⁢ i ⁢ i ⋅ ℎ B = 1 ⋅ ℎ B
42 neg1cn ⊢ − 1 ∈ ℂ
43 23 23 mulcli ⊢ i ⁢ i ∈ ℂ
44 42 43 2 hvmulassi ⊢ -1 ⁢ i ⁢ i ⋅ ℎ B = -1 ⋅ ℎ i ⁢ i ⋅ ℎ B
45 ax-hvmulid ⊢ B ∈ ℋ → 1 ⋅ ℎ B = B
46 2 45 ax-mp ⊢ 1 ⋅ ℎ B = B
47 41 44 46 3eqtr3i ⊢ -1 ⋅ ℎ i ⁢ i ⋅ ℎ B = B
48 34 47 eqtr3i ⊢ -1 ⋅ ℎ i ⋅ ℎ i ⋅ ℎ B = B
49 48 oveq2i ⊢ i ⋅ ℎ A + ℎ -1 ⋅ ℎ i ⋅ ℎ i ⋅ ℎ B = i ⋅ ℎ A + ℎ B
50 32 49 eqtri ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ i ⋅ ℎ B = i ⋅ ℎ A + ℎ B
51 30 2 hvcomi ⊢ i ⋅ ℎ A + ℎ B = B + ℎ i ⋅ ℎ A
52 29 50 51 3eqtri ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ B = B + ℎ i ⋅ ℎ A
53 52 fveq2i ⊢ T ⁡ i ⋅ ℎ A - ℎ i ⋅ ℎ B = T ⁡ B + ℎ i ⋅ ℎ A
54 3 lnopmuli ⊢ i ∈ ℂ ∧ A - ℎ i ⋅ ℎ B ∈ ℋ → T ⁡ i ⋅ ℎ A - ℎ i ⋅ ℎ B = i ⋅ ℎ T ⁡ A - ℎ i ⋅ ℎ B
55 23 25 54 mp2an ⊢ T ⁡ i ⋅ ℎ A - ℎ i ⋅ ℎ B = i ⋅ ℎ T ⁡ A - ℎ i ⋅ ℎ B
56 3 lnopaddmuli ⊢ i ∈ ℂ ∧ B ∈ ℋ ∧ A ∈ ℋ → T ⁡ B + ℎ i ⋅ ℎ A = T ⁡ B + ℎ i ⋅ ℎ T ⁡ A
57 23 2 1 56 mp3an ⊢ T ⁡ B + ℎ i ⋅ ℎ A = T ⁡ B + ℎ i ⋅ ℎ T ⁡ A
58 53 55 57 3eqtr3i ⊢ i ⋅ ℎ T ⁡ A - ℎ i ⋅ ℎ B = T ⁡ B + ℎ i ⋅ ℎ T ⁡ A
59 52 58 oveq12i ⊢ i ⋅ ℎ A - ℎ i ⋅ ℎ B ⋅ ih i ⋅ ℎ T ⁡ A - ℎ i ⋅ ℎ B = B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A
60 cji ⊢ i ‾ = − i
61 60 oveq2i ⊢ i ⁢ i ‾ = i ⁢ − i
62 23 23 mulneg2i ⊢ i ⁢ − i = − i ⁢ i
63 35 negeqi ⊢ − i ⁢ i = − -1
64 negneg1e1 ⊢ − -1 = 1
65 63 64 eqtri ⊢ − i ⁢ i = 1
66 61 62 65 3eqtri ⊢ i ⁢ i ‾ = 1
67 66 oveq1i ⊢ i ⁢ i ‾ ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = 1 ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
68 25 1 3 4 lnophmlem1 ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B ∈ ℝ
69 68 recni ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B ∈ ℂ
70 69 mullidi ⊢ 1 ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
71 67 70 eqtri ⊢ i ⁢ i ‾ ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
72 28 59 71 3eqtr3i ⊢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A = A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
73 23 7 hvmulcli ⊢ i ⋅ ℎ T ⁡ A ∈ ℋ
74 2 30 9 73 hisubcomi ⊢ B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = i ⋅ ℎ A - ℎ B ⋅ ih i ⋅ ℎ T ⁡ A - ℎ T ⁡ B
75 35 oveq1i ⊢ i ⁢ i ⋅ ℎ B = -1 ⋅ ℎ B
76 33 75 eqtr3i ⊢ i ⋅ ℎ i ⋅ ℎ B = -1 ⋅ ℎ B
77 76 oveq2i ⊢ i ⋅ ℎ A + ℎ i ⋅ ℎ i ⋅ ℎ B = i ⋅ ℎ A + ℎ -1 ⋅ ℎ B
78 23 1 24 hvdistr1i ⊢ i ⋅ ℎ A + ℎ i ⋅ ℎ B = i ⋅ ℎ A + ℎ i ⋅ ℎ i ⋅ ℎ B
79 30 2 hvsubvali ⊢ i ⋅ ℎ A - ℎ B = i ⋅ ℎ A + ℎ -1 ⋅ ℎ B
80 77 78 79 3eqtr4i ⊢ i ⋅ ℎ A + ℎ i ⋅ ℎ B = i ⋅ ℎ A - ℎ B
81 80 fveq2i ⊢ T ⁡ i ⋅ ℎ A + ℎ i ⋅ ℎ B = T ⁡ i ⋅ ℎ A - ℎ B
82 1 24 hvaddcli ⊢ A + ℎ i ⋅ ℎ B ∈ ℋ
83 3 lnopmuli ⊢ i ∈ ℂ ∧ A + ℎ i ⋅ ℎ B ∈ ℋ → T ⁡ i ⋅ ℎ A + ℎ i ⋅ ℎ B = i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B
84 23 82 83 mp2an ⊢ T ⁡ i ⋅ ℎ A + ℎ i ⋅ ℎ B = i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B
85 3 lnopmulsubi ⊢ i ∈ ℂ ∧ A ∈ ℋ ∧ B ∈ ℋ → T ⁡ i ⋅ ℎ A - ℎ B = i ⋅ ℎ T ⁡ A - ℎ T ⁡ B
86 23 1 2 85 mp3an ⊢ T ⁡ i ⋅ ℎ A - ℎ B = i ⋅ ℎ T ⁡ A - ℎ T ⁡ B
87 81 84 86 3eqtr3i ⊢ i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B = i ⋅ ℎ T ⁡ A - ℎ T ⁡ B
88 80 87 oveq12i ⊢ i ⋅ ℎ A + ℎ i ⋅ ℎ B ⋅ ih i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B = i ⋅ ℎ A - ℎ B ⋅ ih i ⋅ ℎ T ⁡ A - ℎ T ⁡ B
89 74 88 eqtr4i ⊢ B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = i ⋅ ℎ A + ℎ i ⋅ ℎ B ⋅ ih i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B
90 5 ffvelcdmi ⊢ A + ℎ i ⋅ ℎ B ∈ ℋ → T ⁡ A + ℎ i ⋅ ℎ B ∈ ℋ
91 82 90 ax-mp ⊢ T ⁡ A + ℎ i ⋅ ℎ B ∈ ℋ
92 23 23 82 91 his35i ⊢ i ⋅ ℎ A + ℎ i ⋅ ℎ B ⋅ ih i ⋅ ℎ T ⁡ A + ℎ i ⋅ ℎ B = i ⁢ i ‾ ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
93 66 oveq1i ⊢ i ⁢ i ‾ ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = 1 ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
94 82 1 3 4 lnophmlem1 ⊢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℝ
95 94 recni ⊢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
96 95 mullidi ⊢ 1 ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
97 93 96 eqtri ⊢ i ⁢ i ‾ ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
98 89 92 97 3eqtri ⊢ B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
99 72 98 oveq12i ⊢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A − B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
100 99 oveq2i ⊢ i ⁢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A − B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
101 22 100 oveq12i ⊢ B + ℎ A ⋅ ih T ⁡ B + ℎ T ⁡ A - B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A + i ⁢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A − B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
102 101 oveq1i ⊢ B + ℎ A ⋅ ih T ⁡ B + ℎ T ⁡ A - B - ℎ A ⋅ ih T ⁡ B - ℎ T ⁡ A + i ⁢ B + ℎ i ⋅ ℎ A ⋅ ih T ⁡ B + ℎ i ⋅ ℎ T ⁡ A − B - ℎ i ⋅ ℎ A ⋅ ih T ⁡ B - ℎ i ⋅ ℎ T ⁡ A 4 = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B 4
103 10 102 eqtri ⊢ B ⋅ ih T ⁡ A = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B 4
104 103 fveq2i ⊢ B ⋅ ih T ⁡ A ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B 4 ‾
105 4ne0 ⊢ 4 ≠ 0
106 1 2 hvaddcli ⊢ A + ℎ B ∈ ℋ
107 106 1 3 4 lnophmlem1 ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B ∈ ℝ
108 1 2 hvsubcli ⊢ A - ℎ B ∈ ℋ
109 108 1 3 4 lnophmlem1 ⊢ A - ℎ B ⋅ ih T ⁡ A - ℎ B ∈ ℝ
110 107 109 resubcli ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B − A - ℎ B ⋅ ih T ⁡ A - ℎ B ∈ ℝ
111 110 recni ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B − A - ℎ B ⋅ ih T ⁡ A - ℎ B ∈ ℂ
112 68 94 resubcli ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℝ
113 112 recni ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
114 23 113 mulcli ⊢ i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
115 111 114 addcli ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
116 4re ⊢ 4 ∈ ℝ
117 116 recni ⊢ 4 ∈ ℂ
118 115 117 cjdivi ⊢ 4 ≠ 0 → A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B 4 ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ 4 ‾
119 105 118 ax-mp ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B 4 ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ 4 ‾
120 cjreim ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B − A - ℎ B ⋅ ih T ⁡ A - ℎ B ∈ ℝ ∧ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℝ → A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B - i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
121 110 112 120 mp2an ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B - i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
122 82 2 3 4 lnophmlem1 ⊢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℝ
123 68 122 resubcli ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℝ
124 123 recni ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
125 23 124 mulcli ⊢ i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ∈ ℂ
126 111 125 negsubi ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + − i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B - i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
127 121 126 eqtr4i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + − i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
128 23 113 mulneg2i ⊢ i ⁢ − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = − i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B
129 69 95 negsubdi2i ⊢ − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
130 129 oveq2i ⊢ i ⁢ − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
131 128 130 eqtr3i ⊢ − i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
132 131 oveq2i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + − i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B
133 14 oveq2i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B
134 133 20 oveq12i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B − A - ℎ B ⋅ ih T ⁡ A - ℎ B = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B − A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B
135 3 lnopaddmuli ⊢ i ∈ ℂ ∧ A ∈ ℋ ∧ B ∈ ℋ → T ⁡ A + ℎ i ⋅ ℎ B = T ⁡ A + ℎ i ⋅ ℎ T ⁡ B
136 23 1 2 135 mp3an ⊢ T ⁡ A + ℎ i ⋅ ℎ B = T ⁡ A + ℎ i ⋅ ℎ T ⁡ B
137 136 oveq2i ⊢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B
138 3 lnopsubmuli ⊢ i ∈ ℂ ∧ A ∈ ℋ ∧ B ∈ ℋ → T ⁡ A - ℎ i ⋅ ℎ B = T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
139 23 1 2 138 mp3an ⊢ T ⁡ A - ℎ i ⋅ ℎ B = T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
140 139 oveq2i ⊢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
141 137 140 oveq12i ⊢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
142 141 oveq2i ⊢ i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
143 134 142 oveq12i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B - A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
144 127 132 143 3eqtri ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B - A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B
145 cjre ⊢ 4 ∈ ℝ → 4 ‾ = 4
146 116 145 ax-mp ⊢ 4 ‾ = 4
147 144 146 oveq12i ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ B - A - ℎ B ⋅ ih T ⁡ A - ℎ B + i ⁢ A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ B − A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ B ‾ 4 ‾ = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B - A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B 4
148 104 119 147 3eqtrri ⊢ A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B - A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B 4 = B ⋅ ih T ⁡ A ‾
149 1 9 2 7 polid2i ⊢ A ⋅ ih T ⁡ B = A + ℎ B ⋅ ih T ⁡ A + ℎ T ⁡ B - A - ℎ B ⋅ ih T ⁡ A - ℎ T ⁡ B + i ⁢ A + ℎ i ⋅ ℎ B ⋅ ih T ⁡ A + ℎ i ⋅ ℎ T ⁡ B − A - ℎ i ⋅ ℎ B ⋅ ih T ⁡ A - ℎ i ⋅ ℎ T ⁡ B 4
150 7 2 his1i ⊢ T ⁡ A ⋅ ih B = B ⋅ ih T ⁡ A ‾
151 148 149 150 3eqtr4i ⊢ A ⋅ ih T ⁡ B = T ⁡ A ⋅ ih B