Metamath Proof Explorer


Theorem nn0srg

Description: The nonnegative integers form a semiring (commutative by subcmn ). (Contributed by Thierry Arnoux, 1-May-2018)

Ref Expression
Assertion nn0srg ⊢ ℂ fld ↾ 𝑠 ℕ 0 ∈ SRing

Proof

Step Hyp Ref Expression
1 cnring ⊢ ℂ fld ∈ Ring
2 ringcmn ⊢ ℂ fld ∈ Ring → ℂ fld ∈ CMnd
3 1 2 ax-mp ⊢ ℂ fld ∈ CMnd
4 nn0subm ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld
5 eqid ⊢ ℂ fld ↾ 𝑠 ℕ 0 = ℂ fld ↾ 𝑠 ℕ 0
6 5 submcmn ⊢ ℂ fld ∈ CMnd ∧ ℕ 0 ∈ SubMnd ⁡ ℂ fld → ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd
7 3 4 6 mp2an ⊢ ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd
8 nn0ex ⊢ ℕ 0 ∈ V
9 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
10 5 9 mgpress ⊢ ℂ fld ∈ CMnd ∧ ℕ 0 ∈ V → mulGrp ℂ fld ↾ 𝑠 ℕ 0 = mulGrp ℂ fld ↾ 𝑠 ℕ 0
11 3 8 10 mp2an ⊢ mulGrp ℂ fld ↾ 𝑠 ℕ 0 = mulGrp ℂ fld ↾ 𝑠 ℕ 0
12 nn0sscn ⊢ ℕ 0 ⊆ ℂ
13 1nn0 ⊢ 1 ∈ ℕ 0
14 nn0mulcl ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x ⁢ y ∈ ℕ 0
15 14 rgen2 ⊢ ∀ x ∈ ℕ 0 ∀ y ∈ ℕ 0 x ⁢ y ∈ ℕ 0
16 9 ringmgp ⊢ ℂ fld ∈ Ring → mulGrp ℂ fld ∈ Mnd
17 1 16 ax-mp ⊢ mulGrp ℂ fld ∈ Mnd
18 cnfldbas ⊢ ℂ = Base ℂ fld
19 9 18 mgpbas ⊢ ℂ = Base mulGrp ℂ fld
20 cnfld1 ⊢ 1 = 1 ℂ fld
21 9 20 ringidval ⊢ 1 = 0 mulGrp ℂ fld
22 cnfldmul ⊢ × = ⋅ ℂ fld
23 9 22 mgpplusg ⊢ × = + mulGrp ℂ fld
24 19 21 23 issubm ⊢ mulGrp ℂ fld ∈ Mnd → ℕ 0 ∈ SubMnd ⁡ mulGrp ℂ fld ↔ ℕ 0 ⊆ ℂ ∧ 1 ∈ ℕ 0 ∧ ∀ x ∈ ℕ 0 ∀ y ∈ ℕ 0 x ⁢ y ∈ ℕ 0
25 17 24 ax-mp ⊢ ℕ 0 ∈ SubMnd ⁡ mulGrp ℂ fld ↔ ℕ 0 ⊆ ℂ ∧ 1 ∈ ℕ 0 ∧ ∀ x ∈ ℕ 0 ∀ y ∈ ℕ 0 x ⁢ y ∈ ℕ 0
26 12 13 15 25 mpbir3an ⊢ ℕ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
27 eqid ⊢ mulGrp ℂ fld ↾ 𝑠 ℕ 0 = mulGrp ℂ fld ↾ 𝑠 ℕ 0
28 27 submmnd ⊢ ℕ 0 ∈ SubMnd ⁡ mulGrp ℂ fld → mulGrp ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd
29 26 28 ax-mp ⊢ mulGrp ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd
30 11 29 eqeltrri ⊢ mulGrp ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd
31 simpl ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → x ∈ ℕ 0
32 31 nn0cnd ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → x ∈ ℂ
33 simprl ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → y ∈ ℕ 0
34 33 nn0cnd ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → y ∈ ℂ
35 simprr ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → z ∈ ℕ 0
36 35 nn0cnd ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → z ∈ ℂ
37 32 34 36 adddid ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → x ⁢ y + z = x ⁢ y + x ⁢ z
38 32 34 36 adddird ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → x + y ⁢ z = x ⁢ z + y ⁢ z
39 37 38 jca ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ z ∈ ℕ 0 → x ⁢ y + z = x ⁢ y + x ⁢ z ∧ x + y ⁢ z = x ⁢ z + y ⁢ z
40 39 ralrimivva ⊢ x ∈ ℕ 0 → ∀ y ∈ ℕ 0 ∀ z ∈ ℕ 0 x ⁢ y + z = x ⁢ y + x ⁢ z ∧ x + y ⁢ z = x ⁢ z + y ⁢ z
41 nn0cn ⊢ x ∈ ℕ 0 → x ∈ ℂ
42 41 mul02d ⊢ x ∈ ℕ 0 → 0 ⋅ x = 0
43 41 mul01d ⊢ x ∈ ℕ 0 → x ⋅ 0 = 0
44 40 42 43 jca32 ⊢ x ∈ ℕ 0 → ∀ y ∈ ℕ 0 ∀ z ∈ ℕ 0 x ⁢ y + z = x ⁢ y + x ⁢ z ∧ x + y ⁢ z = x ⁢ z + y ⁢ z ∧ 0 ⋅ x = 0 ∧ x ⋅ 0 = 0
45 44 rgen ⊢ ∀ x ∈ ℕ 0 ∀ y ∈ ℕ 0 ∀ z ∈ ℕ 0 x ⁢ y + z = x ⁢ y + x ⁢ z ∧ x + y ⁢ z = x ⁢ z + y ⁢ z ∧ 0 ⋅ x = 0 ∧ x ⋅ 0 = 0
46 5 18 ressbas2 ⊢ ℕ 0 ⊆ ℂ → ℕ 0 = Base ℂ fld ↾ 𝑠 ℕ 0
47 12 46 ax-mp ⊢ ℕ 0 = Base ℂ fld ↾ 𝑠 ℕ 0
48 eqid ⊢ mulGrp ℂ fld ↾ 𝑠 ℕ 0 = mulGrp ℂ fld ↾ 𝑠 ℕ 0
49 cnfldadd ⊢ + = + ℂ fld
50 5 49 ressplusg ⊢ ℕ 0 ∈ V → + = + ℂ fld ↾ 𝑠 ℕ 0
51 8 50 ax-mp ⊢ + = + ℂ fld ↾ 𝑠 ℕ 0
52 5 22 ressmulr ⊢ ℕ 0 ∈ V → × = ⋅ ℂ fld ↾ 𝑠 ℕ 0
53 8 52 ax-mp ⊢ × = ⋅ ℂ fld ↾ 𝑠 ℕ 0
54 ringmnd ⊢ ℂ fld ∈ Ring → ℂ fld ∈ Mnd
55 1 54 ax-mp ⊢ ℂ fld ∈ Mnd
56 0nn0 ⊢ 0 ∈ ℕ 0
57 cnfld0 ⊢ 0 = 0 ℂ fld
58 5 18 57 ress0g ⊢ ℂ fld ∈ Mnd ∧ 0 ∈ ℕ 0 ∧ ℕ 0 ⊆ ℂ → 0 = 0 ℂ fld ↾ 𝑠 ℕ 0
59 55 56 12 58 mp3an ⊢ 0 = 0 ℂ fld ↾ 𝑠 ℕ 0
60 47 48 51 53 59 issrg ⊢ ℂ fld ↾ 𝑠 ℕ 0 ∈ SRing ↔ ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd ∧ mulGrp ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd ∧ ∀ x ∈ ℕ 0 ∀ y ∈ ℕ 0 ∀ z ∈ ℕ 0 x ⁢ y + z = x ⁢ y + x ⁢ z ∧ x + y ⁢ z = x ⁢ z + y ⁢ z ∧ 0 ⋅ x = 0 ∧ x ⋅ 0 = 0
61 7 30 45 60 mpbir3an ⊢ ℂ fld ↾ 𝑠 ℕ 0 ∈ SRing