Metamath Proof Explorer


Theorem circsubm

Description: The circle group T is a submonoid of the multiplicative group of CCfld . (Contributed by Thierry Arnoux, 26-Jan-2020)

Ref Expression
Hypotheses circgrp.1 ⊢ C = abs -1 1
circgrp.2 ⊢ T = mulGrp ℂ fld ↾ 𝑠 C
Assertion circsubm ⊢ C ∈ SubMnd ⁡ mulGrp ℂ fld

Proof

Step Hyp Ref Expression
1 circgrp.1 ⊢ C = abs -1 1
2 circgrp.2 ⊢ T = mulGrp ℂ fld ↾ 𝑠 C
3 oveq2 ⊢ x = y → i ⁢ x = i ⁢ y
4 3 fveq2d ⊢ x = y → e i ⁢ x = e i ⁢ y
5 4 cbvmptv ⊢ x ∈ ℝ ⟼ e i ⁢ x = y ∈ ℝ ⟼ e i ⁢ y
6 5 1 efifo ⊢ x ∈ ℝ ⟼ e i ⁢ x : ℝ ⟶ onto C
7 forn ⊢ x ∈ ℝ ⟼ e i ⁢ x : ℝ ⟶ onto C → ran ⁡ x ∈ ℝ ⟼ e i ⁢ x = C
8 6 7 ax-mp ⊢ ran ⁡ x ∈ ℝ ⟼ e i ⁢ x = C
9 8 eqcomi ⊢ C = ran ⁡ x ∈ ℝ ⟼ e i ⁢ x
10 9 oveq2i ⊢ mulGrp ℂ fld ↾ 𝑠 C = mulGrp ℂ fld ↾ 𝑠 ran ⁡ x ∈ ℝ ⟼ e i ⁢ x
11 ax-icn ⊢ i ∈ ℂ
12 11 a1i ⊢ ⊤ → i ∈ ℂ
13 resubdrg ⊢ ℝ ∈ SubRing ⁡ ℂ fld ∧ ℝ fld ∈ DivRing
14 13 simpli ⊢ ℝ ∈ SubRing ⁡ ℂ fld
15 subrgsubg ⊢ ℝ ∈ SubRing ⁡ ℂ fld → ℝ ∈ SubGrp ⁡ ℂ fld
16 14 15 ax-mp ⊢ ℝ ∈ SubGrp ⁡ ℂ fld
17 16 a1i ⊢ ⊤ → ℝ ∈ SubGrp ⁡ ℂ fld
18 5 10 12 17 efsubm ⊢ ⊤ → ran ⁡ x ∈ ℝ ⟼ e i ⁢ x ∈ SubMnd ⁡ mulGrp ℂ fld
19 18 mptru ⊢ ran ⁡ x ∈ ℝ ⟼ e i ⁢ x ∈ SubMnd ⁡ mulGrp ℂ fld
20 9 19 eqeltri ⊢ C ∈ SubMnd ⁡ mulGrp ℂ fld