Theorem rngoueqz 38478

Description: Obsolete as of 23-Jan-2020. Use 0ring01eqbi 20616 instead. In a unital ring the zero equals the ring unity iff the ring is the zero ring. (Contributed by FL, 14-Feb-2010.) (New usage is discouraged.)

Hypotheses

Ref	Expression
uznzr.1	⊢ 𝐺 = (1st ‘𝑅)
uznzr.2	⊢ 𝐻 = (2nd ‘𝑅)
uznzr.3	⊢ 𝑍 = (GId‘𝐺)
uznzr.4	⊢ 𝑈 = (GId‘𝐻)
uznzr.5	⊢ 𝑋 = ran 𝐺

Assertion

Ref	Expression
rngoueqz	⊢ (𝑅 ∈ RingOps → (𝑋 ≈ 1o ↔ 𝑈 = 𝑍))

Proof of Theorem rngoueqz

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		uznzr.1	. . . 4 ⊢ 𝐺 = (1st ‘𝑅)
2		uznzr.5	. . . 4 ⊢ 𝑋 = ran 𝐺
3		uznzr.3	. . . 4 ⊢ 𝑍 = (GId‘𝐺)
4	1, 2, 3	rngo0cl 38457	. . 3 ⊢ (𝑅 ∈ RingOps → 𝑍 ∈ 𝑋)
5		en1eqsn 9234	. . . . . 6 ⊢ ((𝑍 ∈ 𝑋 ∧ 𝑋 ≈ 1o) → 𝑋 = {𝑍})
6	1	rneqi 5928	. . . . . . . 8 ⊢ ran 𝐺 = ran (1st ‘𝑅)
7		uznzr.2	. . . . . . . 8 ⊢ 𝐻 = (2nd ‘𝑅)
8		uznzr.4	. . . . . . . 8 ⊢ 𝑈 = (GId‘𝐻)
9	6, 7, 8	rngo1cl 38477	. . . . . . 7 ⊢ (𝑅 ∈ RingOps → 𝑈 ∈ ran 𝐺)
10		eleq2 2858	. . . . . . . . . 10 ⊢ (𝑋 = {𝑍} → (𝑈 ∈ 𝑋 ↔ 𝑈 ∈ {𝑍}))
11	10	biimpd 232	. . . . . . . . 9 ⊢ (𝑋 = {𝑍} → (𝑈 ∈ 𝑋 → 𝑈 ∈ {𝑍}))
12		elsni 4611	. . . . . . . . 9 ⊢ (𝑈 ∈ {𝑍} → 𝑈 = 𝑍)
13	11, 12	syl6com 38	. . . . . . . 8 ⊢ (𝑈 ∈ 𝑋 → (𝑋 = {𝑍} → 𝑈 = 𝑍))
14	2	eqcomi 2778	. . . . . . . 8 ⊢ ran 𝐺 = 𝑋
15	13, 14	eleq2s 2887	. . . . . . 7 ⊢ (𝑈 ∈ ran 𝐺 → (𝑋 = {𝑍} → 𝑈 = 𝑍))
16	9, 15	syl 18	. . . . . 6 ⊢ (𝑅 ∈ RingOps → (𝑋 = {𝑍} → 𝑈 = 𝑍))
17	5, 16	syl5com 32	. . . . 5 ⊢ ((𝑍 ∈ 𝑋 ∧ 𝑋 ≈ 1o) → (𝑅 ∈ RingOps → 𝑈 = 𝑍))
18	17	ex 417	. . . 4 ⊢ (𝑍 ∈ 𝑋 → (𝑋 ≈ 1o → (𝑅 ∈ RingOps → 𝑈 = 𝑍)))
19	18	com23 87	. . 3 ⊢ (𝑍 ∈ 𝑋 → (𝑅 ∈ RingOps → (𝑋 ≈ 1o → 𝑈 = 𝑍)))
20	4, 19	mpcom 39	. 2 ⊢ (𝑅 ∈ RingOps → (𝑋 ≈ 1o → 𝑈 = 𝑍))
21	1, 2	rngone0 38449	. . 3 ⊢ (𝑅 ∈ RingOps → 𝑋 ≠ ∅)
22		oveq2 7419	. . . . . 6 ⊢ (𝑈 = 𝑍 → (𝑥𝐻𝑈) = (𝑥𝐻𝑍))
23	22	ralrimivw 3167	. . . . 5 ⊢ (𝑈 = 𝑍 → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍))
24	3, 2, 1, 7	rngorz 38461	. . . . . . 7 ⊢ ((𝑅 ∈ RingOps ∧ 𝑥 ∈ 𝑋) → (𝑥𝐻𝑍) = 𝑍)
25	24	ralrimiva 3163	. . . . . 6 ⊢ (𝑅 ∈ RingOps → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍)
26	2, 6	eqtri 2792	. . . . . . . . 9 ⊢ 𝑋 = ran (1st ‘𝑅)
27	7, 26, 8	rngoridm 38476	. . . . . . . 8 ⊢ ((𝑅 ∈ RingOps ∧ 𝑥 ∈ 𝑋) → (𝑥𝐻𝑈) = 𝑥)
28	27	ralrimiva 3163	. . . . . . 7 ⊢ (𝑅 ∈ RingOps → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥)
29		r19.26 3131	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ↔ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍)))
30		r19.26 3131	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) ↔ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍))
31		eqtr 2789	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = (𝑥𝐻𝑈) ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → 𝑥 = (𝑥𝐻𝑍))
32		eqtr 2789	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = (𝑥𝐻𝑍) ∧ (𝑥𝐻𝑍) = 𝑍) → 𝑥 = 𝑍)
33	32	ex 417	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍))
34	31, 33	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = (𝑥𝐻𝑈) ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍))
35	34	ex 417	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑥𝐻𝑈) → ((𝑥𝐻𝑈) = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍)))
36	35	eqcoms 2777	. . . . . . . . . . . . . . 15 ⊢ ((𝑥𝐻𝑈) = 𝑥 → ((𝑥𝐻𝑈) = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍)))
37	36	imp31 422	. . . . . . . . . . . . . 14 ⊢ ((((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → 𝑥 = 𝑍)
38	37	ralimi 3108	. . . . . . . . . . . . 13 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → ∀𝑥 ∈ 𝑋 𝑥 = 𝑍)
39		eqsn 4799	. . . . . . . . . . . . . . 15 ⊢ (𝑋 ≠ ∅ → (𝑋 = {𝑍} ↔ ∀𝑥 ∈ 𝑋 𝑥 = 𝑍))
40		ensn1g 9018	. . . . . . . . . . . . . . . . 17 ⊢ (𝑍 ∈ 𝑋 → {𝑍} ≈ 1o)
41	4, 40	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ RingOps → {𝑍} ≈ 1o)
42		breq1 5116	. . . . . . . . . . . . . . . 16 ⊢ (𝑋 = {𝑍} → (𝑋 ≈ 1o ↔ {𝑍} ≈ 1o))
43	41, 42	imbitrrid 249	. . . . . . . . . . . . . . 15 ⊢ (𝑋 = {𝑍} → (𝑅 ∈ RingOps → 𝑋 ≈ 1o))
44	39, 43	biimtrrdi 257	. . . . . . . . . . . . . 14 ⊢ (𝑋 ≠ ∅ → (∀𝑥 ∈ 𝑋 𝑥 = 𝑍 → (𝑅 ∈ RingOps → 𝑋 ≈ 1o)))
45	44	com3l 90	. . . . . . . . . . . . 13 ⊢ (∀𝑥 ∈ 𝑋 𝑥 = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
46	38, 45	syl 18	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
47	30, 46	sylbir 238	. . . . . . . . . . 11 ⊢ ((∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍) → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
48	47	ex 417	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
49	29, 48	sylbir 238	. . . . . . . . 9 ⊢ ((∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
50	49	ex 417	. . . . . . . 8 ⊢ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))))
51	50	com24 96	. . . . . . 7 ⊢ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 → (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))))
52	28, 51	mpcom 39	. . . . . 6 ⊢ (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
53	25, 52	mpd 16	. . . . 5 ⊢ (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
54	23, 53	syl5com 32	. . . 4 ⊢ (𝑈 = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
55	54	com13 89	. . 3 ⊢ (𝑋 ≠ ∅ → (𝑅 ∈ RingOps → (𝑈 = 𝑍 → 𝑋 ≈ 1o)))
56	21, 55	mpcom 39	. 2 ⊢ (𝑅 ∈ RingOps → (𝑈 = 𝑍 → 𝑋 ≈ 1o))
57	20, 56	impbid 215	1 ⊢ (𝑅 ∈ RingOps → (𝑋 ≈ 1o ↔ 𝑈 = 𝑍))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∀wral 3085  ∅c0 4294  {csn 4594   class class class wbr 5113  ran crn 5663  ‘cfv 6537  (class class class)co 7411  1^st c1st 7983  2^nd c2nd 7984  1_oc1o 8445   ≈ cen 8939  GIdcgi 30782  RingOpscrngo 38432

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-1st 7985  df-2nd 7986  df-1o 8452  df-en 8943  df-grpo 30785  df-gid 30786  df-ablo 30837  df-ass 38381  df-exid 38383  df-mgmOLD 38387  df-sgrOLD 38399  df-mndo 38405  df-rngo 38433

This theorem is referenced by:  dvrunz  38492  isdmn3  38612