MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ipcau2 Structured version   Visualization version   GIF version

Theorem ipcau2 24504
Description: The Cauchy-Schwarz inequality for a subcomplex pre-Hilbert space built from a pre-Hilbert space with certain properties. The main theorem is ipcau 24508. (Contributed by Mario Carneiro, 11-Oct-2015.)
Hypotheses
Ref Expression
tcphval.n 𝐺 = (toℂPreHil‘𝑊)
tcphcph.v 𝑉 = (Base‘𝑊)
tcphcph.f 𝐹 = (Scalar‘𝑊)
tcphcph.1 (𝜑𝑊 ∈ PreHil)
tcphcph.2 (𝜑𝐹 = (ℂflds 𝐾))
tcphcph.h , = (·𝑖𝑊)
tcphcph.3 ((𝜑 ∧ (𝑥𝐾𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ 𝐾)
tcphcph.4 ((𝜑𝑥𝑉) → 0 ≤ (𝑥 , 𝑥))
tcphcph.k 𝐾 = (Base‘𝐹)
ipcau2.n 𝑁 = (norm‘𝐺)
ipcau2.c 𝐶 = ((𝑌 , 𝑋) / (𝑌 , 𝑌))
ipcau2.3 (𝜑𝑋𝑉)
ipcau2.4 (𝜑𝑌𝑉)
Assertion
Ref Expression
ipcau2 (𝜑 → (abs‘(𝑋 , 𝑌)) ≤ ((𝑁𝑋) · (𝑁𝑌)))
Distinct variable groups:   𝑥, ,   𝑥,𝐹   𝑥,𝐺   𝑥,𝑉   𝑥,𝐶   𝜑,𝑥   𝑥,𝑊   𝑥,𝑋   𝑥,𝑌
Allowed substitution hints:   𝐾(𝑥)   𝑁(𝑥)

Proof of Theorem ipcau2
StepHypRef Expression
1 oveq2 7345 . . . . . . 7 (𝑌 = (0g𝑊) → (𝑋 , 𝑌) = (𝑋 , (0g𝑊)))
21oveq1d 7352 . . . . . 6 (𝑌 = (0g𝑊) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) = ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)))
32breq1d 5102 . . . . 5 (𝑌 = (0g𝑊) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)) ↔ ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
4 tcphval.n . . . . . . . . . . . . 13 𝐺 = (toℂPreHil‘𝑊)
5 tcphcph.v . . . . . . . . . . . . 13 𝑉 = (Base‘𝑊)
6 tcphcph.f . . . . . . . . . . . . 13 𝐹 = (Scalar‘𝑊)
7 tcphcph.1 . . . . . . . . . . . . 13 (𝜑𝑊 ∈ PreHil)
8 tcphcph.2 . . . . . . . . . . . . 13 (𝜑𝐹 = (ℂflds 𝐾))
94, 5, 6, 7, 8phclm 24502 . . . . . . . . . . . 12 (𝜑𝑊 ∈ ℂMod)
10 tcphcph.k . . . . . . . . . . . . 13 𝐾 = (Base‘𝐹)
116, 10clmsscn 24348 . . . . . . . . . . . 12 (𝑊 ∈ ℂMod → 𝐾 ⊆ ℂ)
129, 11syl 17 . . . . . . . . . . 11 (𝜑𝐾 ⊆ ℂ)
13 ipcau2.3 . . . . . . . . . . . 12 (𝜑𝑋𝑉)
14 ipcau2.4 . . . . . . . . . . . 12 (𝜑𝑌𝑉)
15 tcphcph.h . . . . . . . . . . . . 13 , = (·𝑖𝑊)
166, 15, 5, 10ipcl 20944 . . . . . . . . . . . 12 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑌𝑉) → (𝑋 , 𝑌) ∈ 𝐾)
177, 13, 14, 16syl3anc 1370 . . . . . . . . . . 11 (𝜑 → (𝑋 , 𝑌) ∈ 𝐾)
1812, 17sseldd 3933 . . . . . . . . . 10 (𝜑 → (𝑋 , 𝑌) ∈ ℂ)
1918adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑌) ∈ ℂ)
206, 15, 5, 10ipcl 20944 . . . . . . . . . . . 12 ((𝑊 ∈ PreHil ∧ 𝑌𝑉𝑋𝑉) → (𝑌 , 𝑋) ∈ 𝐾)
217, 14, 13, 20syl3anc 1370 . . . . . . . . . . 11 (𝜑 → (𝑌 , 𝑋) ∈ 𝐾)
2212, 21sseldd 3933 . . . . . . . . . 10 (𝜑 → (𝑌 , 𝑋) ∈ ℂ)
2322adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑋) ∈ ℂ)
244, 5, 6, 7, 8, 15tcphcphlem3 24503 . . . . . . . . . . . 12 ((𝜑𝑌𝑉) → (𝑌 , 𝑌) ∈ ℝ)
2514, 24mpdan 684 . . . . . . . . . . 11 (𝜑 → (𝑌 , 𝑌) ∈ ℝ)
2625recnd 11104 . . . . . . . . . 10 (𝜑 → (𝑌 , 𝑌) ∈ ℂ)
2726adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ ℂ)
286clm0 24341 . . . . . . . . . . . . . 14 (𝑊 ∈ ℂMod → 0 = (0g𝐹))
299, 28syl 17 . . . . . . . . . . . . 13 (𝜑 → 0 = (0g𝐹))
3029eqeq2d 2747 . . . . . . . . . . . 12 (𝜑 → ((𝑌 , 𝑌) = 0 ↔ (𝑌 , 𝑌) = (0g𝐹)))
31 eqid 2736 . . . . . . . . . . . . . 14 (0g𝐹) = (0g𝐹)
32 eqid 2736 . . . . . . . . . . . . . 14 (0g𝑊) = (0g𝑊)
336, 15, 5, 31, 32ipeq0 20949 . . . . . . . . . . . . 13 ((𝑊 ∈ PreHil ∧ 𝑌𝑉) → ((𝑌 , 𝑌) = (0g𝐹) ↔ 𝑌 = (0g𝑊)))
347, 14, 33syl2anc 584 . . . . . . . . . . . 12 (𝜑 → ((𝑌 , 𝑌) = (0g𝐹) ↔ 𝑌 = (0g𝑊)))
3530, 34bitrd 278 . . . . . . . . . . 11 (𝜑 → ((𝑌 , 𝑌) = 0 ↔ 𝑌 = (0g𝑊)))
3635necon3bid 2985 . . . . . . . . . 10 (𝜑 → ((𝑌 , 𝑌) ≠ 0 ↔ 𝑌 ≠ (0g𝑊)))
3736biimpar 478 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ≠ 0)
3819, 23, 27, 37divassd 11887 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌))))
39 ipcau2.c . . . . . . . . 9 𝐶 = ((𝑌 , 𝑋) / (𝑌 , 𝑌))
4039oveq2i 7348 . . . . . . . 8 ((𝑋 , 𝑌) · 𝐶) = ((𝑋 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌)))
4138, 40eqtr4di 2794 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · 𝐶))
42 oveq12 7346 . . . . . . . . . . . 12 ((𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∧ 𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) → (𝑥 , 𝑥) = ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
4342anidms 567 . . . . . . . . . . 11 (𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) → (𝑥 , 𝑥) = ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
4443breq2d 5104 . . . . . . . . . 10 (𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)))))
45 tcphcph.4 . . . . . . . . . . . 12 ((𝜑𝑥𝑉) → 0 ≤ (𝑥 , 𝑥))
4645ralrimiva 3139 . . . . . . . . . . 11 (𝜑 → ∀𝑥𝑉 0 ≤ (𝑥 , 𝑥))
4746adantr 481 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → ∀𝑥𝑉 0 ≤ (𝑥 , 𝑥))
48 phllmod 20941 . . . . . . . . . . . . 13 (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
497, 48syl 17 . . . . . . . . . . . 12 (𝜑𝑊 ∈ LMod)
5049adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ LMod)
5113adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑋𝑉)
5239fveq2i 6828 . . . . . . . . . . . . . . 15 (∗‘𝐶) = (∗‘((𝑌 , 𝑋) / (𝑌 , 𝑌)))
5323, 27, 37cjdivd 15033 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘((𝑌 , 𝑋) / (𝑌 , 𝑌))) = ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))))
5452, 53eqtrid 2788 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))))
558fveq2d 6829 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (*𝑟𝐹) = (*𝑟‘(ℂflds 𝐾)))
5610fvexi 6839 . . . . . . . . . . . . . . . . . . . . . 22 𝐾 ∈ V
57 eqid 2736 . . . . . . . . . . . . . . . . . . . . . . 23 (ℂflds 𝐾) = (ℂflds 𝐾)
58 cnfldcj 20710 . . . . . . . . . . . . . . . . . . . . . . 23 ∗ = (*𝑟‘ℂfld)
5957, 58ressstarv 17115 . . . . . . . . . . . . . . . . . . . . . 22 (𝐾 ∈ V → ∗ = (*𝑟‘(ℂflds 𝐾)))
6056, 59ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 ∗ = (*𝑟‘(ℂflds 𝐾))
6155, 60eqtr4di 2794 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (*𝑟𝐹) = ∗)
6261fveq1d 6827 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (∗‘(𝑋 , 𝑌)))
63 eqid 2736 . . . . . . . . . . . . . . . . . . . . 21 (*𝑟𝐹) = (*𝑟𝐹)
646, 15, 5, 63ipcj 20945 . . . . . . . . . . . . . . . . . . . 20 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑌𝑉) → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
657, 13, 14, 64syl3anc 1370 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6662, 65eqtr3d 2778 . . . . . . . . . . . . . . . . . 18 (𝜑 → (∗‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6766adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6867fveq2d 6829 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(∗‘(𝑋 , 𝑌))) = (∗‘(𝑌 , 𝑋)))
6919cjcjd 15009 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(∗‘(𝑋 , 𝑌))) = (𝑋 , 𝑌))
7068, 69eqtr3d 2778 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑌 , 𝑋)) = (𝑋 , 𝑌))
7125adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ ℝ)
7271cjred 15036 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑌 , 𝑌)) = (𝑌 , 𝑌))
7370, 72oveq12d 7355 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))) = ((𝑋 , 𝑌) / (𝑌 , 𝑌)))
7419, 27, 37divrecd 11855 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))))
7554, 73, 743eqtrd 2780 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))))
769adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ ℂMod)
7717adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑌) ∈ 𝐾)
786, 15, 5, 10ipcl 20944 . . . . . . . . . . . . . . . . 17 ((𝑊 ∈ PreHil ∧ 𝑌𝑉𝑌𝑉) → (𝑌 , 𝑌) ∈ 𝐾)
797, 14, 14, 78syl3anc 1370 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑌 , 𝑌) ∈ 𝐾)
8079adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ 𝐾)
818adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐹 = (ℂflds 𝐾))
82 phllvec 20940 . . . . . . . . . . . . . . . . . . 19 (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
837, 82syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝑊 ∈ LVec)
846lvecdrng 20473 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
8583, 84syl 17 . . . . . . . . . . . . . . . . 17 (𝜑𝐹 ∈ DivRing)
8685adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐹 ∈ DivRing)
8710, 81, 86cphreccllem 24448 . . . . . . . . . . . . . . 15 (((𝜑𝑌 ≠ (0g𝑊)) ∧ (𝑌 , 𝑌) ∈ 𝐾 ∧ (𝑌 , 𝑌) ≠ 0) → (1 / (𝑌 , 𝑌)) ∈ 𝐾)
8880, 37, 87mpd3an23 1462 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (1 / (𝑌 , 𝑌)) ∈ 𝐾)
896, 10clmmcl 24354 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑌) ∈ 𝐾 ∧ (1 / (𝑌 , 𝑌)) ∈ 𝐾) → ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
9076, 77, 88, 89syl3anc 1370 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
9175, 90eqeltrd 2837 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) ∈ 𝐾)
9214adantr 481 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑌𝑉)
93 eqid 2736 . . . . . . . . . . . . 13 ( ·𝑠𝑊) = ( ·𝑠𝑊)
945, 6, 93, 10lmodvscl 20246 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ (∗‘𝐶) ∈ 𝐾𝑌𝑉) → ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)
9550, 91, 92, 94syl3anc 1370 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)
96 eqid 2736 . . . . . . . . . . . 12 (-g𝑊) = (-g𝑊)
975, 96lmodvsubcl 20274 . . . . . . . . . . 11 ((𝑊 ∈ LMod ∧ 𝑋𝑉 ∧ ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉) → (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∈ 𝑉)
9850, 51, 95, 97syl3anc 1370 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∈ 𝑉)
9944, 47, 98rspcdva 3571 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
100 eqid 2736 . . . . . . . . . . 11 (-g𝐹) = (-g𝐹)
101 eqid 2736 . . . . . . . . . . 11 (+g𝐹) = (+g𝐹)
1027adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ PreHil)
1036, 15, 5, 96, 100, 101, 102, 51, 95, 51, 95ip2subdi 20955 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) = (((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))(-g𝐹)((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋))))
10481fveq2d 6829 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (+g𝐹) = (+g‘(ℂflds 𝐾)))
105 cnfldadd 20708 . . . . . . . . . . . . . . 15 + = (+g‘ℂfld)
10657, 105ressplusg 17097 . . . . . . . . . . . . . 14 (𝐾 ∈ V → + = (+g‘(ℂflds 𝐾)))
10756, 106ax-mp 5 . . . . . . . . . . . . 13 + = (+g‘(ℂflds 𝐾))
108104, 107eqtr4di 2794 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (+g𝐹) = + )
109 eqidd 2737 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) = (𝑋 , 𝑋))
110 eqid 2736 . . . . . . . . . . . . . . 15 (.r𝐹) = (.r𝐹)
1116, 15, 5, 10, 93, 110ipass 20956 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ ((∗‘𝐶) ∈ 𝐾𝑌𝑉 ∧ ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))))
112102, 91, 92, 95, 111syl13anc 1371 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))))
11381fveq2d 6829 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (.r𝐹) = (.r‘(ℂflds 𝐾)))
114 cnfldmul 20709 . . . . . . . . . . . . . . . . 17 · = (.r‘ℂfld)
11557, 114ressmulr 17114 . . . . . . . . . . . . . . . 16 (𝐾 ∈ V → · = (.r‘(ℂflds 𝐾)))
11656, 115ax-mp 5 . . . . . . . . . . . . . . 15 · = (.r‘(ℂflds 𝐾))
117113, 116eqtr4di 2794 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (.r𝐹) = · )
118 eqidd 2737 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = (∗‘𝐶))
11923, 27, 37divrecd 11855 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑋) / (𝑌 , 𝑌)) = ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))))
12039, 119eqtrid 2788 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐶 = ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))))
12121adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑋) ∈ 𝐾)
1226, 10clmmcl 24354 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ ℂMod ∧ (𝑌 , 𝑋) ∈ 𝐾 ∧ (1 / (𝑌 , 𝑌)) ∈ 𝐾) → ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
12376, 121, 88, 122syl3anc 1370 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
124120, 123eqeltrd 2837 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐶𝐾)
1256, 15, 5, 10, 93, 110, 63ipassr2 20958 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ PreHil ∧ (𝑌𝑉𝑌𝑉𝐶𝐾)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
126102, 92, 92, 124, 125syl13anc 1371 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
127117oveqd 7354 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = ((𝑌 , 𝑌) · 𝐶))
12839oveq2i 7348 . . . . . . . . . . . . . . . . 17 ((𝑌 , 𝑌) · 𝐶) = ((𝑌 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌)))
12923, 27, 37divcan2d 11854 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌))) = (𝑌 , 𝑋))
130128, 129eqtrid 2788 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌) · 𝐶) = (𝑌 , 𝑋))
131127, 130eqtrd 2776 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , 𝑋))
13261adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → (*𝑟𝐹) = ∗)
133132fveq1d 6827 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((*𝑟𝐹)‘𝐶) = (∗‘𝐶))
134133oveq1d 7352 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌) = ((∗‘𝐶)( ·𝑠𝑊)𝑌))
135134oveq2d 7353 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))
136126, 131, 1353eqtr3rd 2785 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑌 , 𝑋))
137117, 118, 136oveq123d 7358 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((∗‘𝐶) · (𝑌 , 𝑋)))
138112, 137eqtrd 2776 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶) · (𝑌 , 𝑋)))
139108, 109, 138oveq123d 7358 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))))
1406, 15, 5, 10, 93, 110, 63ipassr2 20958 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ (𝑋𝑉𝑌𝑉𝐶𝐾)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
141102, 51, 92, 124, 140syl13anc 1371 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
142117oveqd 7354 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = ((𝑋 , 𝑌) · 𝐶))
143134oveq2d 7353 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))
144141, 142, 1433eqtr3rd 2785 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((𝑋 , 𝑌) · 𝐶))
1456, 15, 5, 10, 93, 110ipass 20956 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ ((∗‘𝐶) ∈ 𝐾𝑌𝑉𝑋𝑉)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)))
146102, 91, 92, 51, 145syl13anc 1371 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)))
147117oveqd 7354 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)) = ((∗‘𝐶) · (𝑌 , 𝑋)))
148146, 147eqtrd 2776 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶) · (𝑌 , 𝑋)))
149108, 144, 148oveq123d 7358 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋)) = (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))))
150139, 149oveq12d 7355 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))(-g𝐹)((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
1516, 15, 5, 10ipcl 20944 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑋𝑉) → (𝑋 , 𝑋) ∈ 𝐾)
152102, 51, 51, 151syl3anc 1370 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ 𝐾)
1536, 10clmmcl 24354 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (∗‘𝐶) ∈ 𝐾 ∧ (𝑌 , 𝑋) ∈ 𝐾) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾)
15476, 91, 121, 153syl3anc 1370 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾)
1556, 10clmacl 24353 . . . . . . . . . . . . 13 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑋) ∈ 𝐾 ∧ ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾) → ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
15676, 152, 154, 155syl3anc 1370 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
1576, 10clmmcl 24354 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑌) ∈ 𝐾𝐶𝐾) → ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾)
15876, 77, 124, 157syl3anc 1370 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾)
1596, 10clmacl 24353 . . . . . . . . . . . . 13 ((𝑊 ∈ ℂMod ∧ ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾 ∧ ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾) → (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
16076, 158, 154, 159syl3anc 1370 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
1616, 10clmsub 24349 . . . . . . . . . . . 12 ((𝑊 ∈ ℂMod ∧ ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾 ∧ (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
16276, 156, 160, 161syl3anc 1370 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
1634, 5, 6, 7, 8, 15tcphcphlem3 24503 . . . . . . . . . . . . . . 15 ((𝜑𝑋𝑉) → (𝑋 , 𝑋) ∈ ℝ)
16413, 163mpdan 684 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 , 𝑋) ∈ ℝ)
165164recnd 11104 . . . . . . . . . . . . 13 (𝜑 → (𝑋 , 𝑋) ∈ ℂ)
166165adantr 481 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ ℂ)
16718absvalsqd 15253 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) = ((𝑋 , 𝑌) · (∗‘(𝑋 , 𝑌))))
16866oveq2d 7353 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋 , 𝑌) · (∗‘(𝑋 , 𝑌))) = ((𝑋 , 𝑌) · (𝑌 , 𝑋)))
169167, 168eqtrd 2776 . . . . . . . . . . . . . . . . 17 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) = ((𝑋 , 𝑌) · (𝑌 , 𝑋)))
17018abscld 15247 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋 , 𝑌)) ∈ ℝ)
171170resqcld 14066 . . . . . . . . . . . . . . . . 17 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) ∈ ℝ)
172169, 171eqeltrrd 2838 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ)
173172adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ)
174173, 71, 37redivcld 11904 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ∈ ℝ)
17541, 174eqeltrrd 2838 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ ℝ)
176175recnd 11104 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ ℂ)
17776, 11syl 17 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐾 ⊆ ℂ)
178177, 154sseldd 3933 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ ℂ)
179166, 176, 178pnpcan2d 11471 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
180162, 179eqtr3d 2778 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
181103, 150, 1803eqtrd 2780 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
18299, 181breqtrd 5118 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
183164adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ ℝ)
184183, 175subge0d 11666 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → (0 ≤ ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)) ↔ ((𝑋 , 𝑌) · 𝐶) ≤ (𝑋 , 𝑋)))
185182, 184mpbid 231 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ≤ (𝑋 , 𝑋))
18641, 185eqbrtrd 5114 . . . . . 6 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋))
187 oveq12 7346 . . . . . . . . . . . 12 ((𝑥 = 𝑌𝑥 = 𝑌) → (𝑥 , 𝑥) = (𝑌 , 𝑌))
188187anidms 567 . . . . . . . . . . 11 (𝑥 = 𝑌 → (𝑥 , 𝑥) = (𝑌 , 𝑌))
189188breq2d 5104 . . . . . . . . . 10 (𝑥 = 𝑌 → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ (𝑌 , 𝑌)))
190189, 46, 14rspcdva 3571 . . . . . . . . 9 (𝜑 → 0 ≤ (𝑌 , 𝑌))
191190adantr 481 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ (𝑌 , 𝑌))
19271, 191, 37ne0gt0d 11213 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → 0 < (𝑌 , 𝑌))
193 ledivmul2 11955 . . . . . . 7 ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ ∧ (𝑋 , 𝑋) ∈ ℝ ∧ ((𝑌 , 𝑌) ∈ ℝ ∧ 0 < (𝑌 , 𝑌))) → ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋) ↔ ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
194173, 183, 71, 192, 193syl112anc 1373 . . . . . 6 ((𝜑𝑌 ≠ (0g𝑊)) → ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋) ↔ ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
195186, 194mpbid 231 . . . . 5 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
1966, 15, 5, 31, 32ip0r 20948 . . . . . . . . . 10 ((𝑊 ∈ PreHil ∧ 𝑋𝑉) → (𝑋 , (0g𝑊)) = (0g𝐹))
1977, 13, 196syl2anc 584 . . . . . . . . 9 (𝜑 → (𝑋 , (0g𝑊)) = (0g𝐹))
198197, 29eqtr4d 2779 . . . . . . . 8 (𝜑 → (𝑋 , (0g𝑊)) = 0)
199198oveq1d 7352 . . . . . . 7 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) = (0 · (𝑌 , 𝑋)))
20022mul02d 11274 . . . . . . 7 (𝜑 → (0 · (𝑌 , 𝑋)) = 0)
201199, 200eqtrd 2776 . . . . . 6 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) = 0)
202 oveq12 7346 . . . . . . . . . 10 ((𝑥 = 𝑋𝑥 = 𝑋) → (𝑥 , 𝑥) = (𝑋 , 𝑋))
203202anidms 567 . . . . . . . . 9 (𝑥 = 𝑋 → (𝑥 , 𝑥) = (𝑋 , 𝑋))
204203breq2d 5104 . . . . . . . 8 (𝑥 = 𝑋 → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ (𝑋 , 𝑋)))
205204, 46, 13rspcdva 3571 . . . . . . 7 (𝜑 → 0 ≤ (𝑋 , 𝑋))
206164, 25, 205, 190mulge0d 11653 . . . . . 6 (𝜑 → 0 ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
207201, 206eqbrtrd 5114 . . . . 5 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
2083, 195, 207pm2.61ne 3027 . . . 4 (𝜑 → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
209164, 205resqrtcld 15228 . . . . . . 7 (𝜑 → (√‘(𝑋 , 𝑋)) ∈ ℝ)
210209recnd 11104 . . . . . 6 (𝜑 → (√‘(𝑋 , 𝑋)) ∈ ℂ)
21125, 190resqrtcld 15228 . . . . . . 7 (𝜑 → (√‘(𝑌 , 𝑌)) ∈ ℝ)
212211recnd 11104 . . . . . 6 (𝜑 → (√‘(𝑌 , 𝑌)) ∈ ℂ)
213210, 212sqmuld 13977 . . . . 5 (𝜑 → (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2) = (((√‘(𝑋 , 𝑋))↑2) · ((√‘(𝑌 , 𝑌))↑2)))
214165sqsqrtd 15250 . . . . . 6 (𝜑 → ((√‘(𝑋 , 𝑋))↑2) = (𝑋 , 𝑋))
21526sqsqrtd 15250 . . . . . 6 (𝜑 → ((√‘(𝑌 , 𝑌))↑2) = (𝑌 , 𝑌))
216214, 215oveq12d 7355 . . . . 5 (𝜑 → (((√‘(𝑋 , 𝑋))↑2) · ((√‘(𝑌 , 𝑌))↑2)) = ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
217213, 216eqtrd 2776 . . . 4 (𝜑 → (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2) = ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
218208, 169, 2173brtr4d 5124 . . 3 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) ≤ (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2))
219209, 211remulcld 11106 . . . 4 (𝜑 → ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))) ∈ ℝ)
22018absge0d 15255 . . . 4 (𝜑 → 0 ≤ (abs‘(𝑋 , 𝑌)))
221164, 205sqrtge0d 15231 . . . . 5 (𝜑 → 0 ≤ (√‘(𝑋 , 𝑋)))
22225, 190sqrtge0d 15231 . . . . 5 (𝜑 → 0 ≤ (√‘(𝑌 , 𝑌)))
223209, 211, 221, 222mulge0d 11653 . . . 4 (𝜑 → 0 ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
224170, 219, 220, 223le2sqd 14075 . . 3 (𝜑 → ((abs‘(𝑋 , 𝑌)) ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))) ↔ ((abs‘(𝑋 , 𝑌))↑2) ≤ (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2)))
225218, 224mpbird 256 . 2 (𝜑 → (abs‘(𝑋 , 𝑌)) ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
226 lmodgrp 20236 . . . . 5 (𝑊 ∈ LMod → 𝑊 ∈ Grp)
22749, 226syl 17 . . . 4 (𝜑𝑊 ∈ Grp)
228 ipcau2.n . . . . 5 𝑁 = (norm‘𝐺)
2294, 228, 5, 15tcphnmval 24499 . . . 4 ((𝑊 ∈ Grp ∧ 𝑋𝑉) → (𝑁𝑋) = (√‘(𝑋 , 𝑋)))
230227, 13, 229syl2anc 584 . . 3 (𝜑 → (𝑁𝑋) = (√‘(𝑋 , 𝑋)))
2314, 228, 5, 15tcphnmval 24499 . . . 4 ((𝑊 ∈ Grp ∧ 𝑌𝑉) → (𝑁𝑌) = (√‘(𝑌 , 𝑌)))
232227, 14, 231syl2anc 584 . . 3 (𝜑 → (𝑁𝑌) = (√‘(𝑌 , 𝑌)))
233230, 232oveq12d 7355 . 2 (𝜑 → ((𝑁𝑋) · (𝑁𝑌)) = ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
234225, 233breqtrrd 5120 1 (𝜑 → (abs‘(𝑋 , 𝑌)) ≤ ((𝑁𝑋) · (𝑁𝑌)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wcel 2105  wne 2940  wral 3061  Vcvv 3441  wss 3898   class class class wbr 5092  cfv 6479  (class class class)co 7337  cc 10970  cr 10971  0cc0 10972  1c1 10973   + caddc 10975   · cmul 10977   < clt 11110  cle 11111  cmin 11306   / cdiv 11733  2c2 12129  cexp 13883  ccj 14906  csqrt 15043  abscabs 15044  Basecbs 17009  s cress 17038  +gcplusg 17059  .rcmulr 17060  *𝑟cstv 17061  Scalarcsca 17062   ·𝑠 cvsca 17063  ·𝑖cip 17064  0gc0g 17247  Grpcgrp 18673  -gcsg 18675  DivRingcdr 20093  LModclmod 20229  LVecclvec 20470  fldccnfld 20703  PreHilcphl 20935  normcnm 23838  ℂModcclm 24331  toℂPreHilctcph 24437
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5229  ax-sep 5243  ax-nul 5250  ax-pow 5308  ax-pr 5372  ax-un 7650  ax-cnex 11028  ax-resscn 11029  ax-1cn 11030  ax-icn 11031  ax-addcl 11032  ax-addrcl 11033  ax-mulcl 11034  ax-mulrcl 11035  ax-mulcom 11036  ax-addass 11037  ax-mulass 11038  ax-distr 11039  ax-i2m1 11040  ax-1ne0 11041  ax-1rid 11042  ax-rnegex 11043  ax-rrecex 11044  ax-cnre 11045  ax-pre-lttri 11046  ax-pre-lttrn 11047  ax-pre-ltadd 11048  ax-pre-mulgt0 11049  ax-pre-sup 11050  ax-addf 11051  ax-mulf 11052
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3728  df-csb 3844  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3917  df-nul 4270  df-if 4474  df-pw 4549  df-sn 4574  df-pr 4576  df-tp 4578  df-op 4580  df-uni 4853  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5176  df-tr 5210  df-id 5518  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5575  df-we 5577  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6238  df-ord 6305  df-on 6306  df-lim 6307  df-suc 6308  df-iota 6431  df-fun 6481  df-fn 6482  df-f 6483  df-f1 6484  df-fo 6485  df-f1o 6486  df-fv 6487  df-riota 7293  df-ov 7340  df-oprab 7341  df-mpo 7342  df-om 7781  df-1st 7899  df-2nd 7900  df-tpos 8112  df-frecs 8167  df-wrecs 8198  df-recs 8272  df-rdg 8311  df-1o 8367  df-er 8569  df-map 8688  df-en 8805  df-dom 8806  df-sdom 8807  df-fin 8808  df-sup 9299  df-pnf 11112  df-mnf 11113  df-xr 11114  df-ltxr 11115  df-le 11116  df-sub 11308  df-neg 11309  df-div 11734  df-nn 12075  df-2 12137  df-3 12138  df-4 12139  df-5 12140  df-6 12141  df-7 12142  df-8 12143  df-9 12144  df-n0 12335  df-z 12421  df-dec 12539  df-uz 12684  df-rp 12832  df-fz 13341  df-seq 13823  df-exp 13884  df-cj 14909  df-re 14910  df-im 14911  df-sqrt 15045  df-abs 15046  df-struct 16945  df-sets 16962  df-slot 16980  df-ndx 16992  df-base 17010  df-ress 17039  df-plusg 17072  df-mulr 17073  df-starv 17074  df-sca 17075  df-vsca 17076  df-ip 17077  df-tset 17078  df-ple 17079  df-ds 17081  df-unif 17082  df-0g 17249  df-mgm 18423  df-sgrp 18472  df-mnd 18483  df-mhm 18527  df-grp 18676  df-minusg 18677  df-sbg 18678  df-subg 18848  df-ghm 18928  df-cmn 19483  df-abl 19484  df-mgp 19816  df-ur 19833  df-ring 19880  df-cring 19881  df-oppr 19957  df-dvdsr 19978  df-unit 19979  df-invr 20009  df-dvr 20020  df-rnghom 20054  df-drng 20095  df-subrg 20127  df-staf 20211  df-srng 20212  df-lmod 20231  df-lmhm 20390  df-lvec 20471  df-sra 20540  df-rgmod 20541  df-cnfld 20704  df-phl 20937  df-nm 23844  df-tng 23846  df-clm 24332  df-tcph 24439
This theorem is referenced by:  tcphcphlem1  24505  ipcau  24508
  Copyright terms: Public domain W3C validator