Metamath Proof Explorer


Theorem cphsqrtcl3

Description: If the scalar field of a subcomplex pre-Hilbert space contains the imaginary unit _i , then it is closed under square roots (i.e., it is quadratically closed). (Contributed by Mario Carneiro, 11-Oct-2015)

Ref Expression
Hypotheses cphsca.f ⊢ F = Scalar ⁡ W
cphsca.k ⊢ K = Base F
Assertion cphsqrtcl3 ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K → A ∈ K

Proof

Step Hyp Ref Expression
1 cphsca.f ⊢ F = Scalar ⁡ W
2 cphsca.k ⊢ K = Base F
3 simpl1 ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → W ∈ CPreHil
4 1 2 cphsubrg ⊢ W ∈ CPreHil → K ∈ SubRing ⁡ ℂ fld
5 3 4 syl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → K ∈ SubRing ⁡ ℂ fld
6 cnfldbas ⊢ ℂ = Base ℂ fld
7 6 subrgss ⊢ K ∈ SubRing ⁡ ℂ fld → K ⊆ ℂ
8 5 7 syl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → K ⊆ ℂ
9 simpl3 ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → A ∈ K
10 8 9 sseldd ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → A ∈ ℂ
11 10 negnegd ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − − A = A
12 11 fveq2d ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − − A = A
13 rpre ⊢ − A ∈ ℝ + → − A ∈ ℝ
14 13 adantl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − A ∈ ℝ
15 rpge0 ⊢ − A ∈ ℝ + → 0 ≤ − A
16 15 adantl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → 0 ≤ − A
17 14 16 sqrtnegd ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − − A = i ⁢ − A
18 12 17 eqtr3d ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → A = i ⁢ − A
19 simpl2 ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → i ∈ K
20 cnfldneg ⊢ A ∈ ℂ → inv g ⁡ ℂ fld ⁡ A = − A
21 10 20 syl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → inv g ⁡ ℂ fld ⁡ A = − A
22 subrgsubg ⊢ K ∈ SubRing ⁡ ℂ fld → K ∈ SubGrp ⁡ ℂ fld
23 5 22 syl ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → K ∈ SubGrp ⁡ ℂ fld
24 eqid ⊢ inv g ⁡ ℂ fld = inv g ⁡ ℂ fld
25 24 subginvcl ⊢ K ∈ SubGrp ⁡ ℂ fld ∧ A ∈ K → inv g ⁡ ℂ fld ⁡ A ∈ K
26 23 9 25 syl2anc ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → inv g ⁡ ℂ fld ⁡ A ∈ K
27 21 26 eqeltrrd ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − A ∈ K
28 1 2 cphsqrtcl ⊢ W ∈ CPreHil ∧ − A ∈ K ∧ − A ∈ ℝ ∧ 0 ≤ − A → − A ∈ K
29 3 27 14 16 28 syl13anc ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → − A ∈ K
30 cnfldmul ⊢ × = ⋅ ℂ fld
31 30 subrgmcl ⊢ K ∈ SubRing ⁡ ℂ fld ∧ i ∈ K ∧ − A ∈ K → i ⁢ − A ∈ K
32 5 19 29 31 syl3anc ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → i ⁢ − A ∈ K
33 18 32 eqeltrd ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K ∧ − A ∈ ℝ + → A ∈ K
34 33 ex ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K → − A ∈ ℝ + → A ∈ K
35 1 2 cphsqrtcl2 ⊢ W ∈ CPreHil ∧ A ∈ K ∧ ¬ − A ∈ ℝ + → A ∈ K
36 35 3expia ⊢ W ∈ CPreHil ∧ A ∈ K → ¬ − A ∈ ℝ + → A ∈ K
37 36 3adant2 ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K → ¬ − A ∈ ℝ + → A ∈ K
38 34 37 pm2.61d ⊢ W ∈ CPreHil ∧ i ∈ K ∧ A ∈ K → A ∈ K