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

Theorem pjhthlem1 27452
Description: Lemma for pjhth 27454. (Contributed by NM, 10-Oct-1999.) (Revised by Mario Carneiro, 15-May-2014.) (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 27291 . . . . 5 (𝐵𝐻𝐵 ∈ ℋ)
52, 4syl 17 . . . 4 (𝜑𝐵 ∈ ℋ)
6 hvsubcl 27076 . . . 4 ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (𝐴 𝐵) ∈ ℋ)
71, 5, 6syl2anc 690 . . 3 (𝜑 → (𝐴 𝐵) ∈ ℋ)
8 pjhth.4 . . . 4 (𝜑𝐶𝐻)
93cheli 27291 . . . 4 (𝐶𝐻𝐶 ∈ ℋ)
108, 9syl 17 . . 3 (𝜑𝐶 ∈ ℋ)
11 hicl 27139 . . 3 (((𝐴 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 𝐵) ·ih 𝐶) ∈ ℂ)
127, 10, 11syl2anc 690 . 2 (𝜑 → ((𝐴 𝐵) ·ih 𝐶) ∈ ℂ)
1312abscld 13878 . . . 4 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℝ)
1413recnd 9821 . . 3 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℂ)
1513resqcld 12762 . . . . . . 7 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ)
1615renegcld 10206 . . . . . 6 (𝜑 → -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ)
17 hiidrcl 27154 . . . . . . . 8 (𝐶 ∈ ℋ → (𝐶 ·ih 𝐶) ∈ ℝ)
1810, 17syl 17 . . . . . . 7 (𝜑 → (𝐶 ·ih 𝐶) ∈ ℝ)
19 2re 10843 . . . . . . 7 2 ∈ ℝ
20 readdcl 9772 . . . . . . 7 (((𝐶 ·ih 𝐶) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
2118, 19, 20sylancl 692 . . . . . 6 (𝜑 → ((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
22 0red 9794 . . . . . . 7 (𝜑 → 0 ∈ ℝ)
23 peano2re 9958 . . . . . . . 8 ((𝐶 ·ih 𝐶) ∈ ℝ → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ)
2418, 23syl 17 . . . . . . 7 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ)
25 hiidge0 27157 . . . . . . . . 9 (𝐶 ∈ ℋ → 0 ≤ (𝐶 ·ih 𝐶))
2610, 25syl 17 . . . . . . . 8 (𝜑 → 0 ≤ (𝐶 ·ih 𝐶))
2718ltp1d 10702 . . . . . . . 8 (𝜑 → (𝐶 ·ih 𝐶) < ((𝐶 ·ih 𝐶) + 1))
2822, 18, 24, 26, 27lelttrd 9944 . . . . . . 7 (𝜑 → 0 < ((𝐶 ·ih 𝐶) + 1))
2924ltp1d 10702 . . . . . . . 8 (𝜑 → ((𝐶 ·ih 𝐶) + 1) < (((𝐶 ·ih 𝐶) + 1) + 1))
3018recnd 9821 . . . . . . . . . 10 (𝜑 → (𝐶 ·ih 𝐶) ∈ ℂ)
31 ax-1cn 9747 . . . . . . . . . . 11 1 ∈ ℂ
32 addass 9776 . . . . . . . . . . 11 (((𝐶 ·ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
3331, 31, 32mp3an23 1407 . . . . . . . . . 10 ((𝐶 ·ih 𝐶) ∈ ℂ → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
3430, 33syl 17 . . . . . . . . 9 (𝜑 → (((𝐶 ·ih 𝐶) + 1) + 1) = ((𝐶 ·ih 𝐶) + (1 + 1)))
35 df-2 10832 . . . . . . . . . 10 2 = (1 + 1)
3635oveq2i 6436 . . . . . . . . 9 ((𝐶 ·ih 𝐶) + 2) = ((𝐶 ·ih 𝐶) + (1 + 1))
3734, 36syl6reqr 2567 . . . . . . . 8 (𝜑 → ((𝐶 ·ih 𝐶) + 2) = (((𝐶 ·ih 𝐶) + 1) + 1))
3829, 37breqtrrd 4509 . . . . . . 7 (𝜑 → ((𝐶 ·ih 𝐶) + 1) < ((𝐶 ·ih 𝐶) + 2))
3922, 24, 21, 28, 38lttrd 9947 . . . . . 6 (𝜑 → 0 < ((𝐶 ·ih 𝐶) + 2))
403chshii 27286 . . . . . . . . . . . . . . 15 𝐻S
4140a1i 11 . . . . . . . . . . . . . 14 (𝜑𝐻S )
42 pjhth.6 . . . . . . . . . . . . . . . 16 𝑇 = (((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))
4324recnd 9821 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℂ)
4418, 26ge0p1rpd 11640 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ∈ ℝ+)
4544rpne0d 11615 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 ·ih 𝐶) + 1) ≠ 0)
4612, 43, 45divcld 10548 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)) ∈ ℂ)
4742, 46syl5eqel 2596 . . . . . . . . . . . . . . 15 (𝜑𝑇 ∈ ℂ)
48 shmulcl 27277 . . . . . . . . . . . . . . 15 ((𝐻S𝑇 ∈ ℂ ∧ 𝐶𝐻) → (𝑇 · 𝐶) ∈ 𝐻)
4941, 47, 8, 48syl3anc 1317 . . . . . . . . . . . . . 14 (𝜑 → (𝑇 · 𝐶) ∈ 𝐻)
50 shaddcl 27276 . . . . . . . . . . . . . 14 ((𝐻S𝐵𝐻 ∧ (𝑇 · 𝐶) ∈ 𝐻) → (𝐵 + (𝑇 · 𝐶)) ∈ 𝐻)
5141, 2, 49, 50syl3anc 1317 . . . . . . . . . . . . 13 (𝜑 → (𝐵 + (𝑇 · 𝐶)) ∈ 𝐻)
52 pjhth.5 . . . . . . . . . . . . 13 (𝜑 → ∀𝑥𝐻 (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)))
53 oveq2 6433 . . . . . . . . . . . . . . . 16 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → (𝐴 𝑥) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
5453fveq2d 5990 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → (norm‘(𝐴 𝑥)) = (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
5554breq2d 4493 . . . . . . . . . . . . . 14 (𝑥 = (𝐵 + (𝑇 · 𝐶)) → ((norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)) ↔ (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶))))))
5655rspcv 3182 . . . . . . . . . . . . 13 ((𝐵 + (𝑇 · 𝐶)) ∈ 𝐻 → (∀𝑥𝐻 (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 𝑥)) → (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶))))))
5751, 52, 56sylc 62 . . . . . . . . . . . 12 (𝜑 → (norm‘(𝐴 𝐵)) ≤ (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
583cheli 27291 . . . . . . . . . . . . . . 15 ((𝑇 · 𝐶) ∈ 𝐻 → (𝑇 · 𝐶) ∈ ℋ)
5949, 58syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝑇 · 𝐶) ∈ ℋ)
60 hvsubass 27103 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) − (𝑇 · 𝐶)) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
611, 5, 59, 60syl3anc 1317 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 𝐵) − (𝑇 · 𝐶)) = (𝐴 (𝐵 + (𝑇 · 𝐶))))
6261fveq2d 5990 . . . . . . . . . . . 12 (𝜑 → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) = (norm‘(𝐴 (𝐵 + (𝑇 · 𝐶)))))
6357, 62breqtrrd 4509 . . . . . . . . . . 11 (𝜑 → (norm‘(𝐴 𝐵)) ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))))
64 normcl 27184 . . . . . . . . . . . . 13 ((𝐴 𝐵) ∈ ℋ → (norm‘(𝐴 𝐵)) ∈ ℝ)
657, 64syl 17 . . . . . . . . . . . 12 (𝜑 → (norm‘(𝐴 𝐵)) ∈ ℝ)
66 hvsubcl 27076 . . . . . . . . . . . . . 14 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ)
677, 59, 66syl2anc 690 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ)
68 normcl 27184 . . . . . . . . . . . . 13 (((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℝ)
6967, 68syl 17 . . . . . . . . . . . 12 (𝜑 → (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℝ)
70 normge0 27185 . . . . . . . . . . . . 13 ((𝐴 𝐵) ∈ ℋ → 0 ≤ (norm‘(𝐴 𝐵)))
717, 70syl 17 . . . . . . . . . . . 12 (𝜑 → 0 ≤ (norm‘(𝐴 𝐵)))
7222, 65, 69, 71, 63letrd 9943 . . . . . . . . . . . 12 (𝜑 → 0 ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))))
7365, 69, 71, 72le2sqd 12771 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵)) ≤ (norm‘((𝐴 𝐵) − (𝑇 · 𝐶))) ↔ ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2)))
7463, 73mpbid 220 . . . . . . . . . 10 (𝜑 → ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2))
7569resqcld 12762 . . . . . . . . . . 11 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) ∈ ℝ)
7665resqcld 12762 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵))↑2) ∈ ℝ)
7775, 76subge0d 10364 . . . . . . . . . 10 (𝜑 → (0 ≤ (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)) ↔ ((norm‘(𝐴 𝐵))↑2) ≤ ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2)))
7874, 77mpbird 245 . . . . . . . . 9 (𝜑 → 0 ≤ (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)))
79 2z 11148 . . . . . . . . . . . . . . . 16 2 ∈ ℤ
80 rpexpcl 12606 . . . . . . . . . . . . . . . 16 ((((𝐶 ·ih 𝐶) + 1) ∈ ℝ+ ∧ 2 ∈ ℤ) → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ+)
8144, 79, 80sylancl 692 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ+)
8215, 81rerpdivcld 11641 . . . . . . . . . . . . . 14 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) ∈ ℝ)
8382, 21remulcld 9823 . . . . . . . . . . . . 13 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℝ)
8483recnd 9821 . . . . . . . . . . . 12 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℂ)
8584negcld 10128 . . . . . . . . . . 11 (𝜑 → -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) ∈ ℂ)
86 hicl 27139 . . . . . . . . . . . 12 (((𝐴 𝐵) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ) → ((𝐴 𝐵) ·ih (𝐴 𝐵)) ∈ ℂ)
877, 7, 86syl2anc 690 . . . . . . . . . . 11 (𝜑 → ((𝐴 𝐵) ·ih (𝐴 𝐵)) ∈ ℂ)
8885, 87pncand 10142 . . . . . . . . . 10 (𝜑 → ((-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))) − ((𝐴 𝐵) ·ih (𝐴 𝐵))) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
89 normsq 27193 . . . . . . . . . . . . . 14 (((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))
9067, 89syl 17 . . . . . . . . . . . . 13 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))
91 his2sub 27151 . . . . . . . . . . . . . 14 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ ∧ ((𝐴 𝐵) − (𝑇 · 𝐶)) ∈ ℋ) → (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
927, 59, 67, 91syl3anc 1317 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 𝐵) − (𝑇 · 𝐶)) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
93 his2sub2 27152 . . . . . . . . . . . . . . . 16 (((𝐴 𝐵) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))))
947, 7, 59, 93syl3anc 1317 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))))
9594oveq1d 6440 . . . . . . . . . . . . . 14 (𝜑 → (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = ((((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))))
96 hicl 27139 . . . . . . . . . . . . . . . 16 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℂ)
977, 59, 96syl2anc 690 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℂ)
98 his2sub2 27152 . . . . . . . . . . . . . . . . 17 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))))
9959, 7, 59, 98syl3anc 1317 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))))
100 hicl 27139 . . . . . . . . . . . . . . . . . 18 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝐴 𝐵) ∈ ℋ) → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) ∈ ℂ)
10159, 7, 100syl2anc 690 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) ∈ ℂ)
102 hicl 27139 . . . . . . . . . . . . . . . . . 18 (((𝑇 · 𝐶) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) ∈ ℂ)
10359, 59, 102syl2anc 690 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) ∈ ℂ)
104101, 103subcld 10141 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))) ∈ ℂ)
10599, 104eqeltrd 2592 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) ∈ ℂ)
10687, 97, 105subsub4d 10172 . . . . . . . . . . . . . 14 (𝜑 → ((((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((𝐴 𝐵) ·ih (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))))
10782recnd 9821 . . . . . . . . . . . . . . . . 17 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) ∈ ℂ)
10831a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → 1 ∈ ℂ)
109107, 43, 108adddid 9817 . . . . . . . . . . . . . . . 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 6441 . . . . . . . . . . . . . . . 16 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) + 1)))
111 his5 27145 . . . . . . . . . . . . . . . . . . . 20 ((𝑇 ∈ ℂ ∧ (𝐴 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)))
11247, 7, 10, 111syl3anc 1317 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)))
11347cjcld 13639 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (∗‘𝑇) ∈ ℂ)
114113, 12mulcomd 9814 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((∗‘𝑇) · ((𝐴 𝐵) ·ih 𝐶)) = (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)))
11512cjcld 13639 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (∗‘((𝐴 𝐵) ·ih 𝐶)) ∈ ℂ)
11612, 115, 43, 45divassd 10583 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))) / ((𝐶 ·ih 𝐶) + 1)) = (((𝐴 𝐵) ·ih 𝐶) · ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))))
11712absvalsqd 13884 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = (((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))))
118117oveq1d 6440 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)) = ((((𝐴 𝐵) ·ih 𝐶) · (∗‘((𝐴 𝐵) ·ih 𝐶))) / ((𝐶 ·ih 𝐶) + 1)))
11942fveq2i 5989 . . . . . . . . . . . . . . . . . . . . . 22 (∗‘𝑇) = (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)))
12012, 43, 45cjdivd 13666 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / (∗‘((𝐶 ·ih 𝐶) + 1))))
12124cjred 13669 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (∗‘((𝐶 ·ih 𝐶) + 1)) = ((𝐶 ·ih 𝐶) + 1))
122121oveq2d 6441 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((∗‘((𝐴 𝐵) ·ih 𝐶)) / (∗‘((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
123120, 122eqtrd 2548 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (∗‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
124119, 123syl5eq 2560 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (∗‘𝑇) = ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
125124oveq2d 6441 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)) = (((𝐴 𝐵) ·ih 𝐶) · ((∗‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))))
126116, 118, 1253eqtr4rd 2559 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐴 𝐵) ·ih 𝐶) · (∗‘𝑇)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
127112, 114, 1263eqtrd 2552 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
12815recnd 9821 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℂ)
129128, 43mulcomd 9814 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) = (((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)))
13043sqvald 12732 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) = (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1)))
131129, 130oveq12d 6443 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)) / (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1))))
132128, 43, 43, 45, 45divcan5d 10574 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((𝐶 ·ih 𝐶) + 1) · ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)) / (((𝐶 ·ih 𝐶) + 1) · ((𝐶 ·ih 𝐶) + 1))) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)))
133131, 132eqtr2d 2549 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / ((𝐶 ·ih 𝐶) + 1)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)))
13424resqcld 12762 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℝ)
135134recnd 9821 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ∈ ℂ)
13681rpne0d 11615 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((𝐶 ·ih 𝐶) + 1)↑2) ≠ 0)
137128, 43, 135, 136div23d 10585 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 1)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
138127, 133, 1373eqtrd 2552 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
13982, 24remulcld 9823 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) ∈ ℝ)
140138, 139eqeltrd 2592 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ)
141 hire 27153 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐴 𝐵) ∈ ℋ ∧ (𝑇 · 𝐶) ∈ ℋ) → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ ↔ ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵))))
1427, 59, 141syl2anc 690 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) ∈ ℝ ↔ ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵))))
143140, 142mpbid 220 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝐴 𝐵) ·ih (𝑇 · 𝐶)) = ((𝑇 · 𝐶) ·ih (𝐴 𝐵)))
144143, 138eqtr3d 2550 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑇 · 𝐶) ·ih (𝐴 𝐵)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)))
145 his35 27147 . . . . . . . . . . . . . . . . . . . . 21 (((𝑇 ∈ ℂ ∧ 𝑇 ∈ ℂ) ∧ (𝐶 ∈ ℋ ∧ 𝐶 ∈ ℋ)) → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)))
14647, 47, 10, 10, 145syl22anc 1318 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)))
14742fveq2i 5989 . . . . . . . . . . . . . . . . . . . . . . . 24 (abs‘𝑇) = (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1)))
14812, 43, 45absdivd 13897 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / (abs‘((𝐶 ·ih 𝐶) + 1))))
14944rpge0d 11614 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝜑 → 0 ≤ ((𝐶 ·ih 𝐶) + 1))
15024, 149absidd 13864 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (abs‘((𝐶 ·ih 𝐶) + 1)) = ((𝐶 ·ih 𝐶) + 1))
151150oveq2d 6441 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶)) / (abs‘((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
152148, 151eqtrd 2548 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (abs‘(((𝐴 𝐵) ·ih 𝐶) / ((𝐶 ·ih 𝐶) + 1))) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
153147, 152syl5eq 2560 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (abs‘𝑇) = ((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1)))
154153oveq1d 6440 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((abs‘𝑇)↑2) = (((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))↑2))
15547absvalsqd 13884 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
15614, 43, 45sqdivd 12748 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶)) / ((𝐶 ·ih 𝐶) + 1))↑2) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)))
157154, 155, 1563eqtr3d 2556 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)))
158157oveq1d 6440 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐶 ·ih 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶)))
159146, 158eqtrd 2548 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶)))
160144, 159oveq12d 6443 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑇 · 𝐶) ·ih (𝐴 𝐵)) − ((𝑇 · 𝐶) ·ih (𝑇 · 𝐶))) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (𝐶 ·ih 𝐶))))
161 pncan2 10037 . . . . . . . . . . . . . . . . . . . . 21 (((𝐶 ·ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶)) = 1)
16230, 31, 161sylancl 692 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶)) = 1)
163162oveq2d 6441 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · (((𝐶 ·ih 𝐶) + 1) − (𝐶 ·ih 𝐶))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1))
164107, 43, 30subdid 10234 . . . . . . . . . . . . . . . . . . 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 2550 . . . . . . . . . . . . . . . . . 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 2558 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1))
167138, 166oveq12d 6443 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 1)) + ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · 1)))
168109, 110, 1673eqtr4rd 2559 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
169168oveq2d 6441 . . . . . . . . . . . . . 14 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) − (((𝐴 𝐵) ·ih (𝑇 · 𝐶)) + ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17095, 106, 1693eqtrd 2552 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 𝐵) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶))) − ((𝑇 · 𝐶) ·ih ((𝐴 𝐵) − (𝑇 · 𝐶)))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17190, 92, 1703eqtrd 2552 . . . . . . . . . . . 12 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17287, 84negsubd 10147 . . . . . . . . . . . 12 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) + -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))) = (((𝐴 𝐵) ·ih (𝐴 𝐵)) − ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))))
17387, 85addcomd 9987 . . . . . . . . . . . 12 (𝜑 → (((𝐴 𝐵) ·ih (𝐴 𝐵)) + -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2))) = (-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))))
174171, 172, 1733eqtr2d 2554 . . . . . . . . . . 11 (𝜑 → ((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) = (-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))))
175 normsq 27193 . . . . . . . . . . . 12 ((𝐴 𝐵) ∈ ℋ → ((norm‘(𝐴 𝐵))↑2) = ((𝐴 𝐵) ·ih (𝐴 𝐵)))
1767, 175syl 17 . . . . . . . . . . 11 (𝜑 → ((norm‘(𝐴 𝐵))↑2) = ((𝐴 𝐵) ·ih (𝐴 𝐵)))
177174, 176oveq12d 6443 . . . . . . . . . 10 (𝜑 → (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)) = ((-((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)) + ((𝐴 𝐵) ·ih (𝐴 𝐵))) − ((𝐴 𝐵) ·ih (𝐴 𝐵))))
17821renegcld 10206 . . . . . . . . . . . . 13 (𝜑 → -((𝐶 ·ih 𝐶) + 2) ∈ ℝ)
179178recnd 9821 . . . . . . . . . . . 12 (𝜑 → -((𝐶 ·ih 𝐶) + 2) ∈ ℂ)
180128, 179, 135, 136div23d 10585 . . . . . . . . . . 11 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · -((𝐶 ·ih 𝐶) + 2)))
18121recnd 9821 . . . . . . . . . . . 12 (𝜑 → ((𝐶 ·ih 𝐶) + 2) ∈ ℂ)
182107, 181mulneg2d 10232 . . . . . . . . . . 11 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · -((𝐶 ·ih 𝐶) + 2)) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
183180, 182eqtrd 2548 . . . . . . . . . 10 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = -((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) / (((𝐶 ·ih 𝐶) + 1)↑2)) · ((𝐶 ·ih 𝐶) + 2)))
18488, 177, 1833eqtr4rd 2559 . . . . . . . . 9 (𝜑 → ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)) = (((norm‘((𝐴 𝐵) − (𝑇 · 𝐶)))↑2) − ((norm‘(𝐴 𝐵))↑2)))
18578, 184breqtrrd 4509 . . . . . . . 8 (𝜑 → 0 ≤ ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2)))
18615, 178remulcld 9823 . . . . . . . . 9 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) ∈ ℝ)
187186, 81ge0divd 11648 . . . . . . . 8 (𝜑 → (0 ≤ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) ↔ 0 ≤ ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)) / (((𝐶 ·ih 𝐶) + 1)↑2))))
188185, 187mpbird 245 . . . . . . 7 (𝜑 → 0 ≤ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
189 mulneg12 10217 . . . . . . . 8 ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℂ ∧ ((𝐶 ·ih 𝐶) + 2) ∈ ℂ) → (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
190128, 181, 189syl2anc 690 . . . . . . 7 (𝜑 → (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)) = (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · -((𝐶 ·ih 𝐶) + 2)))
191188, 190breqtrrd 4509 . . . . . 6 (𝜑 → 0 ≤ (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)))
192 prodge02 10618 . . . . . 6 (((-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ ∧ ((𝐶 ·ih 𝐶) + 2) ∈ ℝ) ∧ (0 < ((𝐶 ·ih 𝐶) + 2) ∧ 0 ≤ (-((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) · ((𝐶 ·ih 𝐶) + 2)))) → 0 ≤ -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))
19316, 21, 39, 191, 192syl22anc 1318 . . . . 5 (𝜑 → 0 ≤ -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))
19415le0neg1d 10346 . . . . 5 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ↔ 0 ≤ -((abs‘((𝐴 𝐵) ·ih 𝐶))↑2)))
195193, 194mpbird 245 . . . 4 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0)
19613sqge0d 12763 . . . 4 (𝜑 → 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))
197 0re 9793 . . . . 5 0 ∈ ℝ
198 letri3 9871 . . . . 5 ((((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))))
19915, 197, 198sylancl 692 . . . 4 (𝜑 → (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2))))
200195, 196, 199mpbir2and 958 . . 3 (𝜑 → ((abs‘((𝐴 𝐵) ·ih 𝐶))↑2) = 0)
20114, 200sqeq0d 12734 . 2 (𝜑 → (abs‘((𝐴 𝐵) ·ih 𝐶)) = 0)
20212, 201abs00d 13888 1 (𝜑 → ((𝐴 𝐵) ·ih 𝐶) = 0)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382   = wceq 1474  wcel 1938  wral 2800   class class class wbr 4481  cfv 5689  (class class class)co 6425  cc 9687  cr 9688  0cc0 9689  1c1 9690   + caddc 9692   · cmul 9694   < clt 9827  cle 9828  cmin 10015  -cneg 10016   / cdiv 10431  2c2 10823  cz 11116  +crp 11570  cexp 12587  ccj 13539  abscabs 13677  chil 26978   + cva 26979   · csm 26980   ·ih csp 26981  normcno 26982   cmv 26984   S csh 26987   C cch 26988
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1700  ax-4 1713  ax-5 1793  ax-6 1838  ax-7 1885  ax-8 1940  ax-9 1947  ax-10 1966  ax-11 1971  ax-12 1983  ax-13 2137  ax-ext 2494  ax-sep 4607  ax-nul 4616  ax-pow 4668  ax-pr 4732  ax-un 6721  ax-cnex 9745  ax-resscn 9746  ax-1cn 9747  ax-icn 9748  ax-addcl 9749  ax-addrcl 9750  ax-mulcl 9751  ax-mulrcl 9752  ax-mulcom 9753  ax-addass 9754  ax-mulass 9755  ax-distr 9756  ax-i2m1 9757  ax-1ne0 9758  ax-1rid 9759  ax-rnegex 9760  ax-rrecex 9761  ax-cnre 9762  ax-pre-lttri 9763  ax-pre-lttrn 9764  ax-pre-ltadd 9765  ax-pre-mulgt0 9766  ax-pre-sup 9767  ax-hilex 27058  ax-hfvadd 27059  ax-hvass 27061  ax-hv0cl 27062  ax-hfvmul 27064  ax-hvdistr1 27067  ax-hvmul0 27069  ax-hfi 27138  ax-his1 27141  ax-his2 27142  ax-his3 27143  ax-his4 27144
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1699  df-sb 1831  df-eu 2366  df-mo 2367  df-clab 2501  df-cleq 2507  df-clel 2510  df-nfc 2644  df-ne 2686  df-nel 2687  df-ral 2805  df-rex 2806  df-reu 2807  df-rmo 2808  df-rab 2809  df-v 3079  df-sbc 3307  df-csb 3404  df-dif 3447  df-un 3449  df-in 3451  df-ss 3458  df-pss 3460  df-nul 3778  df-if 3940  df-pw 4013  df-sn 4029  df-pr 4031  df-tp 4033  df-op 4035  df-uni 4271  df-iun 4355  df-br 4482  df-opab 4542  df-mpt 4543  df-tr 4579  df-eprel 4843  df-id 4847  df-po 4853  df-so 4854  df-fr 4891  df-we 4893  df-xp 4938  df-rel 4939  df-cnv 4940  df-co 4941  df-dm 4942  df-rn 4943  df-res 4944  df-ima 4945  df-pred 5487  df-ord 5533  df-on 5534  df-lim 5535  df-suc 5536  df-iota 5653  df-fun 5691  df-fn 5692  df-f 5693  df-f1 5694  df-fo 5695  df-f1o 5696  df-fv 5697  df-riota 6387  df-ov 6428  df-oprab 6429  df-mpt2 6430  df-om 6832  df-2nd 6933  df-wrecs 7167  df-recs 7229  df-rdg 7267  df-er 7503  df-en 7716  df-dom 7717  df-sdom 7718  df-sup 8105  df-pnf 9829  df-mnf 9830  df-xr 9831  df-ltxr 9832  df-le 9833  df-sub 10017  df-neg 10018  df-div 10432  df-nn 10774  df-2 10832  df-3 10833  df-n0 11046  df-z 11117  df-uz 11424  df-rp 11571  df-seq 12529  df-exp 12588  df-cj 13542  df-re 13543  df-im 13544  df-sqrt 13678  df-abs 13679  df-hnorm 27027  df-hvsub 27030  df-sh 27266  df-ch 27280
This theorem is referenced by:  pjhthlem2  27453
  Copyright terms: Public domain W3C validator