gzrngunit - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > gzrngunit		Structured version Visualization version GIF version

Theorem gzrngunit 20157

Description: The units on ℤ[i] are the gaussian integers with norm 1. (Contributed by Mario Carneiro, 4-Dec-2014.)

**Hypothesis**
Ref	Expression
gzrng.1	⊢ 𝑍 = (ℂ_fld ↾_s ℤ[i])

**Assertion**
Ref	Expression
gzrngunit	⊢ (𝐴 ∈ (Unit‘𝑍) ↔ (𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1))

**Proof of Theorem gzrngunit**
Step	Hyp	Ref	Expression
1		gzsubrg 20145	. . . . 5 ⊢ ℤ[i] ∈ (SubRing‘ℂ_fld)
2		gzrng.1	. . . . . 6 ⊢ 𝑍 = (ℂ_fld ↾_s ℤ[i])
3	2	subrgbas 19537	. . . . 5 ⊢ (ℤ[i] ∈ (SubRing‘ℂ_fld) → ℤ[i] = (Base‘𝑍))
4	1, 3	ax-mp 5	. . . 4 ⊢ ℤ[i] = (Base‘𝑍)
5		eqid 2798	. . . 4 ⊢ (Unit‘𝑍) = (Unit‘𝑍)
6	4, 5	unitcl 19405	. . 3 ⊢ (𝐴 ∈ (Unit‘𝑍) → 𝐴 ∈ ℤ[i])
7		eqid 2798	. . . . . . . . . . . 12 ⊢ (inv_r‘ℂ_fld) = (inv_r‘ℂ_fld)
8		eqid 2798	. . . . . . . . . . . 12 ⊢ (inv_r‘𝑍) = (inv_r‘𝑍)
9	2, 7, 5, 8	subrginv 19544	. . . . . . . . . . 11 ⊢ ((ℤ[i] ∈ (SubRing‘ℂ_fld) ∧ 𝐴 ∈ (Unit‘𝑍)) → ((inv_r‘ℂ_fld)‘𝐴) = ((inv_r‘𝑍)‘𝐴))
10	1, 9	mpan 689	. . . . . . . . . 10 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((inv_r‘ℂ_fld)‘𝐴) = ((inv_r‘𝑍)‘𝐴))
11		gzcn 16258	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ[i] → 𝐴 ∈ ℂ)
12	6, 11	syl 17	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (Unit‘𝑍) → 𝐴 ∈ ℂ)
13		0red 10633	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (Unit‘𝑍) → 0 ∈ ℝ)
14		1re 10630	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ ℝ
15	14	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (Unit‘𝑍) → 1 ∈ ℝ)
16	12	abscld 14788	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (Unit‘𝑍) → (abs‘𝐴) ∈ ℝ)
17		0lt1 11151	. . . . . . . . . . . . . . 15 ⊢ 0 < 1
18	17	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (Unit‘𝑍) → 0 < 1)
19	2	gzrngunitlem 20156	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (Unit‘𝑍) → 1 ≤ (abs‘𝐴))
20	13, 15, 16, 18, 19	ltletrd 10789	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (Unit‘𝑍) → 0 < (abs‘𝐴))
21	20	gt0ne0d 11193	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (Unit‘𝑍) → (abs‘𝐴) ≠ 0)
22	12	abs00ad 14642	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((abs‘𝐴) = 0 ↔ 𝐴 = 0))
23	22	necon3bid 3031	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((abs‘𝐴) ≠ 0 ↔ 𝐴 ≠ 0))
24	21, 23	mpbid 235	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (Unit‘𝑍) → 𝐴 ≠ 0)
25		cnfldinv 20122	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → ((inv_r‘ℂ_fld)‘𝐴) = (1 / 𝐴))
26	12, 24, 25	syl2anc 587	. . . . . . . . . 10 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((inv_r‘ℂ_fld)‘𝐴) = (1 / 𝐴))
27	10, 26	eqtr3d 2835	. . . . . . . . 9 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((inv_r‘𝑍)‘𝐴) = (1 / 𝐴))
28	2	subrgring 19531	. . . . . . . . . . 11 ⊢ (ℤ[i] ∈ (SubRing‘ℂ_fld) → 𝑍 ∈ Ring)
29	1, 28	ax-mp 5	. . . . . . . . . 10 ⊢ 𝑍 ∈ Ring
30	5, 8	unitinvcl 19420	. . . . . . . . . 10 ⊢ ((𝑍 ∈ Ring ∧ 𝐴 ∈ (Unit‘𝑍)) → ((inv_r‘𝑍)‘𝐴) ∈ (Unit‘𝑍))
31	29, 30	mpan 689	. . . . . . . . 9 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((inv_r‘𝑍)‘𝐴) ∈ (Unit‘𝑍))
32	27, 31	eqeltrrd 2891	. . . . . . . 8 ⊢ (𝐴 ∈ (Unit‘𝑍) → (1 / 𝐴) ∈ (Unit‘𝑍))
33	2	gzrngunitlem 20156	. . . . . . . 8 ⊢ ((1 / 𝐴) ∈ (Unit‘𝑍) → 1 ≤ (abs‘(1 / 𝐴)))
34	32, 33	syl 17	. . . . . . 7 ⊢ (𝐴 ∈ (Unit‘𝑍) → 1 ≤ (abs‘(1 / 𝐴)))
35		1cnd 10625	. . . . . . . 8 ⊢ (𝐴 ∈ (Unit‘𝑍) → 1 ∈ ℂ)
36	35, 12, 24	absdivd 14807	. . . . . . 7 ⊢ (𝐴 ∈ (Unit‘𝑍) → (abs‘(1 / 𝐴)) = ((abs‘1) / (abs‘𝐴)))
37	34, 36	breqtrd 5056	. . . . . 6 ⊢ (𝐴 ∈ (Unit‘𝑍) → 1 ≤ ((abs‘1) / (abs‘𝐴)))
38		1div1e1 11319	. . . . . 6 ⊢ (1 / 1) = 1
39		abs1 14649	. . . . . . . 8 ⊢ (abs‘1) = 1
40	39	eqcomi 2807	. . . . . . 7 ⊢ 1 = (abs‘1)
41	40	oveq1i 7145	. . . . . 6 ⊢ (1 / (abs‘𝐴)) = ((abs‘1) / (abs‘𝐴))
42	37, 38, 41	3brtr4g 5064	. . . . 5 ⊢ (𝐴 ∈ (Unit‘𝑍) → (1 / 1) ≤ (1 / (abs‘𝐴)))
43		lerec 11512	. . . . . 6 ⊢ ((((abs‘𝐴) ∈ ℝ ∧ 0 < (abs‘𝐴)) ∧ (1 ∈ ℝ ∧ 0 < 1)) → ((abs‘𝐴) ≤ 1 ↔ (1 / 1) ≤ (1 / (abs‘𝐴))))
44	16, 20, 15, 18, 43	syl22anc 837	. . . . 5 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((abs‘𝐴) ≤ 1 ↔ (1 / 1) ≤ (1 / (abs‘𝐴))))
45	42, 44	mpbird 260	. . . 4 ⊢ (𝐴 ∈ (Unit‘𝑍) → (abs‘𝐴) ≤ 1)
46		letri3 10715	. . . . 5 ⊢ (((abs‘𝐴) ∈ ℝ ∧ 1 ∈ ℝ) → ((abs‘𝐴) = 1 ↔ ((abs‘𝐴) ≤ 1 ∧ 1 ≤ (abs‘𝐴))))
47	16, 14, 46	sylancl 589	. . . 4 ⊢ (𝐴 ∈ (Unit‘𝑍) → ((abs‘𝐴) = 1 ↔ ((abs‘𝐴) ≤ 1 ∧ 1 ≤ (abs‘𝐴))))
48	45, 19, 47	mpbir2and 712	. . 3 ⊢ (𝐴 ∈ (Unit‘𝑍) → (abs‘𝐴) = 1)
49	6, 48	jca 515	. 2 ⊢ (𝐴 ∈ (Unit‘𝑍) → (𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1))
50	11	adantr 484	. . . 4 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 𝐴 ∈ ℂ)
51		simpr 488	. . . . . 6 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → (abs‘𝐴) = 1)
52		ax-1ne0 10595	. . . . . . 7 ⊢ 1 ≠ 0
53	52	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 1 ≠ 0)
54	51, 53	eqnetrd 3054	. . . . 5 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → (abs‘𝐴) ≠ 0)
55		fveq2 6645	. . . . . . 7 ⊢ (𝐴 = 0 → (abs‘𝐴) = (abs‘0))
56		abs0 14637	. . . . . . 7 ⊢ (abs‘0) = 0
57	55, 56	eqtrdi 2849	. . . . . 6 ⊢ (𝐴 = 0 → (abs‘𝐴) = 0)
58	57	necon3i 3019	. . . . 5 ⊢ ((abs‘𝐴) ≠ 0 → 𝐴 ≠ 0)
59	54, 58	syl 17	. . . 4 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 𝐴 ≠ 0)
60		eldifsn 4680	. . . 4 ⊢ (𝐴 ∈ (ℂ ∖ {0}) ↔ (𝐴 ∈ ℂ ∧ 𝐴 ≠ 0))
61	50, 59, 60	sylanbrc 586	. . 3 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 𝐴 ∈ (ℂ ∖ {0}))
62		simpl 486	. . 3 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 𝐴 ∈ ℤ[i])
63	50, 59, 25	syl2anc 587	. . . . 5 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((inv_r‘ℂ_fld)‘𝐴) = (1 / 𝐴))
64	50	absvalsqd 14794	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((abs‘𝐴)↑2) = (𝐴 · (∗‘𝐴)))
65	51	oveq1d 7150	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((abs‘𝐴)↑2) = (1↑2))
66		sq1 13554	. . . . . . . 8 ⊢ (1↑2) = 1
67	65, 66	eqtrdi 2849	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((abs‘𝐴)↑2) = 1)
68	64, 67	eqtr3d 2835	. . . . . 6 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → (𝐴 · (∗‘𝐴)) = 1)
69	68	oveq1d 7150	. . . . 5 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((𝐴 · (∗‘𝐴)) / 𝐴) = (1 / 𝐴))
70	50	cjcld 14547	. . . . . 6 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → (∗‘𝐴) ∈ ℂ)
71	70, 50, 59	divcan3d 11410	. . . . 5 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((𝐴 · (∗‘𝐴)) / 𝐴) = (∗‘𝐴))
72	63, 69, 71	3eqtr2d 2839	. . . 4 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((inv_r‘ℂ_fld)‘𝐴) = (∗‘𝐴))
73		gzcjcl 16262	. . . . 5 ⊢ (𝐴 ∈ ℤ[i] → (∗‘𝐴) ∈ ℤ[i])
74	73	adantr 484	. . . 4 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → (∗‘𝐴) ∈ ℤ[i])
75	72, 74	eqeltrd 2890	. . 3 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → ((inv_r‘ℂ_fld)‘𝐴) ∈ ℤ[i])
76		cnfldbas 20095	. . . . . 6 ⊢ ℂ = (Base‘ℂ_fld)
77		cnfld0 20115	. . . . . 6 ⊢ 0 = (0_g‘ℂ_fld)
78		cndrng 20120	. . . . . 6 ⊢ ℂ_fld ∈ DivRing
79	76, 77, 78	drngui 19501	. . . . 5 ⊢ (ℂ ∖ {0}) = (Unit‘ℂ_fld)
80	2, 79, 5, 7	subrgunit 19546	. . . 4 ⊢ (ℤ[i] ∈ (SubRing‘ℂ_fld) → (𝐴 ∈ (Unit‘𝑍) ↔ (𝐴 ∈ (ℂ ∖ {0}) ∧ 𝐴 ∈ ℤ[i] ∧ ((inv_r‘ℂ_fld)‘𝐴) ∈ ℤ[i])))
81	1, 80	ax-mp 5	. . 3 ⊢ (𝐴 ∈ (Unit‘𝑍) ↔ (𝐴 ∈ (ℂ ∖ {0}) ∧ 𝐴 ∈ ℤ[i] ∧ ((inv_r‘ℂ_fld)‘𝐴) ∈ ℤ[i]))
82	61, 62, 75, 81	syl3anbrc 1340	. 2 ⊢ ((𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1) → 𝐴 ∈ (Unit‘𝑍))
83	49, 82	impbii 212	1 ⊢ (𝐴 ∈ (Unit‘𝑍) ↔ (𝐴 ∈ ℤ[i] ∧ (abs‘𝐴) = 1))

Colors of variables: wff setvar class

Syntax hints: ↔ wb 209 ∧ wa 399 ∧ w3a 1084 = wceq 1538 ∈ wcel 2111 ≠ wne 2987 ∖ cdif 3878 {csn 4525 class class class wbr 5030 ‘cfv 6324 (class class class)co 7135 ℂcc 10524 ℝcr 10525 0cc0 10526 1c1 10527 · cmul 10531 < clt 10664 ≤ cle 10665 / cdiv 11286 2c2 11680 ↑cexp 13425 ∗ccj 14447 abscabs 14585 ℤ[i]cgz 16255 Basecbs 16475 ↾_s cress 16476 Ringcrg 19290 Unitcui 19385 inv_rcinvr 19417 SubRingcsubrg 19524 ℂ_fldccnfld 20091

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2113 ax-9 2121 ax-10 2142 ax-11 2158 ax-12 2175 ax-ext 2770 ax-rep 5154 ax-sep 5167 ax-nul 5174 ax-pow 5231 ax-pr 5295 ax-un 7441 ax-cnex 10582 ax-resscn 10583 ax-1cn 10584 ax-icn 10585 ax-addcl 10586 ax-addrcl 10587 ax-mulcl 10588 ax-mulrcl 10589 ax-mulcom 10590 ax-addass 10591 ax-mulass 10592 ax-distr 10593 ax-i2m1 10594 ax-1ne0 10595 ax-1rid 10596 ax-rnegex 10597 ax-rrecex 10598 ax-cnre 10599 ax-pre-lttri 10600 ax-pre-lttrn 10601 ax-pre-ltadd 10602 ax-pre-mulgt0 10603 ax-pre-sup 10604 ax-addf 10605 ax-mulf 10606

This theorem depends on definitions: df-bi 210 df-an 400 df-or 845 df-3or 1085 df-3an 1086 df-tru 1541 df-ex 1782 df-nf 1786 df-sb 2070 df-mo 2598 df-eu 2629 df-clab 2777 df-cleq 2791 df-clel 2870 df-nfc 2938 df-ne 2988 df-nel 3092 df-ral 3111 df-rex 3112 df-reu 3113 df-rmo 3114 df-rab 3115 df-v 3443 df-sbc 3721 df-csb 3829 df-dif 3884 df-un 3886 df-in 3888 df-ss 3898 df-pss 3900 df-nul 4244 df-if 4426 df-pw 4499 df-sn 4526 df-pr 4528 df-tp 4530 df-op 4532 df-uni 4801 df-int 4839 df-iun 4883 df-br 5031 df-opab 5093 df-mpt 5111 df-tr 5137 df-id 5425 df-eprel 5430 df-po 5438 df-so 5439 df-fr 5478 df-we 5480 df-xp 5525 df-rel 5526 df-cnv 5527 df-co 5528 df-dm 5529 df-rn 5530 df-res 5531 df-ima 5532 df-pred 6116 df-ord 6162 df-on 6163 df-lim 6164 df-suc 6165 df-iota 6283 df-fun 6326 df-fn 6327 df-f 6328 df-f1 6329 df-fo 6330 df-f1o 6331 df-fv 6332 df-riota 7093 df-ov 7138 df-oprab 7139 df-mpo 7140 df-om 7561 df-1st 7671 df-2nd 7672 df-tpos 7875 df-wrecs 7930 df-recs 7991 df-rdg 8029 df-1o 8085 df-oadd 8089 df-er 8272 df-en 8493 df-dom 8494 df-sdom 8495 df-fin 8496 df-sup 8890 df-pnf 10666 df-mnf 10667 df-xr 10668 df-ltxr 10669 df-le 10670 df-sub 10861 df-neg 10862 df-div 11287 df-nn 11626 df-2 11688 df-3 11689 df-4 11690 df-5 11691 df-6 11692 df-7 11693 df-8 11694 df-9 11695 df-n0 11886 df-z 11970 df-dec 12087 df-uz 12232 df-rp 12378 df-fz 12886 df-seq 13365 df-exp 13426 df-cj 14450 df-re 14451 df-im 14452 df-sqrt 14586 df-abs 14587 df-gz 16256 df-struct 16477 df-ndx 16478 df-slot 16479 df-base 16481 df-sets 16482 df-ress 16483 df-plusg 16570 df-mulr 16571 df-starv 16572 df-tset 16576 df-ple 16577 df-ds 16579 df-unif 16580 df-0g 16707 df-mgm 17844 df-sgrp 17893 df-mnd 17904 df-grp 18098 df-minusg 18099 df-subg 18268 df-cmn 18900 df-mgp 19233 df-ur 19245 df-ring 19292 df-cring 19293 df-oppr 19369 df-dvdsr 19387 df-unit 19388 df-invr 19418 df-dvr 19429 df-drng 19497 df-subrg 19526 df-cnfld 20092

This theorem is referenced by: zringunit 20181

W3C validator