Metamath Proof Explorer


Theorem rpmsubg

Description: The positive reals form a multiplicative subgroup of the complex numbers. (Contributed by Mario Carneiro, 21-Jun-2015)

Ref Expression
Hypothesis cnmgpabl.m ⊢ M = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
Assertion rpmsubg ⊢ ℝ + ∈ SubGrp ⁡ M

Proof

Step Hyp Ref Expression
1 cnmgpabl.m ⊢ M = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
2 rpcn ⊢ x ∈ ℝ + → x ∈ ℂ
3 rpne0 ⊢ x ∈ ℝ + → x ≠ 0
4 rpmulcl ⊢ x ∈ ℝ + ∧ y ∈ ℝ + → x ⁢ y ∈ ℝ +
5 1rp ⊢ 1 ∈ ℝ +
6 rpreccl ⊢ x ∈ ℝ + → 1 x ∈ ℝ +
7 1 2 3 4 5 6 cnmsubglem ⊢ ℝ + ∈ SubGrp ⁡ M