Metamath Proof Explorer


Theorem reefgim

Description: The exponential function is a group isomorphism from the group of reals under addition to the group of positive reals under multiplication. (Contributed by Mario Carneiro, 21-Jun-2015) (Revised by Thierry Arnoux, 30-Jun-2019)

Ref Expression
Hypothesis reefgim.1 ⊢ P = mulGrp ℂ fld ↾ 𝑠 ℝ +
Assertion reefgim ⊢ exp ↾ ℝ ∈ ℝ fld GrpIso P

Proof

Step Hyp Ref Expression
1 reefgim.1 ⊢ P = mulGrp ℂ fld ↾ 𝑠 ℝ +
2 rebase ⊢ ℝ = Base ℝ fld
3 eqid ⊢ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
4 3 rpmsubg ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
5 cnex ⊢ ℂ ∈ V
6 5 difexi ⊢ ℂ ∖ 0 ∈ V
7 rpcndif0 ⊢ x ∈ ℝ + → x ∈ ℂ ∖ 0
8 7 ssriv ⊢ ℝ + ⊆ ℂ ∖ 0
9 ressabs ⊢ ℂ ∖ 0 ∈ V ∧ ℝ + ⊆ ℂ ∖ 0 → mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℝ +
10 6 8 9 mp2an ⊢ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ + = mulGrp ℂ fld ↾ 𝑠 ℝ +
11 1 10 eqtr4i ⊢ P = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ↾ 𝑠 ℝ +
12 11 subgbas ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 → ℝ + = Base P
13 4 12 ax-mp ⊢ ℝ + = Base P
14 replusg ⊢ + = + ℝ fld
15 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
16 cnfldmul ⊢ × = ⋅ ℂ fld
17 15 16 mgpplusg ⊢ × = + mulGrp ℂ fld
18 1 17 ressplusg ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 → × = + P
19 4 18 ax-mp ⊢ × = + P
20 resubdrg ⊢ ℝ ∈ SubRing ⁡ ℂ fld ∧ ℝ fld ∈ DivRing
21 20 simpli ⊢ ℝ ∈ SubRing ⁡ ℂ fld
22 df-refld ⊢ ℝ fld = ℂ fld ↾ 𝑠 ℝ
23 22 subrgring ⊢ ℝ ∈ SubRing ⁡ ℂ fld → ℝ fld ∈ Ring
24 21 23 ax-mp ⊢ ℝ fld ∈ Ring
25 ringgrp ⊢ ℝ fld ∈ Ring → ℝ fld ∈ Grp
26 24 25 mp1i ⊢ ⊤ → ℝ fld ∈ Grp
27 11 subggrp ⊢ ℝ + ∈ SubGrp ⁡ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 → P ∈ Grp
28 4 27 mp1i ⊢ ⊤ → P ∈ Grp
29 reeff1o ⊢ exp ↾ ℝ : ℝ ⟶ 1-1 onto ℝ +
30 f1of ⊢ exp ↾ ℝ : ℝ ⟶ 1-1 onto ℝ + → exp ↾ ℝ : ℝ ⟶ ℝ +
31 29 30 mp1i ⊢ ⊤ → exp ↾ ℝ : ℝ ⟶ ℝ +
32 recn ⊢ x ∈ ℝ → x ∈ ℂ
33 recn ⊢ y ∈ ℝ → y ∈ ℂ
34 efadd ⊢ x ∈ ℂ ∧ y ∈ ℂ → e x + y = e x ⁢ e y
35 32 33 34 syl2an ⊢ x ∈ ℝ ∧ y ∈ ℝ → e x + y = e x ⁢ e y
36 readdcl ⊢ x ∈ ℝ ∧ y ∈ ℝ → x + y ∈ ℝ
37 36 fvresd ⊢ x ∈ ℝ ∧ y ∈ ℝ → exp ↾ ℝ ⁡ x + y = e x + y
38 fvres ⊢ x ∈ ℝ → exp ↾ ℝ ⁡ x = e x
39 fvres ⊢ y ∈ ℝ → exp ↾ ℝ ⁡ y = e y
40 38 39 oveqan12d ⊢ x ∈ ℝ ∧ y ∈ ℝ → exp ↾ ℝ ⁡ x ⁢ exp ↾ ℝ ⁡ y = e x ⁢ e y
41 35 37 40 3eqtr4d ⊢ x ∈ ℝ ∧ y ∈ ℝ → exp ↾ ℝ ⁡ x + y = exp ↾ ℝ ⁡ x ⁢ exp ↾ ℝ ⁡ y
42 41 adantl ⊢ ⊤ ∧ x ∈ ℝ ∧ y ∈ ℝ → exp ↾ ℝ ⁡ x + y = exp ↾ ℝ ⁡ x ⁢ exp ↾ ℝ ⁡ y
43 2 13 14 19 26 28 31 42 isghmd ⊢ ⊤ → exp ↾ ℝ ∈ ℝ fld GrpHom P
44 43 mptru ⊢ exp ↾ ℝ ∈ ℝ fld GrpHom P
45 2 13 isgim ⊢ exp ↾ ℝ ∈ ℝ fld GrpIso P ↔ exp ↾ ℝ ∈ ℝ fld GrpHom P ∧ exp ↾ ℝ : ℝ ⟶ 1-1 onto ℝ +
46 44 29 45 mpbir2an ⊢ exp ↾ ℝ ∈ ℝ fld GrpIso P