HSE Home Hilbert Space Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  HSE Home  >  Th. List  >  pjhthlem1 Structured version   Visualization version   GIF version

Theorem pjhthlem1 29472
Description: Lemma for pjhth 29474. (Contributed by NM, 10-Oct-1999.) (Revised by Mario Carneiro, 15-May-2014.) (Proof shortened by AV, 10-Jul-2022.) (New usage is discouraged.)
Hypotheses
Ref Expression
pjhth.1 𝐻C
pjhth.2 (𝜑𝐴 ∈ ℋ)
pjhth.3 (𝜑𝐵𝐻)
pjhth.4 (𝜑𝐶𝐻)
pjhth.5 (𝜑 → ∀𝑥𝐻 (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)))
pjhth.6 𝑇 = (((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))
Assertion
Ref Expression
pjhthlem1 (𝜑 → ((𝐴 𝐵) ·ih 𝐶) = 0)
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐶   𝑥,𝐻   𝑥,𝑇
Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem pjhthlem1
StepHypRef Expression
1 pjhth.2 . . . 4 (𝜑𝐴 ∈ ℋ)
2 pjhth.3 . . . . 5 (𝜑𝐵𝐻)
3 pjhth.1 . . . . . 6 𝐻C
43cheli 29313 . . . . 5 (𝐵𝐻𝐵 ∈ ℋ)
52, 4syl 17 . . . 4 (𝜑𝐵 ∈ ℋ)
6 hvsubcl 29098 . . . 4 ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (𝐴 𝐵) ∈ ℋ)
71, 5, 6syl2anc 587 . . 3 (𝜑 → (𝐴 𝐵) ∈ ℋ)
8 pjhth.4 . . . 4 (𝜑𝐶𝐻)
93cheli 29313 . . . 4 (𝐶𝐻𝐶 ∈ ℋ)
108, 9syl 17 . . 3 (𝜑𝐶 ∈ ℋ)
11 hicl 29161 . . 3 (((𝐴 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 𝐵) ·ih 𝐶) ∈ ℂ)
127, 10, 11syl2anc 587 . 2 (𝜑 → ((𝐴 𝐵) ·ih 𝐶) ∈ ℂ)
1312abscld 15000 . . . 4 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℝ)
1413recnd 10861 . . 3 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℂ)
1513resqcld 13817 . . . . . . 7 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ)
1615renegcld 11259 . . . . . 6 (𝜑 → -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ)
17 hiidrcl 29176 . . . . . . . . 9 (𝐶 ∈ ℋ → (𝐶 ·ih 𝐶) ∈ ℝ)
1810, 17syl 17 . . . . . . . 8 (𝜑 → (𝐶 ·ih 𝐶) ∈ ℝ)
19 2re 11904 . . . . . . . 8 2 ∈ ℝ
20 readdcl 10812 . . . . . . . 8 (((𝐶 ·ih 𝐶) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
2118, 19, 20sylancl 589 . . . . . . 7 (𝜑 → ((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
22 0red 10836 . . . . . . . 8 (𝜑 → 0 ∈ ℝ)
23 peano2re 11005 . . . . . . . . 9 ((𝐶 ·ih 𝐶) ∈ ℝ → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ)
2418, 23syl 17 . . . . . . . 8 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ)
25 hiidge0 29179 . . . . . . . . . 10 (𝐶 ∈ ℋ → 0 ≤ (𝐶 ·ih 𝐶))
2610, 25syl 17 . . . . . . . . 9 (𝜑 → 0 ≤ (𝐶 ·ih 𝐶))
2718ltp1d 11762 . . . . . . . . 9 (𝜑 → (𝐶 ·ih 𝐶) < ((𝐶 ·ih 𝐶) + 1))
2822, 18, 24, 26, 27lelttrd 10990 . . . . . . . 8 (𝜑 → 0 < ((𝐶 ·ih 𝐶) + 1))
2924ltp1d 11762 . . . . . . . . 9 (𝜑 → ((𝐶 ·ih 𝐶) + 1) < (((𝐶 ·ih 𝐶) + 1) + 1))
30 df-2 11893 . . . . . . . . . . 11 2 = (1 + 1)
3130oveq2i 7224 . . . . . . . . . 10 ((𝐶 ·ih 𝐶) + 2) = ((𝐶 ·ih 𝐶) + (1 + 1))
3218recnd 10861 . . . . . . . . . . 11 (𝜑 → (𝐶 ·ih 𝐶) ∈ ℂ)
33 ax-1cn 10787 . . . . . . . . . . . 12 1 ∈ ℂ
34 addass 10816 . . . . . . . . . . . 12 (((𝐶 ·ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
3533, 33, 34mp3an23 1455 . . . . . . . . . . 11 ((𝐶 ·ih 𝐶) ∈ ℂ → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
3632, 35syl 17 . . . . . . . . . 10 (𝜑 → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
3731, 36eqtr4id 2797 . . . . . . . . 9 (𝜑 → ((𝐶 ·ih 𝐶) + 2) = (((𝐶 ·ih 𝐶) + 1) + 1))
3829, 37breqtrrd 5081 . . . . . . . 8 (𝜑 → ((𝐶 ·ih 𝐶) + 1) < ((𝐶 ·ih 𝐶) + 2))
3922, 24, 21, 28, 38lttrd 10993 . . . . . . 7 (𝜑 → 0 < ((𝐶 ·ih 𝐶) + 2))
4021, 39elrpd 12625 . . . . . 6 (𝜑 → ((𝐶 ·ih 𝐶) + 2) ∈ ℝ+)
41 oveq2 7221 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → (𝐴 𝑥) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
4241fveq2d 6721 . . . . . . . . . . . . . 14 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → (norm‘(𝐴 𝑥)) = (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
4342breq2d 5065 . . . . . . . . . . . . 13 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → ((norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)) ↔ (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶))))))
44 pjhth.5 . . . . . . . . . . . . 13 (𝜑 → ∀𝑥𝐻 (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)))
453chshii 29308 . . . . . . . . . . . . . . 15 𝐻S
4645a1i 11 . . . . . . . . . . . . . 14 (𝜑𝐻S )
47 pjhth.6 . . . . . . . . . . . . . . . 16 𝑇 = (((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))
4824recnd 10861 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℂ)
4918, 26ge0p1rpd 12658 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ+)
5049rpne0d 12633 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ≠ 0)
5112, 48, 50divcld 11608 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)) ∈ ℂ)
5247, 51eqeltrid 2842 . . . . . . . . . . . . . . 15 (𝜑𝑇 ∈ ℂ)
53 shmulcl 29299 . . . . . . . . . . . . . . 15 ((𝐻S𝑇 ∈ ℂ ∧ 𝐶𝐻) → (𝑇 · 𝐶) ∈ 𝐻)
5446, 52, 8, 53syl3anc 1373 . . . . . . . . . . . . . 14 (𝜑 → (𝑇 · 𝐶) ∈ 𝐻)
55 shaddcl 29298 . . . . . . . . . . . . . 14 ((𝐻S𝐵𝐻 ∧ (𝑇 · 𝐶) ∈ 𝐻) → (𝐵 + (𝑇 · 𝐶)) ∈ 𝐻)
5646, 2, 54, 55syl3anc 1373 . . . . . . . . . . . . 13 (𝜑 → (𝐵 + (𝑇 · 𝐶)) ∈ 𝐻)
5743, 44, 56rspcdva 3539 . . . . . . . . . . . 12 (𝜑 → (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
583cheli 29313 . . . . . . . . . . . . . . 15 ((𝑇 · 𝐶) ∈ 𝐻 → (𝑇 · 𝐶) ∈ ℋ)
5954, 58syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝑇 · 𝐶) ∈ ℋ)
60 hvsubass 29125 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) − (𝑇 · 𝐶)) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
611, 5, 59, 60syl3anc 1373 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 𝐵) − (𝑇 · 𝐶)) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
6261fveq2d 6721 . . . . . . . . . . . 12 (𝜑 → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) = (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
6357, 62breqtrrd 5081 . . . . . . . . . . 11 (𝜑 → (norm‘(𝐴 𝐵)) ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))))
64 normcl 29206 . . . . . . . . . . . . 13 ((𝐴 𝐵) ∈ ℋ → (norm‘(𝐴 𝐵)) ∈ ℝ)
657, 64syl 17 . . . . . . . . . . . 12 (𝜑 → (norm‘(𝐴 𝐵)) ∈ ℝ)
66 hvsubcl 29098 . . . . . . . . . . . . . 14 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ)
677, 59, 66syl2anc 587 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ)
68 normcl 29206 . . . . . . . . . . . . 13 (((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℝ)
6967, 68syl 17 . . . . . . . . . . . 12 (𝜑 → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℝ)
70 normge0 29207 . . . . . . . . . . . . 13 ((𝐴 𝐵) ∈ ℋ → 0 ≤ (norm‘(𝐴 𝐵)))
717, 70syl 17 . . . . . . . . . . . 12 (𝜑 → 0 ≤ (norm‘(𝐴 𝐵)))
7222, 65, 69, 71, 63letrd 10989 . . . . . . . . . . . 12 (𝜑 → 0 ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))))
7365, 69, 71, 72le2sqd 13826 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵)) ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ↔ ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2)))
7463, 73mpbid 235 . . . . . . . . . 10 (𝜑 → ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2))
7569resqcld 13817 . . . . . . . . . . 11 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) ∈ ℝ)
7665resqcld 13817 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵))↑2) ∈ ℝ)
7775, 76subge0d 11422 . . . . . . . . . 10 (𝜑 → (0 ≤ (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)) ↔ ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2)))
7874, 77mpbird 260 . . . . . . . . 9 (𝜑 → 0 ≤ (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)))
79 2z 12209 . . . . . . . . . . . . . . . 16 2 ∈ ℤ
80 rpexpcl 13654 . . . . . . . . . . . . . . . 16 ((((𝐶 ·ih 𝐶) + 1) ∈ ℝ+ ∧ 2 ∈ ℤ) → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ+)
8149, 79, 80sylancl 589 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ+)
8215, 81rerpdivcld 12659 . . . . . . . . . . . . . 14 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) ∈ ℝ)
8382, 21remulcld 10863 . . . . . . . . . . . . 13 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℝ)
8483recnd 10861 . . . . . . . . . . . 12 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℂ)
8584negcld 11176 . . . . . . . . . . 11 (𝜑 → -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℂ)
86 hicl 29161 . . . . . . . . . . . 12 (((𝐴 𝐵) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ) → ((𝐴 𝐵) ·ih (𝐴 𝐵)) ∈ ℂ)
877, 7, 86syl2anc 587 . . . . . . . . . . 11 (𝜑 → ((𝐴 𝐵) ·ih (𝐴 𝐵)) ∈ ℂ)
8885, 87pncand 11190 . . . . . . . . . 10 (𝜑 → ((-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))) − ((𝐴 𝐵) ·ih (𝐴 𝐵))) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
89 normsq 29215 . . . . . . . . . . . . . 14 (((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))
9067, 89syl 17 . . . . . . . . . . . . 13 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))
91 his2sub 29173 . . . . . . . . . . . . . 14 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ ∧ ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ) → (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
927, 59, 67, 91syl3anc 1373 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
93 his2sub2 29174 . . . . . . . . . . . . . . . 16 (((𝐴 𝐵) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))))
947, 7, 59, 93syl3anc 1373 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))))
9594oveq1d 7228 . . . . . . . . . . . . . 14 (𝜑 → (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = ((((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
96 hicl 29161 . . . . . . . . . . . . . . . 16 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℂ)
977, 59, 96syl2anc 587 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℂ)
98 his2sub2 29174 . . . . . . . . . . . . . . . . 17 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))))
9959, 7, 59, 98syl3anc 1373 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))))
100 hicl 29161 . . . . . . . . . . . . . . . . . 18 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ) → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) ∈ ℂ)
10159, 7, 100syl2anc 587 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) ∈ ℂ)
102 hicl 29161 . . . . . . . . . . . . . . . . . 18 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) ∈ ℂ)
10359, 59, 102syl2anc 587 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) ∈ ℂ)
104101, 103subcld 11189 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))) ∈ ℂ)
10599, 104eqeltrd 2838 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℂ)
10687, 97, 105subsub4d 11220 . . . . . . . . . . . . . 14 (𝜑 → ((((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))))
10782recnd 10861 . . . . . . . . . . . . . . . . 17 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) ∈ ℂ)
10833a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → 1 ∈ ℂ)
109107, 48, 108adddid 10857 . . . . . . . . . . . . . . . 16 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) + 1)) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) + ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1)))
11037oveq2d 7229 . . . . . . . . . . . . . . . 16 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) + 1)))
111 his5 29167 . . . . . . . . . . . . . . . . . . . 20 ((𝑇 ∈ ℂ ∧ (𝐴 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)))
11252, 7, 10, 111syl3anc 1373 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)))
11352cjcld 14759 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (∗‘𝑇) ∈ ℂ)
114113, 12mulcomd 10854 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)) = (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)))
11512cjcld 14759 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (∗‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℂ)
11612, 115, 48, 50divassd 11643 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))) / ((𝐶 ·ih 𝐶) + 1)) = (((𝐴 𝐵) ·ih 𝐶) · ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))))
11712absvalsqd 15006 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = (((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))))
118117oveq1d 7228 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)) = ((((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))) / ((𝐶 ·ih 𝐶) + 1)))
11947fveq2i 6720 . . . . . . . . . . . . . . . . . . . . . 22 (∗‘𝑇) = (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)))
12012, 48, 50cjdivd 14786 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / (∗‘((𝐶 ·ih 𝐶) + 1))))
12124cjred 14789 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (∗‘((𝐶 ·ih 𝐶) + 1)) = ((𝐶 ·ih 𝐶) + 1))
122121oveq2d 7229 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((∗‘((𝐴 𝐵) ·ih 𝐶)) / (∗‘((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
123120, 122eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
124119, 123syl5eq 2790 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (∗‘𝑇) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
125124oveq2d 7229 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)) = (((𝐴 𝐵) ·ih 𝐶) · ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))))
126116, 118, 1253eqtr4rd 2788 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
127112, 114, 1263eqtrd 2781 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
12815recnd 10861 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℂ)
129128, 48mulcomd 10854 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) = (((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)))
13048sqvald 13713 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) = (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1)))
131129, 130oveq12d 7231 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)) / (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1))))
132128, 48, 48, 50, 50divcan5d 11634 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)) / (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1))) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
133131, 132eqtr2d 2778 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)))
13424resqcld 13817 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ)
135134recnd 10861 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℂ)
13681rpne0d 12633 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ≠ 0)
137128, 48, 135, 136div23d 11645 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
138127, 133, 1373eqtrd 2781 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
13982, 24remulcld 10863 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) ∈ ℝ)
140138, 139eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ)
141 hire 29175 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ ↔ ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵))))
1427, 59, 141syl2anc 587 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ ↔ ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵))))
143140, 142mpbid 235 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵)))
144143, 138eqtr3d 2779 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
145 his35 29169 . . . . . . . . . . . . . . . . . . . . 21 (((𝑇 ∈ ℂ ∧ 𝑇 ∈ ℂ) ∧ (𝐶 ∈ ℋ ∧ 𝐶 ∈ ℋ)) → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)))
14652, 52, 10, 10, 145syl22anc 839 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)))
14747fveq2i 6720 . . . . . . . . . . . . . . . . . . . . . . . 24 (abs‘𝑇) = (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)))
14812, 48, 50absdivd 15019 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / (abs‘((𝐶 ·ih 𝐶) + 1))))
14949rpge0d 12632 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝜑 → 0 ≤ ((𝐶 ·ih 𝐶) + 1))
15024, 149absidd 14986 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (abs‘((𝐶 ·ih 𝐶) + 1)) = ((𝐶 ·ih 𝐶) + 1))
151150oveq2d 7229 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶)) / (abs‘((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
152148, 151eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
153147, 152syl5eq 2790 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (abs‘𝑇) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
154153oveq1d 7228 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((abs‘𝑇)↑2) = (((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))↑2))
15552absvalsqd 15006 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
15614, 48, 50sqdivd 13729 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))↑2) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)))
157154, 155, 1563eqtr3d 2785 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)))
158157oveq1d 7228 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶)))
159146, 158eqtrd 2777 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶)))
160144, 159oveq12d 7231 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶))))
161 pncan2 11085 . . . . . . . . . . . . . . . . . . . . 21 (((𝐶 ·ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶)) = 1)
16232, 33, 161sylancl 589 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶)) = 1)
163162oveq2d 7229 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1))
164107, 48, 32subdid 11288 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶))) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶))))
165163, 164eqtr3d 2779 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶))))
166160, 99, 1653eqtr4d 2787 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1))
167138, 166oveq12d 7231 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) + ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1)))
168109, 110, 1673eqtr4rd 2788 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
169168oveq2d 7229 . . . . . . . . . . . . . 14 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) − (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17095, 106, 1693eqtrd 2781 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17190, 92, 1703eqtrd 2781 . . . . . . . . . . . 12 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17287, 84negsubd 11195 . . . . . . . . . . . 12 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) + -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17387, 85addcomd 11034 . . . . . . . . . . . 12 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) + -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))) = (-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))))
174171, 172, 1733eqtr2d 2783 . . . . . . . . . . 11 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))))
175 normsq 29215 . . . . . . . . . . . 12 ((𝐴 𝐵) ∈ ℋ → ((norm‘(𝐴 𝐵))↑2) = ((𝐴 𝐵) ·ih (𝐴 𝐵)))
1767, 175syl 17 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵))↑2) = ((𝐴 𝐵) ·ih (𝐴 𝐵)))
177174, 176oveq12d 7231 . . . . . . . . . 10 (𝜑 → (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)) = ((-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))) − ((𝐴 𝐵) ·ih (𝐴 𝐵))))
17821renegcld 11259 . . . . . . . . . . . . 13 (𝜑 → -((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
179178recnd 10861 . . . . . . . . . . . 12 (𝜑 → -((𝐶 ·ih 𝐶) + 2) ∈ ℂ)
180128, 179, 135, 136div23d 11645 . . . . . . . . . . 11 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · -((𝐶 ·ih 𝐶) + 2)))
18121recnd 10861 . . . . . . . . . . . 12 (𝜑 → ((𝐶 ·ih 𝐶) + 2) ∈ ℂ)
182107, 181mulneg2d 11286 . . . . . . . . . . 11 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · -((𝐶 ·ih 𝐶) + 2)) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
183180, 182eqtrd 2777 . . . . . . . . . 10 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
18488, 177, 1833eqtr4rd 2788 . . . . . . . . 9 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)))
18578, 184breqtrrd 5081 . . . . . . . 8 (𝜑 → 0 ≤ ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)))
18615, 178remulcld 10863 . . . . . . . . 9 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) ∈ ℝ)
187186, 81ge0divd 12666 . . . . . . . 8 (𝜑 → (0 ≤ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) ↔ 0 ≤ ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2))))
188185, 187mpbird 260 . . . . . . 7 (𝜑 → 0 ≤ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
189 mulneg12 11270 . . . . . . . 8 ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℂ ∧ ((𝐶 ·ih 𝐶) + 2) ∈ ℂ) → (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
190128, 181, 189syl2anc 587 . . . . . . 7 (𝜑 → (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
191188, 190breqtrrd 5081 . . . . . 6 (𝜑 → 0 ≤ (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)))
19216, 40, 191prodge0ld 12694 . . . . 5 (𝜑 → 0 ≤ -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))
19315le0neg1d 11403 . . . . 5 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ↔ 0 ≤ -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)))
194192, 193mpbird 260 . . . 4 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0)
19513sqge0d 13818 . . . 4 (𝜑 → 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))
196 0re 10835 . . . . 5 0 ∈ ℝ
197 letri3 10918 . . . . 5 ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))))
19815, 196, 197sylancl 589 . . . 4 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))))
199194, 195, 198mpbir2and 713 . . 3 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0)
20014, 199sqeq0d 13715 . 2 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) = 0)
20112, 200abs00d 15010 1 (𝜑 → ((𝐴 𝐵) ·ih 𝐶) = 0)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399   = wceq 1543  wcel 2110  wral 3061   class class class wbr 5053  cfv 6380  (class class class)co 7213  cc 10727  cr 10728  0cc0 10729  1c1 10730   + caddc 10732   · cmul 10734   < clt 10867  cle 10868  cmin 11062  -cneg 11063   / cdiv 11489  2c2 11885  cz 12176  +crp 12586  cexp 13635  ccj 14659  abscabs 14797  chba 29000   + cva 29001   · csm 29002   ·ih csp 29003  normcno 29004   cmv 29006   S csh 29009   C cch 29010
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806  ax-pre-sup 10807  ax-hilex 29080  ax-hfvadd 29081  ax-hvass 29083  ax-hv0cl 29084  ax-hfvmul 29086  ax-hvdistr1 29089  ax-hvmul0 29091  ax-hfi 29160  ax-his1 29163  ax-his2 29164  ax-his3 29165  ax-his4 29166
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-2nd 7762  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-er 8391  df-en 8627  df-dom 8628  df-sdom 8629  df-sup 9058  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-div 11490  df-nn 11831  df-2 11893  df-3 11894  df-n0 12091  df-z 12177  df-uz 12439  df-rp 12587  df-seq 13575  df-exp 13636  df-cj 14662  df-re 14663  df-im 14664  df-sqrt 14798  df-abs 14799  df-hnorm 29049  df-hvsub 29052  df-sh 29288  df-ch 29302
This theorem is referenced by:  pjhthlem2  29473
  Copyright terms: Public domain W3C validator