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

Theorem ipcau2 22936
Description: The Cauchy-Schwarz inequality for a complex pre-Hilbert space. (Contributed by Mario Carneiro, 11-Oct-2015.)
Hypotheses
Ref Expression
tchval.n 𝐺 = (toℂHil‘𝑊)
tchcph.v 𝑉 = (Base‘𝑊)
tchcph.f 𝐹 = (Scalar‘𝑊)
tchcph.1 (𝜑𝑊 ∈ PreHil)
tchcph.2 (𝜑𝐹 = (ℂflds 𝐾))
tchcph.h , = (·𝑖𝑊)
tchcph.3 ((𝜑 ∧ (𝑥𝐾𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ 𝐾)
tchcph.4 ((𝜑𝑥𝑉) → 0 ≤ (𝑥 , 𝑥))
tchcph.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 6613 . . . . . . 7 (𝑌 = (0g𝑊) → (𝑋 , 𝑌) = (𝑋 , (0g𝑊)))
21oveq1d 6620 . . . . . 6 (𝑌 = (0g𝑊) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) = ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)))
32breq1d 4628 . . . . 5 (𝑌 = (0g𝑊) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)) ↔ ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
4 tchval.n . . . . . . . . . . . . 13 𝐺 = (toℂHil‘𝑊)
5 tchcph.v . . . . . . . . . . . . 13 𝑉 = (Base‘𝑊)
6 tchcph.f . . . . . . . . . . . . 13 𝐹 = (Scalar‘𝑊)
7 tchcph.1 . . . . . . . . . . . . 13 (𝜑𝑊 ∈ PreHil)
8 tchcph.2 . . . . . . . . . . . . 13 (𝜑𝐹 = (ℂflds 𝐾))
94, 5, 6, 7, 8tchclm 22934 . . . . . . . . . . . 12 (𝜑𝑊 ∈ ℂMod)
10 tchcph.k . . . . . . . . . . . . 13 𝐾 = (Base‘𝐹)
116, 10clmsscn 22782 . . . . . . . . . . . 12 (𝑊 ∈ ℂMod → 𝐾 ⊆ ℂ)
129, 11syl 17 . . . . . . . . . . 11 (𝜑𝐾 ⊆ ℂ)
13 ipcau2.3 . . . . . . . . . . . 12 (𝜑𝑋𝑉)
14 ipcau2.4 . . . . . . . . . . . 12 (𝜑𝑌𝑉)
15 tchcph.h . . . . . . . . . . . . 13 , = (·𝑖𝑊)
166, 15, 5, 10ipcl 19892 . . . . . . . . . . . 12 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑌𝑉) → (𝑋 , 𝑌) ∈ 𝐾)
177, 13, 14, 16syl3anc 1323 . . . . . . . . . . 11 (𝜑 → (𝑋 , 𝑌) ∈ 𝐾)
1812, 17sseldd 3589 . . . . . . . . . 10 (𝜑 → (𝑋 , 𝑌) ∈ ℂ)
1918adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑌) ∈ ℂ)
206, 15, 5, 10ipcl 19892 . . . . . . . . . . . 12 ((𝑊 ∈ PreHil ∧ 𝑌𝑉𝑋𝑉) → (𝑌 , 𝑋) ∈ 𝐾)
217, 14, 13, 20syl3anc 1323 . . . . . . . . . . 11 (𝜑 → (𝑌 , 𝑋) ∈ 𝐾)
2212, 21sseldd 3589 . . . . . . . . . 10 (𝜑 → (𝑌 , 𝑋) ∈ ℂ)
2322adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑋) ∈ ℂ)
244, 5, 6, 7, 8, 15tchcphlem3 22935 . . . . . . . . . . . 12 ((𝜑𝑌𝑉) → (𝑌 , 𝑌) ∈ ℝ)
2514, 24mpdan 701 . . . . . . . . . . 11 (𝜑 → (𝑌 , 𝑌) ∈ ℝ)
2625recnd 10013 . . . . . . . . . 10 (𝜑 → (𝑌 , 𝑌) ∈ ℂ)
2726adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ ℂ)
286clm0 22775 . . . . . . . . . . . . . 14 (𝑊 ∈ ℂMod → 0 = (0g𝐹))
299, 28syl 17 . . . . . . . . . . . . 13 (𝜑 → 0 = (0g𝐹))
3029eqeq2d 2636 . . . . . . . . . . . 12 (𝜑 → ((𝑌 , 𝑌) = 0 ↔ (𝑌 , 𝑌) = (0g𝐹)))
31 eqid 2626 . . . . . . . . . . . . . 14 (0g𝐹) = (0g𝐹)
32 eqid 2626 . . . . . . . . . . . . . 14 (0g𝑊) = (0g𝑊)
336, 15, 5, 31, 32ipeq0 19897 . . . . . . . . . . . . 13 ((𝑊 ∈ PreHil ∧ 𝑌𝑉) → ((𝑌 , 𝑌) = (0g𝐹) ↔ 𝑌 = (0g𝑊)))
347, 14, 33syl2anc 692 . . . . . . . . . . . 12 (𝜑 → ((𝑌 , 𝑌) = (0g𝐹) ↔ 𝑌 = (0g𝑊)))
3530, 34bitrd 268 . . . . . . . . . . 11 (𝜑 → ((𝑌 , 𝑌) = 0 ↔ 𝑌 = (0g𝑊)))
3635necon3bid 2840 . . . . . . . . . 10 (𝜑 → ((𝑌 , 𝑌) ≠ 0 ↔ 𝑌 ≠ (0g𝑊)))
3736biimpar 502 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ≠ 0)
3819, 23, 27, 37divassd 10781 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌))))
39 ipcau2.c . . . . . . . . 9 𝐶 = ((𝑌 , 𝑋) / (𝑌 , 𝑌))
4039oveq2i 6616 . . . . . . . 8 ((𝑋 , 𝑌) · 𝐶) = ((𝑋 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌)))
4138, 40syl6eqr 2678 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · 𝐶))
42 phllmod 19889 . . . . . . . . . . . . 13 (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
437, 42syl 17 . . . . . . . . . . . 12 (𝜑𝑊 ∈ LMod)
4443adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ LMod)
4513adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑋𝑉)
4639fveq2i 6153 . . . . . . . . . . . . . . 15 (∗‘𝐶) = (∗‘((𝑌 , 𝑋) / (𝑌 , 𝑌)))
4723, 27, 37cjdivd 13892 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘((𝑌 , 𝑋) / (𝑌 , 𝑌))) = ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))))
4846, 47syl5eq 2672 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))))
498fveq2d 6154 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (*𝑟𝐹) = (*𝑟‘(ℂflds 𝐾)))
50 fvex 6160 . . . . . . . . . . . . . . . . . . . . . . 23 (Base‘𝐹) ∈ V
5110, 50eqeltri 2700 . . . . . . . . . . . . . . . . . . . . . 22 𝐾 ∈ V
52 eqid 2626 . . . . . . . . . . . . . . . . . . . . . . 23 (ℂflds 𝐾) = (ℂflds 𝐾)
53 cnfldcj 19667 . . . . . . . . . . . . . . . . . . . . . . 23 ∗ = (*𝑟‘ℂfld)
5452, 53ressstarv 15923 . . . . . . . . . . . . . . . . . . . . . 22 (𝐾 ∈ V → ∗ = (*𝑟‘(ℂflds 𝐾)))
5551, 54ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 ∗ = (*𝑟‘(ℂflds 𝐾))
5649, 55syl6eqr 2678 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (*𝑟𝐹) = ∗)
5756fveq1d 6152 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (∗‘(𝑋 , 𝑌)))
58 eqid 2626 . . . . . . . . . . . . . . . . . . . . 21 (*𝑟𝐹) = (*𝑟𝐹)
596, 15, 5, 58ipcj 19893 . . . . . . . . . . . . . . . . . . . 20 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑌𝑉) → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
607, 13, 14, 59syl3anc 1323 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((*𝑟𝐹)‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6157, 60eqtr3d 2662 . . . . . . . . . . . . . . . . . 18 (𝜑 → (∗‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6261adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑋 , 𝑌)) = (𝑌 , 𝑋))
6362fveq2d 6154 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(∗‘(𝑋 , 𝑌))) = (∗‘(𝑌 , 𝑋)))
6419cjcjd 13868 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(∗‘(𝑋 , 𝑌))) = (𝑋 , 𝑌))
6563, 64eqtr3d 2662 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑌 , 𝑋)) = (𝑋 , 𝑌))
6625adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ ℝ)
6766cjred 13895 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘(𝑌 , 𝑌)) = (𝑌 , 𝑌))
6865, 67oveq12d 6623 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘(𝑌 , 𝑋)) / (∗‘(𝑌 , 𝑌))) = ((𝑋 , 𝑌) / (𝑌 , 𝑌)))
6919, 27, 37divrecd 10749 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) / (𝑌 , 𝑌)) = ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))))
7048, 68, 693eqtrd 2664 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))))
719adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ ℂMod)
7217adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑌) ∈ 𝐾)
736, 15, 5, 10ipcl 19892 . . . . . . . . . . . . . . . . 17 ((𝑊 ∈ PreHil ∧ 𝑌𝑉𝑌𝑉) → (𝑌 , 𝑌) ∈ 𝐾)
747, 14, 14, 73syl3anc 1323 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑌 , 𝑌) ∈ 𝐾)
7574adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑌) ∈ 𝐾)
768adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐹 = (ℂflds 𝐾))
77 phllvec 19888 . . . . . . . . . . . . . . . . . . 19 (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
787, 77syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝑊 ∈ LVec)
796lvecdrng 19019 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
8078, 79syl 17 . . . . . . . . . . . . . . . . 17 (𝜑𝐹 ∈ DivRing)
8180adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐹 ∈ DivRing)
8210, 76, 81cphreccllem 22881 . . . . . . . . . . . . . . 15 (((𝜑𝑌 ≠ (0g𝑊)) ∧ (𝑌 , 𝑌) ∈ 𝐾 ∧ (𝑌 , 𝑌) ≠ 0) → (1 / (𝑌 , 𝑌)) ∈ 𝐾)
8375, 37, 82mpd3an23 1423 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (1 / (𝑌 , 𝑌)) ∈ 𝐾)
846, 10clmmcl 22788 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑌) ∈ 𝐾 ∧ (1 / (𝑌 , 𝑌)) ∈ 𝐾) → ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
8571, 72, 83, 84syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
8670, 85eqeltrd 2704 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) ∈ 𝐾)
8714adantr 481 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑌𝑉)
88 eqid 2626 . . . . . . . . . . . . 13 ( ·𝑠𝑊) = ( ·𝑠𝑊)
895, 6, 88, 10lmodvscl 18796 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ (∗‘𝐶) ∈ 𝐾𝑌𝑉) → ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)
9044, 86, 87, 89syl3anc 1323 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)
91 eqid 2626 . . . . . . . . . . . 12 (-g𝑊) = (-g𝑊)
925, 91lmodvsubcl 18824 . . . . . . . . . . 11 ((𝑊 ∈ LMod ∧ 𝑋𝑉 ∧ ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉) → (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∈ 𝑉)
9344, 45, 90, 92syl3anc 1323 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∈ 𝑉)
94 tchcph.4 . . . . . . . . . . . 12 ((𝜑𝑥𝑉) → 0 ≤ (𝑥 , 𝑥))
9594ralrimiva 2965 . . . . . . . . . . 11 (𝜑 → ∀𝑥𝑉 0 ≤ (𝑥 , 𝑥))
9695adantr 481 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → ∀𝑥𝑉 0 ≤ (𝑥 , 𝑥))
97 oveq12 6614 . . . . . . . . . . . . 13 ((𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∧ 𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) → (𝑥 , 𝑥) = ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
9897anidms 676 . . . . . . . . . . . 12 (𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) → (𝑥 , 𝑥) = ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
9998breq2d 4630 . . . . . . . . . . 11 (𝑥 = (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)))))
10099rspcv 3296 . . . . . . . . . 10 ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) ∈ 𝑉 → (∀𝑥𝑉 0 ≤ (𝑥 , 𝑥) → 0 ≤ ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)))))
10193, 96, 100sylc 65 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))))
102 eqid 2626 . . . . . . . . . . 11 (-g𝐹) = (-g𝐹)
103 eqid 2626 . . . . . . . . . . 11 (+g𝐹) = (+g𝐹)
1047adantr 481 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → 𝑊 ∈ PreHil)
1056, 15, 5, 91, 102, 103, 104, 45, 90, 45, 90ip2subdi 19903 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) = (((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))(-g𝐹)((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋))))
10676fveq2d 6154 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (+g𝐹) = (+g‘(ℂflds 𝐾)))
107 cnfldadd 19665 . . . . . . . . . . . . . . 15 + = (+g‘ℂfld)
10852, 107ressplusg 15909 . . . . . . . . . . . . . 14 (𝐾 ∈ V → + = (+g‘(ℂflds 𝐾)))
10951, 108ax-mp 5 . . . . . . . . . . . . 13 + = (+g‘(ℂflds 𝐾))
110106, 109syl6eqr 2678 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (+g𝐹) = + )
111 eqidd 2627 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) = (𝑋 , 𝑋))
112 eqid 2626 . . . . . . . . . . . . . . 15 (.r𝐹) = (.r𝐹)
1136, 15, 5, 10, 88, 112ipass 19904 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ ((∗‘𝐶) ∈ 𝐾𝑌𝑉 ∧ ((∗‘𝐶)( ·𝑠𝑊)𝑌) ∈ 𝑉)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))))
114104, 86, 87, 90, 113syl13anc 1325 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))))
11576fveq2d 6154 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (.r𝐹) = (.r‘(ℂflds 𝐾)))
116 cnfldmul 19666 . . . . . . . . . . . . . . . . 17 · = (.r‘ℂfld)
11752, 116ressmulr 15922 . . . . . . . . . . . . . . . 16 (𝐾 ∈ V → · = (.r‘(ℂflds 𝐾)))
11851, 117ax-mp 5 . . . . . . . . . . . . . . 15 · = (.r‘(ℂflds 𝐾))
119115, 118syl6eqr 2678 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (.r𝐹) = · )
120 eqidd 2627 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (∗‘𝐶) = (∗‘𝐶))
12123, 27, 37divrecd 10749 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑋) / (𝑌 , 𝑌)) = ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))))
12239, 121syl5eq 2672 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐶 = ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))))
12321adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , 𝑋) ∈ 𝐾)
1246, 10clmmcl 22788 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ ℂMod ∧ (𝑌 , 𝑋) ∈ 𝐾 ∧ (1 / (𝑌 , 𝑌)) ∈ 𝐾) → ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
12571, 123, 83, 124syl3anc 1323 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑋) · (1 / (𝑌 , 𝑌))) ∈ 𝐾)
126122, 125eqeltrd 2704 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐶𝐾)
1276, 15, 5, 10, 88, 112, 58ipassr2 19906 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ PreHil ∧ (𝑌𝑉𝑌𝑉𝐶𝐾)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
128104, 87, 87, 126, 127syl13anc 1325 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
129119oveqd 6622 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = ((𝑌 , 𝑌) · 𝐶))
13039oveq2i 6616 . . . . . . . . . . . . . . . . 17 ((𝑌 , 𝑌) · 𝐶) = ((𝑌 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌)))
13123, 27, 37divcan2d 10748 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌) · ((𝑌 , 𝑋) / (𝑌 , 𝑌))) = (𝑌 , 𝑋))
132130, 131syl5eq 2672 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌) · 𝐶) = (𝑌 , 𝑋))
133129, 132eqtrd 2660 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑌 , 𝑌)(.r𝐹)𝐶) = (𝑌 , 𝑋))
13456adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑌 ≠ (0g𝑊)) → (*𝑟𝐹) = ∗)
135134fveq1d 6152 . . . . . . . . . . . . . . . . 17 ((𝜑𝑌 ≠ (0g𝑊)) → ((*𝑟𝐹)‘𝐶) = (∗‘𝐶))
136135oveq1d 6620 . . . . . . . . . . . . . . . 16 ((𝜑𝑌 ≠ (0g𝑊)) → (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌) = ((∗‘𝐶)( ·𝑠𝑊)𝑌))
137136oveq2d 6621 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))
138128, 133, 1373eqtr3rd 2669 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑌 , 𝑋))
139119, 120, 138oveq123d 6626 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)(.r𝐹)(𝑌 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((∗‘𝐶) · (𝑌 , 𝑋)))
140114, 139eqtrd 2660 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((∗‘𝐶) · (𝑌 , 𝑋)))
141110, 111, 140oveq123d 6626 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))))
1426, 15, 5, 10, 88, 112, 58ipassr2 19906 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ (𝑋𝑉𝑌𝑉𝐶𝐾)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
143104, 45, 87, 126, 142syl13anc 1325 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)))
144119oveqd 6622 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌)(.r𝐹)𝐶) = ((𝑋 , 𝑌) · 𝐶))
145136oveq2d 6621 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , (((*𝑟𝐹)‘𝐶)( ·𝑠𝑊)𝑌)) = (𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))
146143, 144, 1453eqtr3rd 2669 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌)) = ((𝑋 , 𝑌) · 𝐶))
1476, 15, 5, 10, 88, 112ipass 19904 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ ((∗‘𝐶) ∈ 𝐾𝑌𝑉𝑋𝑉)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)))
148104, 86, 87, 45, 147syl13anc 1325 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)))
149119oveqd 6622 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶)(.r𝐹)(𝑌 , 𝑋)) = ((∗‘𝐶) · (𝑌 , 𝑋)))
150148, 149eqtrd 2660 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋) = ((∗‘𝐶) · (𝑌 , 𝑋)))
151110, 146, 150oveq123d 6626 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋)) = (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))))
152141, 151oveq12d 6623 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋)(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , ((∗‘𝐶)( ·𝑠𝑊)𝑌)))(-g𝐹)((𝑋 , ((∗‘𝐶)( ·𝑠𝑊)𝑌))(+g𝐹)(((∗‘𝐶)( ·𝑠𝑊)𝑌) , 𝑋))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
1536, 15, 5, 10ipcl 19892 . . . . . . . . . . . . . 14 ((𝑊 ∈ PreHil ∧ 𝑋𝑉𝑋𝑉) → (𝑋 , 𝑋) ∈ 𝐾)
154104, 45, 45, 153syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ 𝐾)
1556, 10clmmcl 22788 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (∗‘𝐶) ∈ 𝐾 ∧ (𝑌 , 𝑋) ∈ 𝐾) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾)
15671, 86, 123, 155syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾)
1576, 10clmacl 22787 . . . . . . . . . . . . 13 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑋) ∈ 𝐾 ∧ ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾) → ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
15871, 154, 156, 157syl3anc 1323 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
1596, 10clmmcl 22788 . . . . . . . . . . . . . 14 ((𝑊 ∈ ℂMod ∧ (𝑋 , 𝑌) ∈ 𝐾𝐶𝐾) → ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾)
16071, 72, 126, 159syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾)
1616, 10clmacl 22787 . . . . . . . . . . . . 13 ((𝑊 ∈ ℂMod ∧ ((𝑋 , 𝑌) · 𝐶) ∈ 𝐾 ∧ ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ 𝐾) → (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
16271, 160, 156, 161syl3anc 1323 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾)
1636, 10clmsub 22783 . . . . . . . . . . . 12 ((𝑊 ∈ ℂMod ∧ ((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾 ∧ (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋))) ∈ 𝐾) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
16471, 158, 162, 163syl3anc 1323 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))))
1654, 5, 6, 7, 8, 15tchcphlem3 22935 . . . . . . . . . . . . . . 15 ((𝜑𝑋𝑉) → (𝑋 , 𝑋) ∈ ℝ)
16613, 165mpdan 701 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 , 𝑋) ∈ ℝ)
167166recnd 10013 . . . . . . . . . . . . 13 (𝜑 → (𝑋 , 𝑋) ∈ ℂ)
168167adantr 481 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ ℂ)
16918absvalsqd 14110 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) = ((𝑋 , 𝑌) · (∗‘(𝑋 , 𝑌))))
17061oveq2d 6621 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑋 , 𝑌) · (∗‘(𝑋 , 𝑌))) = ((𝑋 , 𝑌) · (𝑌 , 𝑋)))
171169, 170eqtrd 2660 . . . . . . . . . . . . . . . . 17 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) = ((𝑋 , 𝑌) · (𝑌 , 𝑋)))
17218abscld 14104 . . . . . . . . . . . . . . . . . 18 (𝜑 → (abs‘(𝑋 , 𝑌)) ∈ ℝ)
173172resqcld 12972 . . . . . . . . . . . . . . . . 17 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) ∈ ℝ)
174171, 173eqeltrrd 2705 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ)
175174adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ)
176175, 66, 37redivcld 10798 . . . . . . . . . . . . . 14 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ∈ ℝ)
17741, 176eqeltrrd 2705 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ ℝ)
178177recnd 10013 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ∈ ℂ)
17971, 11syl 17 . . . . . . . . . . . . 13 ((𝜑𝑌 ≠ (0g𝑊)) → 𝐾 ⊆ ℂ)
180179, 156sseldd 3589 . . . . . . . . . . . 12 ((𝜑𝑌 ≠ (0g𝑊)) → ((∗‘𝐶) · (𝑌 , 𝑋)) ∈ ℂ)
181168, 178, 180pnpcan2d 10375 . . . . . . . . . . 11 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋))) − (((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
182164, 181eqtr3d 2662 . . . . . . . . . 10 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑋) + ((∗‘𝐶) · (𝑌 , 𝑋)))(-g𝐹)(((𝑋 , 𝑌) · 𝐶) + ((∗‘𝐶) · (𝑌 , 𝑋)))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
183105, 152, 1823eqtrd 2664 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌)) , (𝑋(-g𝑊)((∗‘𝐶)( ·𝑠𝑊)𝑌))) = ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
184101, 183breqtrd 4644 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)))
185166adantr 481 . . . . . . . . 9 ((𝜑𝑌 ≠ (0g𝑊)) → (𝑋 , 𝑋) ∈ ℝ)
186185, 177subge0d 10562 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → (0 ≤ ((𝑋 , 𝑋) − ((𝑋 , 𝑌) · 𝐶)) ↔ ((𝑋 , 𝑌) · 𝐶) ≤ (𝑋 , 𝑋)))
187184, 186mpbid 222 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · 𝐶) ≤ (𝑋 , 𝑋))
18841, 187eqbrtrd 4640 . . . . . 6 ((𝜑𝑌 ≠ (0g𝑊)) → (((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋))
189 oveq12 6614 . . . . . . . . . . . . 13 ((𝑥 = 𝑌𝑥 = 𝑌) → (𝑥 , 𝑥) = (𝑌 , 𝑌))
190189anidms 676 . . . . . . . . . . . 12 (𝑥 = 𝑌 → (𝑥 , 𝑥) = (𝑌 , 𝑌))
191190breq2d 4630 . . . . . . . . . . 11 (𝑥 = 𝑌 → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ (𝑌 , 𝑌)))
192191rspcv 3296 . . . . . . . . . 10 (𝑌𝑉 → (∀𝑥𝑉 0 ≤ (𝑥 , 𝑥) → 0 ≤ (𝑌 , 𝑌)))
19314, 95, 192sylc 65 . . . . . . . . 9 (𝜑 → 0 ≤ (𝑌 , 𝑌))
194193adantr 481 . . . . . . . 8 ((𝜑𝑌 ≠ (0g𝑊)) → 0 ≤ (𝑌 , 𝑌))
19566, 194, 37ne0gt0d 10119 . . . . . . 7 ((𝜑𝑌 ≠ (0g𝑊)) → 0 < (𝑌 , 𝑌))
196 ledivmul2 10847 . . . . . . 7 ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) ∈ ℝ ∧ (𝑋 , 𝑋) ∈ ℝ ∧ ((𝑌 , 𝑌) ∈ ℝ ∧ 0 < (𝑌 , 𝑌))) → ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋) ↔ ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
197175, 185, 66, 195, 196syl112anc 1327 . . . . . 6 ((𝜑𝑌 ≠ (0g𝑊)) → ((((𝑋 , 𝑌) · (𝑌 , 𝑋)) / (𝑌 , 𝑌)) ≤ (𝑋 , 𝑋) ↔ ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌))))
198188, 197mpbid 222 . . . . 5 ((𝜑𝑌 ≠ (0g𝑊)) → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
1996, 15, 5, 31, 32ip0r 19896 . . . . . . . . . 10 ((𝑊 ∈ PreHil ∧ 𝑋𝑉) → (𝑋 , (0g𝑊)) = (0g𝐹))
2007, 13, 199syl2anc 692 . . . . . . . . 9 (𝜑 → (𝑋 , (0g𝑊)) = (0g𝐹))
201200, 29eqtr4d 2663 . . . . . . . 8 (𝜑 → (𝑋 , (0g𝑊)) = 0)
202201oveq1d 6620 . . . . . . 7 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) = (0 · (𝑌 , 𝑋)))
20322mul02d 10179 . . . . . . 7 (𝜑 → (0 · (𝑌 , 𝑋)) = 0)
204202, 203eqtrd 2660 . . . . . 6 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) = 0)
205 oveq12 6614 . . . . . . . . . . 11 ((𝑥 = 𝑋𝑥 = 𝑋) → (𝑥 , 𝑥) = (𝑋 , 𝑋))
206205anidms 676 . . . . . . . . . 10 (𝑥 = 𝑋 → (𝑥 , 𝑥) = (𝑋 , 𝑋))
207206breq2d 4630 . . . . . . . . 9 (𝑥 = 𝑋 → (0 ≤ (𝑥 , 𝑥) ↔ 0 ≤ (𝑋 , 𝑋)))
208207rspcv 3296 . . . . . . . 8 (𝑋𝑉 → (∀𝑥𝑉 0 ≤ (𝑥 , 𝑥) → 0 ≤ (𝑋 , 𝑋)))
20913, 95, 208sylc 65 . . . . . . 7 (𝜑 → 0 ≤ (𝑋 , 𝑋))
210166, 25, 209, 193mulge0d 10549 . . . . . 6 (𝜑 → 0 ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
211204, 210eqbrtrd 4640 . . . . 5 (𝜑 → ((𝑋 , (0g𝑊)) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
2123, 198, 211pm2.61ne 2881 . . . 4 (𝜑 → ((𝑋 , 𝑌) · (𝑌 , 𝑋)) ≤ ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
213166, 209resqrtcld 14085 . . . . . . 7 (𝜑 → (√‘(𝑋 , 𝑋)) ∈ ℝ)
214213recnd 10013 . . . . . 6 (𝜑 → (√‘(𝑋 , 𝑋)) ∈ ℂ)
21525, 193resqrtcld 14085 . . . . . . 7 (𝜑 → (√‘(𝑌 , 𝑌)) ∈ ℝ)
216215recnd 10013 . . . . . 6 (𝜑 → (√‘(𝑌 , 𝑌)) ∈ ℂ)
217214, 216sqmuld 12957 . . . . 5 (𝜑 → (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2) = (((√‘(𝑋 , 𝑋))↑2) · ((√‘(𝑌 , 𝑌))↑2)))
218167sqsqrtd 14107 . . . . . 6 (𝜑 → ((√‘(𝑋 , 𝑋))↑2) = (𝑋 , 𝑋))
21926sqsqrtd 14107 . . . . . 6 (𝜑 → ((√‘(𝑌 , 𝑌))↑2) = (𝑌 , 𝑌))
220218, 219oveq12d 6623 . . . . 5 (𝜑 → (((√‘(𝑋 , 𝑋))↑2) · ((√‘(𝑌 , 𝑌))↑2)) = ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
221217, 220eqtrd 2660 . . . 4 (𝜑 → (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2) = ((𝑋 , 𝑋) · (𝑌 , 𝑌)))
222212, 171, 2213brtr4d 4650 . . 3 (𝜑 → ((abs‘(𝑋 , 𝑌))↑2) ≤ (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2))
223213, 215remulcld 10015 . . . 4 (𝜑 → ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))) ∈ ℝ)
22418absge0d 14112 . . . 4 (𝜑 → 0 ≤ (abs‘(𝑋 , 𝑌)))
225166, 209sqrtge0d 14088 . . . . 5 (𝜑 → 0 ≤ (√‘(𝑋 , 𝑋)))
22625, 193sqrtge0d 14088 . . . . 5 (𝜑 → 0 ≤ (√‘(𝑌 , 𝑌)))
227213, 215, 225, 226mulge0d 10549 . . . 4 (𝜑 → 0 ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
228172, 223, 224, 227le2sqd 12981 . . 3 (𝜑 → ((abs‘(𝑋 , 𝑌)) ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))) ↔ ((abs‘(𝑋 , 𝑌))↑2) ≤ (((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌)))↑2)))
229222, 228mpbird 247 . 2 (𝜑 → (abs‘(𝑋 , 𝑌)) ≤ ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
230 lmodgrp 18786 . . . . 5 (𝑊 ∈ LMod → 𝑊 ∈ Grp)
23143, 230syl 17 . . . 4 (𝜑𝑊 ∈ Grp)
232 ipcau2.n . . . . 5 𝑁 = (norm‘𝐺)
2334, 232, 5, 15tchnmval 22931 . . . 4 ((𝑊 ∈ Grp ∧ 𝑋𝑉) → (𝑁𝑋) = (√‘(𝑋 , 𝑋)))
234231, 13, 233syl2anc 692 . . 3 (𝜑 → (𝑁𝑋) = (√‘(𝑋 , 𝑋)))
2354, 232, 5, 15tchnmval 22931 . . . 4 ((𝑊 ∈ Grp ∧ 𝑌𝑉) → (𝑁𝑌) = (√‘(𝑌 , 𝑌)))
236231, 14, 235syl2anc 692 . . 3 (𝜑 → (𝑁𝑌) = (√‘(𝑌 , 𝑌)))
237234, 236oveq12d 6623 . 2 (𝜑 → ((𝑁𝑋) · (𝑁𝑌)) = ((√‘(𝑋 , 𝑋)) · (√‘(𝑌 , 𝑌))))
238229, 237breqtrrd 4646 1 (𝜑 → (abs‘(𝑋 , 𝑌)) ≤ ((𝑁𝑋) · (𝑁𝑌)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wcel 1992  wne 2796  wral 2912  Vcvv 3191  wss 3560   class class class wbr 4618  cfv 5850  (class class class)co 6605  cc 9879  cr 9880  0cc0 9881  1c1 9882   + caddc 9884   · cmul 9886   < clt 10019  cle 10020  cmin 10211   / cdiv 10629  2c2 11015  cexp 12797  ccj 13765  csqrt 13902  abscabs 13903  Basecbs 15776  s cress 15777  +gcplusg 15857  .rcmulr 15858  *𝑟cstv 15859  Scalarcsca 15860   ·𝑠 cvsca 15861  ·𝑖cip 15862  0gc0g 16016  Grpcgrp 17338  -gcsg 17340  DivRingcdr 18663  LModclmod 18779  LVecclvec 19016  fldccnfld 19660  PreHilcphl 19883  normcnm 22286  ℂModcclm 22765  toℂHilctch 22870
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1841  ax-6 1890  ax-7 1937  ax-8 1994  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6903  ax-cnex 9937  ax-resscn 9938  ax-1cn 9939  ax-icn 9940  ax-addcl 9941  ax-addrcl 9942  ax-mulcl 9943  ax-mulrcl 9944  ax-mulcom 9945  ax-addass 9946  ax-mulass 9947  ax-distr 9948  ax-i2m1 9949  ax-1ne0 9950  ax-1rid 9951  ax-rnegex 9952  ax-rrecex 9953  ax-cnre 9954  ax-pre-lttri 9955  ax-pre-lttrn 9956  ax-pre-ltadd 9957  ax-pre-mulgt0 9958  ax-pre-sup 9959  ax-addf 9960  ax-mulf 9961
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1883  df-eu 2478  df-mo 2479  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ne 2797  df-nel 2900  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3193  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-tp 4158  df-op 4160  df-uni 4408  df-int 4446  df-iun 4492  df-br 4619  df-opab 4679  df-mpt 4680  df-tr 4718  df-eprel 4990  df-id 4994  df-po 5000  df-so 5001  df-fr 5038  df-we 5040  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-pred 5642  df-ord 5688  df-on 5689  df-lim 5690  df-suc 5691  df-iota 5813  df-fun 5852  df-fn 5853  df-f 5854  df-f1 5855  df-fo 5856  df-f1o 5857  df-fv 5858  df-riota 6566  df-ov 6608  df-oprab 6609  df-mpt2 6610  df-om 7014  df-1st 7116  df-2nd 7117  df-tpos 7298  df-wrecs 7353  df-recs 7414  df-rdg 7452  df-1o 7506  df-oadd 7510  df-er 7688  df-map 7805  df-en 7901  df-dom 7902  df-sdom 7903  df-fin 7904  df-sup 8293  df-pnf 10021  df-mnf 10022  df-xr 10023  df-ltxr 10024  df-le 10025  df-sub 10213  df-neg 10214  df-div 10630  df-nn 10966  df-2 11024  df-3 11025  df-4 11026  df-5 11027  df-6 11028  df-7 11029  df-8 11030  df-9 11031  df-n0 11238  df-z 11323  df-dec 11438  df-uz 11632  df-rp 11777  df-fz 12266  df-seq 12739  df-exp 12798  df-cj 13768  df-re 13769  df-im 13770  df-sqrt 13904  df-abs 13905  df-struct 15778  df-ndx 15779  df-slot 15780  df-base 15781  df-sets 15782  df-ress 15783  df-plusg 15870  df-mulr 15871  df-starv 15872  df-sca 15873  df-vsca 15874  df-ip 15875  df-tset 15876  df-ple 15877  df-ds 15880  df-unif 15881  df-0g 16018  df-mgm 17158  df-sgrp 17200  df-mnd 17211  df-mhm 17251  df-grp 17341  df-minusg 17342  df-sbg 17343  df-subg 17507  df-ghm 17574  df-cmn 18111  df-abl 18112  df-mgp 18406  df-ur 18418  df-ring 18465  df-cring 18466  df-oppr 18539  df-dvdsr 18557  df-unit 18558  df-invr 18588  df-dvr 18599  df-rnghom 18631  df-drng 18665  df-subrg 18694  df-staf 18761  df-srng 18762  df-lmod 18781  df-lmhm 18936  df-lvec 19017  df-sra 19086  df-rgmod 19087  df-cnfld 19661  df-phl 19885  df-nm 22292  df-tng 22294  df-clm 22766  df-tch 22872
This theorem is referenced by:  tchcphlem1  22937  ipcau  22940
  Copyright terms: Public domain W3C validator