Metamath Proof Explorer


Theorem cnsubrg

Description: There are no subrings of the complex numbers strictly between RR and CC . (Contributed by Mario Carneiro, 15-Oct-2015)

Ref Expression
Assertion cnsubrg ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → R ∈ ℝ ℂ

Proof

Step Hyp Ref Expression
1 ssdif0 ⊢ R ⊆ ℝ ↔ R ∖ ℝ = ∅
2 simpr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ⊆ ℝ → R ⊆ ℝ
3 simplr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ⊆ ℝ → ℝ ⊆ R
4 2 3 eqssd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ⊆ ℝ → R = ℝ
5 4 orcd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ⊆ ℝ → R = ℝ ∨ R = ℂ
6 1 5 sylan2br ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ∖ ℝ = ∅ → R = ℝ ∨ R = ℂ
7 n0 ⊢ R ∖ ℝ ≠ ∅ ↔ ∃ x x ∈ R ∖ ℝ
8 simpll ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → R ∈ SubRing ⁡ ℂ fld
9 cnfldbas ⊢ ℂ = Base ℂ fld
10 9 subrgss ⊢ R ∈ SubRing ⁡ ℂ fld → R ⊆ ℂ
11 8 10 syl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → R ⊆ ℂ
12 replim ⊢ y ∈ ℂ → y = ℜ ⁡ y + i ⁢ ℑ ⁡ y
13 12 ad2antll ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → y = ℜ ⁡ y + i ⁢ ℑ ⁡ y
14 simpll ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → R ∈ SubRing ⁡ ℂ fld
15 simplr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℝ ⊆ R
16 recl ⊢ y ∈ ℂ → ℜ ⁡ y ∈ ℝ
17 16 ad2antll ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℜ ⁡ y ∈ ℝ
18 15 17 sseldd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℜ ⁡ y ∈ R
19 ax-icn ⊢ i ∈ ℂ
20 19 a1i ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ∈ ℂ
21 eldifi ⊢ x ∈ R ∖ ℝ → x ∈ R
22 21 adantl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x ∈ R
23 11 22 sseldd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x ∈ ℂ
24 imcl ⊢ x ∈ ℂ → ℑ ⁡ x ∈ ℝ
25 23 24 syl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℑ ⁡ x ∈ ℝ
26 25 recnd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℑ ⁡ x ∈ ℂ
27 eldifn ⊢ x ∈ R ∖ ℝ → ¬ x ∈ ℝ
28 27 adantl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ¬ x ∈ ℝ
29 reim0b ⊢ x ∈ ℂ → x ∈ ℝ ↔ ℑ ⁡ x = 0
30 29 necon3bbid ⊢ x ∈ ℂ → ¬ x ∈ ℝ ↔ ℑ ⁡ x ≠ 0
31 23 30 syl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ¬ x ∈ ℝ ↔ ℑ ⁡ x ≠ 0
32 28 31 mpbid ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℑ ⁡ x ≠ 0
33 20 26 32 divcan4d ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ⁢ ℑ ⁡ x ℑ ⁡ x = i
34 mulcl ⊢ i ∈ ℂ ∧ ℑ ⁡ x ∈ ℂ → i ⁢ ℑ ⁡ x ∈ ℂ
35 19 26 34 sylancr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ⁢ ℑ ⁡ x ∈ ℂ
36 35 26 32 divrecd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ⁢ ℑ ⁡ x ℑ ⁡ x = i ⁢ ℑ ⁡ x ⁢ 1 ℑ ⁡ x
37 33 36 eqtr3d ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i = i ⁢ ℑ ⁡ x ⁢ 1 ℑ ⁡ x
38 23 recld ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℜ ⁡ x ∈ ℝ
39 38 recnd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℜ ⁡ x ∈ ℂ
40 23 39 negsubd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x + − ℜ ⁡ x = x − ℜ ⁡ x
41 replim ⊢ x ∈ ℂ → x = ℜ ⁡ x + i ⁢ ℑ ⁡ x
42 23 41 syl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x = ℜ ⁡ x + i ⁢ ℑ ⁡ x
43 42 oveq1d ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x − ℜ ⁡ x = ℜ ⁡ x + i ⁢ ℑ ⁡ x - ℜ ⁡ x
44 39 35 pncan2d ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℜ ⁡ x + i ⁢ ℑ ⁡ x - ℜ ⁡ x = i ⁢ ℑ ⁡ x
45 40 43 44 3eqtrd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x + − ℜ ⁡ x = i ⁢ ℑ ⁡ x
46 simplr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℝ ⊆ R
47 38 renegcld ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → − ℜ ⁡ x ∈ ℝ
48 46 47 sseldd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → − ℜ ⁡ x ∈ R
49 cnfldadd ⊢ + = + ℂ fld
50 49 subrgacl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ x ∈ R ∧ − ℜ ⁡ x ∈ R → x + − ℜ ⁡ x ∈ R
51 8 22 48 50 syl3anc ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → x + − ℜ ⁡ x ∈ R
52 45 51 eqeltrrd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ⁢ ℑ ⁡ x ∈ R
53 25 32 rereccld ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → 1 ℑ ⁡ x ∈ ℝ
54 46 53 sseldd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → 1 ℑ ⁡ x ∈ R
55 cnfldmul ⊢ × = ⋅ ℂ fld
56 55 subrgmcl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ i ⁢ ℑ ⁡ x ∈ R ∧ 1 ℑ ⁡ x ∈ R → i ⁢ ℑ ⁡ x ⁢ 1 ℑ ⁡ x ∈ R
57 8 52 54 56 syl3anc ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ⁢ ℑ ⁡ x ⁢ 1 ℑ ⁡ x ∈ R
58 37 57 eqeltrd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → i ∈ R
59 58 adantrr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → i ∈ R
60 imcl ⊢ y ∈ ℂ → ℑ ⁡ y ∈ ℝ
61 60 ad2antll ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℑ ⁡ y ∈ ℝ
62 15 61 sseldd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℑ ⁡ y ∈ R
63 55 subrgmcl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ i ∈ R ∧ ℑ ⁡ y ∈ R → i ⁢ ℑ ⁡ y ∈ R
64 14 59 62 63 syl3anc ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → i ⁢ ℑ ⁡ y ∈ R
65 49 subrgacl ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℜ ⁡ y ∈ R ∧ i ⁢ ℑ ⁡ y ∈ R → ℜ ⁡ y + i ⁢ ℑ ⁡ y ∈ R
66 14 18 64 65 syl3anc ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → ℜ ⁡ y + i ⁢ ℑ ⁡ y ∈ R
67 13 66 eqeltrd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ ∧ y ∈ ℂ → y ∈ R
68 67 expr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → y ∈ ℂ → y ∈ R
69 68 ssrdv ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → ℂ ⊆ R
70 11 69 eqssd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → R = ℂ
71 70 olcd ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ x ∈ R ∖ ℝ → R = ℝ ∨ R = ℂ
72 71 ex ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → x ∈ R ∖ ℝ → R = ℝ ∨ R = ℂ
73 72 exlimdv ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → ∃ x x ∈ R ∖ ℝ → R = ℝ ∨ R = ℂ
74 73 imp ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ ∃ x x ∈ R ∖ ℝ → R = ℝ ∨ R = ℂ
75 7 74 sylan2b ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R ∧ R ∖ ℝ ≠ ∅ → R = ℝ ∨ R = ℂ
76 6 75 pm2.61dane ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → R = ℝ ∨ R = ℂ
77 elprg ⊢ R ∈ SubRing ⁡ ℂ fld → R ∈ ℝ ℂ ↔ R = ℝ ∨ R = ℂ
78 77 adantr ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → R ∈ ℝ ℂ ↔ R = ℝ ∨ R = ℂ
79 76 78 mpbird ⊢ R ∈ SubRing ⁡ ℂ fld ∧ ℝ ⊆ R → R ∈ ℝ ℂ