pjhthlem1 - Hilbert Space Explorer

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

Theorem pjhthlem1 28949

Description: Lemma for pjhth 28951. (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**
Step	Hyp	Ref	Expression
1		pjhth.2	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℋ)
2		pjhth.3	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝐻)
3		pjhth.1	. . . . . 6 ⊢ 𝐻 ∈ C_ℋ
4	3	cheli 28788	. . . . 5 ⊢ (𝐵 ∈ 𝐻 → 𝐵 ∈ ℋ)
5	2, 4	syl 17	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℋ)
6		hvsubcl 28573	. . . 4 ⊢ ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ) → (𝐴 −_ℎ 𝐵) ∈ ℋ)
7	1, 5, 6	syl2anc 576	. . 3 ⊢ (𝜑 → (𝐴 −_ℎ 𝐵) ∈ ℋ)
8		pjhth.4	. . . 4 ⊢ (𝜑 → 𝐶 ∈ 𝐻)
9	3	cheli 28788	. . . 4 ⊢ (𝐶 ∈ 𝐻 → 𝐶 ∈ ℋ)
10	8, 9	syl 17	. . 3 ⊢ (𝜑 → 𝐶 ∈ ℋ)
11		hicl 28636	. . 3 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 −_ℎ 𝐵) ·_ih 𝐶) ∈ ℂ)
12	7, 10, 11	syl2anc 576	. 2 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih 𝐶) ∈ ℂ)
13	12	abscld 14657	. . . 4 ⊢ (𝜑 → (abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) ∈ ℝ)
14	13	recnd 10468	. . 3 ⊢ (𝜑 → (abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) ∈ ℂ)
15	13	resqcld 13426	. . . . . . 7 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ∈ ℝ)
16	15	renegcld 10868	. . . . . 6 ⊢ (𝜑 → -((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ∈ ℝ)
17		hiidrcl 28651	. . . . . . . . 9 ⊢ (𝐶 ∈ ℋ → (𝐶 ·_ih 𝐶) ∈ ℝ)
18	10, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐶 ·_ih 𝐶) ∈ ℝ)
19		2re 11514	. . . . . . . 8 ⊢ 2 ∈ ℝ
20		readdcl 10418	. . . . . . . 8 ⊢ (((𝐶 ·_ih 𝐶) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐶 ·_ih 𝐶) + 2) ∈ ℝ)
21	18, 19, 20	sylancl 577	. . . . . . 7 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 2) ∈ ℝ)
22		0red 10443	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
23		peano2re 10613	. . . . . . . . 9 ⊢ ((𝐶 ·_ih 𝐶) ∈ ℝ → ((𝐶 ·_ih 𝐶) + 1) ∈ ℝ)
24	18, 23	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) ∈ ℝ)
25		hiidge0 28654	. . . . . . . . . 10 ⊢ (𝐶 ∈ ℋ → 0 ≤ (𝐶 ·_ih 𝐶))
26	10, 25	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐶 ·_ih 𝐶))
27	18	ltp1d 11371	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 ·_ih 𝐶) < ((𝐶 ·_ih 𝐶) + 1))
28	22, 18, 24, 26, 27	lelttrd 10598	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐶 ·_ih 𝐶) + 1))
29	24	ltp1d 11371	. . . . . . . . 9 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) < (((𝐶 ·_ih 𝐶) + 1) + 1))
30	18	recnd 10468	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶 ·_ih 𝐶) ∈ ℂ)
31		ax-1cn 10393	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
32		addass 10422	. . . . . . . . . . . 12 ⊢ (((𝐶 ·_ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·_ih 𝐶) + 1) + 1) = ((𝐶 ·_ih 𝐶) + (1 + 1)))
33	31, 31, 32	mp3an23 1432	. . . . . . . . . . 11 ⊢ ((𝐶 ·_ih 𝐶) ∈ ℂ → (((𝐶 ·_ih 𝐶) + 1) + 1) = ((𝐶 ·_ih 𝐶) + (1 + 1)))
34	30, 33	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1) + 1) = ((𝐶 ·_ih 𝐶) + (1 + 1)))
35		df-2 11503	. . . . . . . . . . 11 ⊢ 2 = (1 + 1)
36	35	oveq2i 6987	. . . . . . . . . 10 ⊢ ((𝐶 ·_ih 𝐶) + 2) = ((𝐶 ·_ih 𝐶) + (1 + 1))
37	34, 36	syl6reqr 2833	. . . . . . . . 9 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 2) = (((𝐶 ·_ih 𝐶) + 1) + 1))
38	29, 37	breqtrrd 4957	. . . . . . . 8 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) < ((𝐶 ·_ih 𝐶) + 2))
39	22, 24, 21, 28, 38	lttrd 10601	. . . . . . 7 ⊢ (𝜑 → 0 < ((𝐶 ·_ih 𝐶) + 2))
40	21, 39	elrpd 12245	. . . . . 6 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 2) ∈ ℝ⁺)
41		oveq2 6984	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)) → (𝐴 −_ℎ 𝑥) = (𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶))))
42	41	fveq2d 6503	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)) → (norm_ℎ‘(𝐴 −_ℎ 𝑥)) = (norm_ℎ‘(𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)))))
43	42	breq2d 4941	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)) → ((norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘(𝐴 −_ℎ 𝑥)) ↔ (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘(𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶))))))
44		pjhth.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑥 ∈ 𝐻 (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘(𝐴 −_ℎ 𝑥)))
45	3	chshii 28783	. . . . . . . . . . . . . . 15 ⊢ 𝐻 ∈ S_ℋ
46	45	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐻 ∈ S_ℋ )
47		pjhth.6	. . . . . . . . . . . . . . . 16 ⊢ 𝑇 = (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1))
48	24	recnd 10468	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) ∈ ℂ)
49	18, 26	ge0p1rpd 12278	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) ∈ ℝ⁺)
50	49	rpne0d 12253	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 1) ≠ 0)
51	12, 48, 50	divcld 11217	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1)) ∈ ℂ)
52	47, 51	syl5eqel 2870	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑇 ∈ ℂ)
53		shmulcl 28774	. . . . . . . . . . . . . . 15 ⊢ ((𝐻 ∈ S_ℋ ∧ 𝑇 ∈ ℂ ∧ 𝐶 ∈ 𝐻) → (𝑇 ·_ℎ 𝐶) ∈ 𝐻)
54	46, 52, 8, 53	syl3anc 1351	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 ·_ℎ 𝐶) ∈ 𝐻)
55		shaddcl 28773	. . . . . . . . . . . . . 14 ⊢ ((𝐻 ∈ S_ℋ ∧ 𝐵 ∈ 𝐻 ∧ (𝑇 ·_ℎ 𝐶) ∈ 𝐻) → (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)) ∈ 𝐻)
56	46, 2, 54, 55	syl3anc 1351	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)) ∈ 𝐻)
57	43, 44, 56	rspcdva 3541	. . . . . . . . . . . 12 ⊢ (𝜑 → (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘(𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)))))
58	3	cheli 28788	. . . . . . . . . . . . . . 15 ⊢ ((𝑇 ·_ℎ 𝐶) ∈ 𝐻 → (𝑇 ·_ℎ 𝐶) ∈ ℋ)
59	54, 58	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 ·_ℎ 𝐶) ∈ ℋ)
60		hvsubass 28600	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℋ ∧ 𝐵 ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) = (𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶))))
61	1, 5, 59, 60	syl3anc 1351	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) = (𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶))))
62	61	fveq2d 6503	. . . . . . . . . . . 12 ⊢ (𝜑 → (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (norm_ℎ‘(𝐴 −_ℎ (𝐵 +_ℎ (𝑇 ·_ℎ 𝐶)))))
63	57, 62	breqtrrd 4957	. . . . . . . . . . 11 ⊢ (𝜑 → (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))
64		normcl 28681	. . . . . . . . . . . . 13 ⊢ ((𝐴 −_ℎ 𝐵) ∈ ℋ → (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ∈ ℝ)
65	7, 64	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (norm_ℎ‘(𝐴 −_ℎ 𝐵)) ∈ ℝ)
66		hvsubcl 28573	. . . . . . . . . . . . . 14 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ∈ ℋ)
67	7, 59, 66	syl2anc 576	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ∈ ℋ)
68		normcl 28681	. . . . . . . . . . . . 13 ⊢ (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ∈ ℋ → (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) ∈ ℝ)
69	67, 68	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) ∈ ℝ)
70		normge0 28682	. . . . . . . . . . . . 13 ⊢ ((𝐴 −_ℎ 𝐵) ∈ ℋ → 0 ≤ (norm_ℎ‘(𝐴 −_ℎ 𝐵)))
71	7, 70	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (norm_ℎ‘(𝐴 −_ℎ 𝐵)))
72	22, 65, 69, 71, 63	letrd 10597	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))
73	65, 69, 71, 72	le2sqd 13435	. . . . . . . . . . 11 ⊢ (𝜑 → ((norm_ℎ‘(𝐴 −_ℎ 𝐵)) ≤ (norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) ↔ ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) ≤ ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2)))
74	63, 73	mpbid 224	. . . . . . . . . 10 ⊢ (𝜑 → ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) ≤ ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2))
75	69	resqcld 13426	. . . . . . . . . . 11 ⊢ (𝜑 → ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) ∈ ℝ)
76	65	resqcld 13426	. . . . . . . . . . 11 ⊢ (𝜑 → ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) ∈ ℝ)
77	75, 76	subge0d 11031	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) − ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2)) ↔ ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) ≤ ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2)))
78	74, 77	mpbird 249	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) − ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2)))
79		2z 11827	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℤ
80		rpexpcl 13263	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐶 ·_ih 𝐶) + 1) ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (((𝐶 ·_ih 𝐶) + 1)↑2) ∈ ℝ⁺)
81	49, 79, 80	sylancl 577	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1)↑2) ∈ ℝ⁺)
82	15, 81	rerpdivcld 12279	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) ∈ ℝ)
83	82, 21	remulcld 10470	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) ∈ ℝ)
84	83	recnd 10468	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) ∈ ℂ)
85	84	negcld 10785	. . . . . . . . . . 11 ⊢ (𝜑 → -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) ∈ ℂ)
86		hicl 28636	. . . . . . . . . . . 12 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝐴 −_ℎ 𝐵) ∈ ℋ) → ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) ∈ ℂ)
87	7, 7, 86	syl2anc 576	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) ∈ ℂ)
88	85, 87	pncand 10799	. . . . . . . . . 10 ⊢ (𝜑 → ((-((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) + ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))) − ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))) = -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)))
89		normsq 28690	. . . . . . . . . . . . . 14 ⊢ (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ∈ ℋ → ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) = (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))
90	67, 89	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) = (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))
91		his2sub 28648	. . . . . . . . . . . . . 14 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ ∧ ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ∈ ℋ) → (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))))
92	7, 59, 67, 91	syl3anc 1351	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))))
93		his2sub2 28649	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶))))
94	7, 7, 59, 93	syl3anc 1351	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶))))
95	94	oveq1d 6991	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))) = ((((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))))
96		hicl 28636	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℂ)
97	7, 59, 96	syl2anc 576	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℂ)
98		his2sub2 28649	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑇 ·_ℎ 𝐶) ∈ ℋ ∧ (𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶))))
99	59, 7, 59, 98	syl3anc 1351	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = (((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶))))
100		hicl 28636	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑇 ·_ℎ 𝐶) ∈ ℋ ∧ (𝐴 −_ℎ 𝐵) ∈ ℋ) → ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) ∈ ℂ)
101	59, 7, 100	syl2anc 576	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) ∈ ℂ)
102		hicl 28636	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑇 ·_ℎ 𝐶) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℂ)
103	59, 59, 102	syl2anc 576	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℂ)
104	101, 103	subcld 10798	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶))) ∈ ℂ)
105	99, 104	eqeltrd 2866	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) ∈ ℂ)
106	87, 97, 105	subsub4d 10829	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) + ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))))
107	82	recnd 10468	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) ∈ ℂ)
108	31	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ∈ ℂ)
109	107, 48, 108	adddid 10464	. . . . . . . . . . . . . . . 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)))
110	37	oveq2d 6992	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (((𝐶 ·_ih 𝐶) + 1) + 1)))
111		his5 28642	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑇 ∈ ℂ ∧ (𝐴 −_ℎ 𝐵) ∈ ℋ ∧ 𝐶 ∈ ℋ) → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((∗‘𝑇) · ((𝐴 −_ℎ 𝐵) ·_ih 𝐶)))
112	52, 7, 10, 111	syl3anc 1351	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((∗‘𝑇) · ((𝐴 −_ℎ 𝐵) ·_ih 𝐶)))
113	52	cjcld 14416	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘𝑇) ∈ ℂ)
114	113, 12	mulcomd 10461	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((∗‘𝑇) · ((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) = (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘𝑇)))
115	12	cjcld 14416	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) ∈ ℂ)
116	12, 115, 48, 50	divassd 11252	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))) / ((𝐶 ·_ih 𝐶) + 1)) = (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1))))
117	12	absvalsqd 14663	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) = (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))))
118	117	oveq1d 6991	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / ((𝐶 ·_ih 𝐶) + 1)) = ((((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))) / ((𝐶 ·_ih 𝐶) + 1)))
119	47	fveq2i 6502	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∗‘𝑇) = (∗‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1)))
120	12, 48, 50	cjdivd 14443	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (∗‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1))) = ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / (∗‘((𝐶 ·_ih 𝐶) + 1))))
121	24	cjred 14446	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (∗‘((𝐶 ·_ih 𝐶) + 1)) = ((𝐶 ·_ih 𝐶) + 1))
122	121	oveq2d 6992	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / (∗‘((𝐶 ·_ih 𝐶) + 1))) = ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
123	120, 122	eqtrd 2814	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (∗‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1))) = ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
124	119, 123	syl5eq 2826	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘𝑇) = ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
125	124	oveq2d 6992	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘𝑇)) = (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · ((∗‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1))))
126	116, 118, 125	3eqtr4rd 2825	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih 𝐶) · (∗‘𝑇)) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / ((𝐶 ·_ih 𝐶) + 1)))
127	112, 114, 126	3eqtrd 2818	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / ((𝐶 ·_ih 𝐶) + 1)))
128	15	recnd 10468	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ∈ ℂ)
129	128, 48	mulcomd 10461	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 1)) = (((𝐶 ·_ih 𝐶) + 1) · ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2)))
130	48	sqvald 13322	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1)↑2) = (((𝐶 ·_ih 𝐶) + 1) · ((𝐶 ·_ih 𝐶) + 1)))
131	129, 130	oveq12d 6994	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 1)) / (((𝐶 ·_ih 𝐶) + 1)↑2)) = ((((𝐶 ·_ih 𝐶) + 1) · ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2)) / (((𝐶 ·_ih 𝐶) + 1) · ((𝐶 ·_ih 𝐶) + 1))))
132	128, 48, 48, 50, 50	divcan5d 11243	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((𝐶 ·_ih 𝐶) + 1) · ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2)) / (((𝐶 ·_ih 𝐶) + 1) · ((𝐶 ·_ih 𝐶) + 1))) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / ((𝐶 ·_ih 𝐶) + 1)))
133	131, 132	eqtr2d 2815	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / ((𝐶 ·_ih 𝐶) + 1)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 1)) / (((𝐶 ·_ih 𝐶) + 1)↑2)))
134	24	resqcld 13426	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1)↑2) ∈ ℝ)
135	134	recnd 10468	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1)↑2) ∈ ℂ)
136	81	rpne0d 12253	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1)↑2) ≠ 0)
137	128, 48, 135, 136	div23d 11254	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 1)) / (((𝐶 ·_ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)))
138	127, 133, 137	3eqtrd 2818	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)))
139	82, 24	remulcld 10470	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)) ∈ ℝ)
140	138, 139	eqeltrd 2866	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℝ)
141		hire 28650	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐴 −_ℎ 𝐵) ∈ ℋ ∧ (𝑇 ·_ℎ 𝐶) ∈ ℋ) → (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℝ ↔ ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵))))
142	7, 59, 141	syl2anc 576	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) ∈ ℝ ↔ ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵))))
143	140, 142	mpbid 224	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) = ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)))
144	143, 138	eqtr3d 2816	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)))
145		his35 28644	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑇 ∈ ℂ ∧ 𝑇 ∈ ℂ) ∧ (𝐶 ∈ ℋ ∧ 𝐶 ∈ ℋ)) → ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·_ih 𝐶)))
146	52, 52, 10, 10, 145	syl22anc 826	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶)) = ((𝑇 · (∗‘𝑇)) · (𝐶 ·_ih 𝐶)))
147	47	fveq2i 6502	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (abs‘𝑇) = (abs‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1)))
148	12, 48, 50	absdivd 14676	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (abs‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1))) = ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / (abs‘((𝐶 ·_ih 𝐶) + 1))))
149	49	rpge0d 12252	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ ((𝐶 ·_ih 𝐶) + 1))
150	24, 149	absidd 14643	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (abs‘((𝐶 ·_ih 𝐶) + 1)) = ((𝐶 ·_ih 𝐶) + 1))
151	150	oveq2d 6992	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / (abs‘((𝐶 ·_ih 𝐶) + 1))) = ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
152	148, 151	eqtrd 2814	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (abs‘(((𝐴 −_ℎ 𝐵) ·_ih 𝐶) / ((𝐶 ·_ih 𝐶) + 1))) = ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
153	147, 152	syl5eq 2826	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (abs‘𝑇) = ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1)))
154	153	oveq1d 6991	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1))↑2))
155	52	absvalsqd 14663	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
156	14, 48, 50	sqdivd 13338	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) / ((𝐶 ·_ih 𝐶) + 1))↑2) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)))
157	154, 155, 156	3eqtr3d 2822	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)))
158	157	oveq1d 6991	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐶 ·_ih 𝐶)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (𝐶 ·_ih 𝐶)))
159	146, 158	eqtrd 2814	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (𝐶 ·_ih 𝐶)))
160	144, 159	oveq12d 6994	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑇 ·_ℎ 𝐶) ·_ih (𝐴 −_ℎ 𝐵)) − ((𝑇 ·_ℎ 𝐶) ·_ih (𝑇 ·_ℎ 𝐶))) = (((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (𝐶 ·_ih 𝐶))))
161		pncan2 10693	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐶 ·_ih 𝐶) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐶 ·_ih 𝐶) + 1) − (𝐶 ·_ih 𝐶)) = 1)
162	30, 31, 161	sylancl 577	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶 ·_ih 𝐶) + 1) − (𝐶 ·_ih 𝐶)) = 1)
163	162	oveq2d 6992	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (((𝐶 ·_ih 𝐶) + 1) − (𝐶 ·_ih 𝐶))) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · 1))
164	107, 48, 30	subdid 10897	. . . . . . . . . . . . . . . . . . 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 𝐶))))
165	163, 164	eqtr3d 2816	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · 1) = (((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · (𝐶 ·_ih 𝐶))))
166	160, 99, 165	3eqtr4d 2824	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · 1))
167	138, 166	oveq12d 6994	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) + ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))) = (((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 1)) + ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · 1)))
168	109, 110, 167	3eqtr4rd 2825	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) + ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)))
169	168	oveq2d 6992	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − (((𝐴 −_ℎ 𝐵) ·_ih (𝑇 ·_ℎ 𝐶)) + ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))))
170	95, 106, 169	3eqtrd 2818	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶))) − ((𝑇 ·_ℎ 𝐶) ·_ih ((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))))
171	90, 92, 170	3eqtrd 2818	. . . . . . . . . . . 12 ⊢ (𝜑 → ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))))
172	87, 84	negsubd 10804	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) + -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))) = (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) − ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))))
173	87, 85	addcomd 10642	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)) + -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2))) = (-((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) + ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))))
174	171, 172, 173	3eqtr2d 2820	. . . . . . . . . . 11 ⊢ (𝜑 → ((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) = (-((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) + ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))))
175		normsq 28690	. . . . . . . . . . . 12 ⊢ ((𝐴 −_ℎ 𝐵) ∈ ℋ → ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) = ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)))
176	7, 175	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2) = ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵)))
177	174, 176	oveq12d 6994	. . . . . . . . . 10 ⊢ (𝜑 → (((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) − ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2)) = ((-((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)) + ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))) − ((𝐴 −_ℎ 𝐵) ·_ih (𝐴 −_ℎ 𝐵))))
178	21	renegcld 10868	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝐶 ·_ih 𝐶) + 2) ∈ ℝ)
179	178	recnd 10468	. . . . . . . . . . . 12 ⊢ (𝜑 → -((𝐶 ·_ih 𝐶) + 2) ∈ ℂ)
180	128, 179, 135, 136	div23d 11254	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) / (((𝐶 ·_ih 𝐶) + 1)↑2)) = ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · -((𝐶 ·_ih 𝐶) + 2)))
181	21	recnd 10468	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐶 ·_ih 𝐶) + 2) ∈ ℂ)
182	107, 181	mulneg2d 10895	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · -((𝐶 ·_ih 𝐶) + 2)) = -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)))
183	180, 182	eqtrd 2814	. . . . . . . . . 10 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) / (((𝐶 ·_ih 𝐶) + 1)↑2)) = -((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) / (((𝐶 ·_ih 𝐶) + 1)↑2)) · ((𝐶 ·_ih 𝐶) + 2)))
184	88, 177, 183	3eqtr4rd 2825	. . . . . . . . 9 ⊢ (𝜑 → ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) / (((𝐶 ·_ih 𝐶) + 1)↑2)) = (((norm_ℎ‘((𝐴 −_ℎ 𝐵) −_ℎ (𝑇 ·_ℎ 𝐶)))↑2) − ((norm_ℎ‘(𝐴 −_ℎ 𝐵))↑2)))
185	78, 184	breqtrrd 4957	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) / (((𝐶 ·_ih 𝐶) + 1)↑2)))
186	15, 178	remulcld 10470	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) ∈ ℝ)
187	186, 81	ge0divd 12286	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) ↔ 0 ≤ ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)) / (((𝐶 ·_ih 𝐶) + 1)↑2))))
188	185, 187	mpbird 249	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)))
189		mulneg12 10879	. . . . . . . 8 ⊢ ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ∈ ℂ ∧ ((𝐶 ·_ih 𝐶) + 2) ∈ ℂ) → (-((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 2)) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)))
190	128, 181, 189	syl2anc 576	. . . . . . 7 ⊢ (𝜑 → (-((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 2)) = (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · -((𝐶 ·_ih 𝐶) + 2)))
191	188, 190	breqtrrd 4957	. . . . . 6 ⊢ (𝜑 → 0 ≤ (-((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) · ((𝐶 ·_ih 𝐶) + 2)))
192	16, 40, 191	prodge0ld 12314	. . . . 5 ⊢ (𝜑 → 0 ≤ -((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2))
193	15	le0neg1d 11012	. . . . 5 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ≤ 0 ↔ 0 ≤ -((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2)))
194	192, 193	mpbird 249	. . . 4 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ≤ 0)
195	13	sqge0d 13427	. . . 4 ⊢ (𝜑 → 0 ≤ ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2))
196		0re 10441	. . . . 5 ⊢ 0 ∈ ℝ
197		letri3 10526	. . . . 5 ⊢ ((((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2))))
198	15, 196, 197	sylancl 577	. . . 4 ⊢ (𝜑 → (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) = 0 ↔ (((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) ≤ 0 ∧ 0 ≤ ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2))))
199	194, 195, 198	mpbir2and 700	. . 3 ⊢ (𝜑 → ((abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶))↑2) = 0)
200	14, 199	sqeq0d 13324	. 2 ⊢ (𝜑 → (abs‘((𝐴 −_ℎ 𝐵) ·_ih 𝐶)) = 0)
201	12, 200	abs00d 14667	1 ⊢ (𝜑 → ((𝐴 −_ℎ 𝐵) ·_ih 𝐶) = 0)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 198 ∧ wa 387 = wceq 1507 ∈ wcel 2050 ∀wral 3088 class class class wbr 4929 ‘cfv 6188 (class class class)co 6976 ℂcc 10333 ℝcr 10334 0cc0 10335 1c1 10336 + caddc 10338 · cmul 10340 < clt 10474 ≤ cle 10475 − cmin 10670 -cneg 10671 / cdiv 11098 2c2 11495 ℤcz 11793 ℝ⁺crp 12204 ↑cexp 13244 ∗ccj 14316 abscabs 14454 ℋchba 28475 +_ℎ cva 28476 ·_ℎ csm 28477 ·_ih csp 28478 norm_ℎcno 28479 −_ℎ cmv 28481 S_ℋ csh 28484 C_ℋ cch 28485

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1758 ax-4 1772 ax-5 1869 ax-6 1928 ax-7 1965 ax-8 2052 ax-9 2059 ax-10 2079 ax-11 2093 ax-12 2106 ax-13 2301 ax-ext 2750 ax-sep 5060 ax-nul 5067 ax-pow 5119 ax-pr 5186 ax-un 7279 ax-cnex 10391 ax-resscn 10392 ax-1cn 10393 ax-icn 10394 ax-addcl 10395 ax-addrcl 10396 ax-mulcl 10397 ax-mulrcl 10398 ax-mulcom 10399 ax-addass 10400 ax-mulass 10401 ax-distr 10402 ax-i2m1 10403 ax-1ne0 10404 ax-1rid 10405 ax-rnegex 10406 ax-rrecex 10407 ax-cnre 10408 ax-pre-lttri 10409 ax-pre-lttrn 10410 ax-pre-ltadd 10411 ax-pre-mulgt0 10412 ax-pre-sup 10413 ax-hilex 28555 ax-hfvadd 28556 ax-hvass 28558 ax-hv0cl 28559 ax-hfvmul 28561 ax-hvdistr1 28564 ax-hvmul0 28566 ax-hfi 28635 ax-his1 28638 ax-his2 28639 ax-his3 28640 ax-his4 28641

This theorem depends on definitions: df-bi 199 df-an 388 df-or 834 df-3or 1069 df-3an 1070 df-tru 1510 df-ex 1743 df-nf 1747 df-sb 2016 df-mo 2547 df-eu 2584 df-clab 2759 df-cleq 2771 df-clel 2846 df-nfc 2918 df-ne 2968 df-nel 3074 df-ral 3093 df-rex 3094 df-reu 3095 df-rmo 3096 df-rab 3097 df-v 3417 df-sbc 3682 df-csb 3787 df-dif 3832 df-un 3834 df-in 3836 df-ss 3843 df-pss 3845 df-nul 4179 df-if 4351 df-pw 4424 df-sn 4442 df-pr 4444 df-tp 4446 df-op 4448 df-uni 4713 df-iun 4794 df-br 4930 df-opab 4992 df-mpt 5009 df-tr 5031 df-id 5312 df-eprel 5317 df-po 5326 df-so 5327 df-fr 5366 df-we 5368 df-xp 5413 df-rel 5414 df-cnv 5415 df-co 5416 df-dm 5417 df-rn 5418 df-res 5419 df-ima 5420 df-pred 5986 df-ord 6032 df-on 6033 df-lim 6034 df-suc 6035 df-iota 6152 df-fun 6190 df-fn 6191 df-f 6192 df-f1 6193 df-fo 6194 df-f1o 6195 df-fv 6196 df-riota 6937 df-ov 6979 df-oprab 6980 df-mpo 6981 df-om 7397 df-2nd 7502 df-wrecs 7750 df-recs 7812 df-rdg 7850 df-er 8089 df-en 8307 df-dom 8308 df-sdom 8309 df-sup 8701 df-pnf 10476 df-mnf 10477 df-xr 10478 df-ltxr 10479 df-le 10480 df-sub 10672 df-neg 10673 df-div 11099 df-nn 11440 df-2 11503 df-3 11504 df-n0 11708 df-z 11794 df-uz 12059 df-rp 12205 df-seq 13185 df-exp 13245 df-cj 14319 df-re 14320 df-im 14321 df-sqrt 14455 df-abs 14456 df-hnorm 28524 df-hvsub 28527 df-sh 28763 df-ch 28777

This theorem is referenced by: pjhthlem2 28950

W3C validator