Theorem rngoueqz 38141

Description: Obsolete as of 23-Jan-2020. Use 0ring01eqbi 20465 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 38120	. . 3 ⊢ (𝑅 ∈ RingOps → 𝑍 ∈ 𝑋)
5		en1eqsn 9175	. . . . . 6 ⊢ ((𝑍 ∈ 𝑋 ∧ 𝑋 ≈ 1o) → 𝑋 = {𝑍})
6	1	rneqi 5886	. . . . . . . 8 ⊢ ran 𝐺 = ran (1st ‘𝑅)
7		uznzr.2	. . . . . . . 8 ⊢ 𝐻 = (2nd ‘𝑅)
8		uznzr.4	. . . . . . . 8 ⊢ 𝑈 = (GId‘𝐻)
9	6, 7, 8	rngo1cl 38140	. . . . . . 7 ⊢ (𝑅 ∈ RingOps → 𝑈 ∈ ran 𝐺)
10		eleq2 2825	. . . . . . . . . 10 ⊢ (𝑋 = {𝑍} → (𝑈 ∈ 𝑋 ↔ 𝑈 ∈ {𝑍}))
11	10	biimpd 229	. . . . . . . . 9 ⊢ (𝑋 = {𝑍} → (𝑈 ∈ 𝑋 → 𝑈 ∈ {𝑍}))
12		elsni 4597	. . . . . . . . 9 ⊢ (𝑈 ∈ {𝑍} → 𝑈 = 𝑍)
13	11, 12	syl6com 37	. . . . . . . 8 ⊢ (𝑈 ∈ 𝑋 → (𝑋 = {𝑍} → 𝑈 = 𝑍))
14	2	eqcomi 2745	. . . . . . . 8 ⊢ ran 𝐺 = 𝑋
15	13, 14	eleq2s 2854	. . . . . . 7 ⊢ (𝑈 ∈ ran 𝐺 → (𝑋 = {𝑍} → 𝑈 = 𝑍))
16	9, 15	syl 17	. . . . . 6 ⊢ (𝑅 ∈ RingOps → (𝑋 = {𝑍} → 𝑈 = 𝑍))
17	5, 16	syl5com 31	. . . . 5 ⊢ ((𝑍 ∈ 𝑋 ∧ 𝑋 ≈ 1o) → (𝑅 ∈ RingOps → 𝑈 = 𝑍))
18	17	ex 412	. . . 4 ⊢ (𝑍 ∈ 𝑋 → (𝑋 ≈ 1o → (𝑅 ∈ RingOps → 𝑈 = 𝑍)))
19	18	com23 86	. . 3 ⊢ (𝑍 ∈ 𝑋 → (𝑅 ∈ RingOps → (𝑋 ≈ 1o → 𝑈 = 𝑍)))
20	4, 19	mpcom 38	. 2 ⊢ (𝑅 ∈ RingOps → (𝑋 ≈ 1o → 𝑈 = 𝑍))
21	1, 2	rngone0 38112	. . 3 ⊢ (𝑅 ∈ RingOps → 𝑋 ≠ ∅)
22		oveq2 7366	. . . . . 6 ⊢ (𝑈 = 𝑍 → (𝑥𝐻𝑈) = (𝑥𝐻𝑍))
23	22	ralrimivw 3132	. . . . 5 ⊢ (𝑈 = 𝑍 → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍))
24	3, 2, 1, 7	rngorz 38124	. . . . . . 7 ⊢ ((𝑅 ∈ RingOps ∧ 𝑥 ∈ 𝑋) → (𝑥𝐻𝑍) = 𝑍)
25	24	ralrimiva 3128	. . . . . 6 ⊢ (𝑅 ∈ RingOps → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍)
26	2, 6	eqtri 2759	. . . . . . . . 9 ⊢ 𝑋 = ran (1st ‘𝑅)
27	7, 26, 8	rngoridm 38139	. . . . . . . 8 ⊢ ((𝑅 ∈ RingOps ∧ 𝑥 ∈ 𝑋) → (𝑥𝐻𝑈) = 𝑥)
28	27	ralrimiva 3128	. . . . . . 7 ⊢ (𝑅 ∈ RingOps → ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥)
29		r19.26 3096	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ↔ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍)))
30		r19.26 3096	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) ↔ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍))
31		eqtr 2756	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = (𝑥𝐻𝑈) ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → 𝑥 = (𝑥𝐻𝑍))
32		eqtr 2756	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑥 = (𝑥𝐻𝑍) ∧ (𝑥𝐻𝑍) = 𝑍) → 𝑥 = 𝑍)
33	32	ex 412	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍))
34	31, 33	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = (𝑥𝐻𝑈) ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍))
35	34	ex 412	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑥𝐻𝑈) → ((𝑥𝐻𝑈) = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍)))
36	35	eqcoms 2744	. . . . . . . . . . . . . . 15 ⊢ ((𝑥𝐻𝑈) = 𝑥 → ((𝑥𝐻𝑈) = (𝑥𝐻𝑍) → ((𝑥𝐻𝑍) = 𝑍 → 𝑥 = 𝑍)))
37	36	imp31 417	. . . . . . . . . . . . . 14 ⊢ ((((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → 𝑥 = 𝑍)
38	37	ralimi 3073	. . . . . . . . . . . . 13 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → ∀𝑥 ∈ 𝑋 𝑥 = 𝑍)
39		eqsn 4785	. . . . . . . . . . . . . . 15 ⊢ (𝑋 ≠ ∅ → (𝑋 = {𝑍} ↔ ∀𝑥 ∈ 𝑋 𝑥 = 𝑍))
40		ensn1g 8959	. . . . . . . . . . . . . . . . 17 ⊢ (𝑍 ∈ 𝑋 → {𝑍} ≈ 1o)
41	4, 40	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ RingOps → {𝑍} ≈ 1o)
42		breq1 5101	. . . . . . . . . . . . . . . 16 ⊢ (𝑋 = {𝑍} → (𝑋 ≈ 1o ↔ {𝑍} ≈ 1o))
43	41, 42	imbitrrid 246	. . . . . . . . . . . . . . 15 ⊢ (𝑋 = {𝑍} → (𝑅 ∈ RingOps → 𝑋 ≈ 1o))
44	39, 43	biimtrrdi 254	. . . . . . . . . . . . . 14 ⊢ (𝑋 ≠ ∅ → (∀𝑥 ∈ 𝑋 𝑥 = 𝑍 → (𝑅 ∈ RingOps → 𝑋 ≈ 1o)))
45	44	com3l 89	. . . . . . . . . . . . 13 ⊢ (∀𝑥 ∈ 𝑋 𝑥 = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
46	38, 45	syl 17	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑋 (((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ (𝑥𝐻𝑍) = 𝑍) → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
47	30, 46	sylbir 235	. . . . . . . . . . 11 ⊢ ((∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍) → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
48	47	ex 412	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ 𝑋 ((𝑥𝐻𝑈) = 𝑥 ∧ (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
49	29, 48	sylbir 235	. . . . . . . . 9 ⊢ ((∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 ∧ ∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍)) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
50	49	ex 412	. . . . . . . 8 ⊢ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))))
51	50	com24 95	. . . . . . 7 ⊢ (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = 𝑥 → (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))))
52	28, 51	mpcom 38	. . . . . 6 ⊢ (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑍) = 𝑍 → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o))))
53	25, 52	mpd 15	. . . . 5 ⊢ (𝑅 ∈ RingOps → (∀𝑥 ∈ 𝑋 (𝑥𝐻𝑈) = (𝑥𝐻𝑍) → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
54	23, 53	syl5com 31	. . . 4 ⊢ (𝑈 = 𝑍 → (𝑅 ∈ RingOps → (𝑋 ≠ ∅ → 𝑋 ≈ 1o)))
55	54	com13 88	. . 3 ⊢ (𝑋 ≠ ∅ → (𝑅 ∈ RingOps → (𝑈 = 𝑍 → 𝑋 ≈ 1o)))
56	21, 55	mpcom 38	. 2 ⊢ (𝑅 ∈ RingOps → (𝑈 = 𝑍 → 𝑋 ≈ 1o))
57	20, 56	impbid 212	1 ⊢ (𝑅 ∈ RingOps → (𝑋 ≈ 1o ↔ 𝑈 = 𝑍))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113   ≠ wne 2932  ∀wral 3051  ∅c0 4285  {csn 4580   class class class wbr 5098  ran crn 5625  ‘cfv 6492  (class class class)co 7358  1^st c1st 7931  2^nd c2nd 7932  1_oc1o 8390   ≈ cen 8880  GIdcgi 30565  RingOpscrngo 38095

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-sep 5241  ax-nul 5251  ax-pr 5377  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-nul 4286  df-if 4480  df-sn 4581  df-pr 4583  df-op 4587  df-uni 4864  df-iun 4948  df-br 5099  df-opab 5161  df-mpt 5180  df-id 5519  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7315  df-ov 7361  df-1st 7933  df-2nd 7934  df-1o 8397  df-en 8884  df-grpo 30568  df-gid 30569  df-ablo 30620  df-ass 38044  df-exid 38046  df-mgmOLD 38050  df-sgrOLD 38062  df-mndo 38068  df-rngo 38096

This theorem is referenced by:  dvrunz  38155  isdmn3  38275