rngomndo - Mathbox for Jeff Madsen

	Mathbox for Jeff Madsen		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > rngomndo		Structured version Visualization version GIF version

Theorem rngomndo 39006

Description: Obsolete theorem, use ringgrp 20473 instead. In a unital ring the multiplication is a monoid. (Contributed by FL, 24-Jan-2010.) (Revised by Mario Carneiro, 22-Dec-2013.) (New usage is discouraged.) (Proof modification is discouraged.)

**Hypothesis**
Ref	Expression
unmnd.1	⊢ 𝐻 = (2^nd ‘𝑅)

**Assertion**
Ref	Expression
rngomndo	⊢ (𝑅 ∈ RingOps → 𝐻 ∈ MndOp)

Proof of Theorem rngomndo Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2760	. . . 4 ⊢ (1^st ‘𝑅) = (1^st ‘𝑅)
2		unmnd.1	. . . 4 ⊢ 𝐻 = (2^nd ‘𝑅)
3		eqid 2760	. . . 4 ⊢ ran (1^st ‘𝑅) = ran (1^st ‘𝑅)
4	1, 2, 3	rngosm 38971	. . 3 ⊢ (𝑅 ∈ RingOps → 𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅))
5	1, 2, 3	rngoass 38977	. . . 4 ⊢ ((𝑅 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑅) ∧ 𝑦 ∈ ran (1^st ‘𝑅) ∧ 𝑧 ∈ ran (1^st ‘𝑅))) → ((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)))
6	5	ralrimivvva 3208	. . 3 ⊢ (𝑅 ∈ RingOps → ∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)))
7	1, 2, 3	rngoi 38970	. . . 4 ⊢ (𝑅 ∈ RingOps → (((1^st ‘𝑅) ∈ AbelOp ∧ 𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅)) ∧ (∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)(((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ (𝑥𝐻(𝑦(1^st ‘𝑅)𝑧)) = ((𝑥𝐻𝑦)(1^st ‘𝑅)(𝑥𝐻𝑧)) ∧ ((𝑥(1^st ‘𝑅)𝑦)𝐻𝑧) = ((𝑥𝐻𝑧)(1^st ‘𝑅)(𝑦𝐻𝑧))) ∧ ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))))
8	7	simprrd 786	. . 3 ⊢ (𝑅 ∈ RingOps → ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))
9	2, 1	rngorn1 39004	. . . 4 ⊢ (𝑅 ∈ RingOps → ran (1^st ‘𝑅) = dom dom 𝐻)
10		xpid11 5915	. . . . . . . 8 ⊢ ((dom dom 𝐻 × dom dom 𝐻) = (ran (1^st ‘𝑅) × ran (1^st ‘𝑅)) ↔ dom dom 𝐻 = ran (1^st ‘𝑅))
11	10	biimpri 231	. . . . . . 7 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (dom dom 𝐻 × dom dom 𝐻) = (ran (1^st ‘𝑅) × ran (1^st ‘𝑅)))
12		feq23 6695	. . . . . . 7 ⊢ (((dom dom 𝐻 × dom dom 𝐻) = (ran (1^st ‘𝑅) × ran (1^st ‘𝑅)) ∧ dom dom 𝐻 = ran (1^st ‘𝑅)) → (𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ↔ 𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅)))
13	11, 12	mpancom 701	. . . . . 6 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ↔ 𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅)))
14		raleq 3316	. . . . . . . 8 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ↔ ∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧))))
15	14	raleqbi1dv 3329	. . . . . . 7 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ↔ ∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧))))
16	15	raleqbi1dv 3329	. . . . . 6 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ↔ ∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧))))
17		raleq 3316	. . . . . . 7 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦) ↔ ∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)))
18	17	rexeqbi1dv 3330	. . . . . 6 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → (∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦) ↔ ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)))
19	13, 16, 18	3anbi123d 1464	. . . . 5 ⊢ (dom dom 𝐻 = ran (1^st ‘𝑅) → ((𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)) ↔ (𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅) ∧ ∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))))
20	19	eqcoms 2768	. . . 4 ⊢ (ran (1^st ‘𝑅) = dom dom 𝐻 → ((𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)) ↔ (𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅) ∧ ∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))))
21	9, 20	syl 18	. . 3 ⊢ (𝑅 ∈ RingOps → ((𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)) ↔ (𝐻:(ran (1^st ‘𝑅) × ran (1^st ‘𝑅))⟶ran (1^st ‘𝑅) ∧ ∀𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)∀𝑧 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ ran (1^st ‘𝑅)∀𝑦 ∈ ran (1^st ‘𝑅)((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))))
22	4, 6, 8, 21	mpbir3and 1361	. 2 ⊢ (𝑅 ∈ RingOps → (𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)))
23		fvex 6903	. . . 4 ⊢ (2^nd ‘𝑅) ∈ V
24		eleq1 2848	. . . 4 ⊢ (𝐻 = (2^nd ‘𝑅) → (𝐻 ∈ V ↔ (2^nd ‘𝑅) ∈ V))
25	23, 24	mpbiri 261	. . 3 ⊢ (𝐻 = (2^nd ‘𝑅) → 𝐻 ∈ V)
26		eqid 2760	. . . 4 ⊢ dom dom 𝐻 = dom dom 𝐻
27	26	ismndo1 38944	. . 3 ⊢ (𝐻 ∈ V → (𝐻 ∈ MndOp ↔ (𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦))))
28	2, 25, 27	mp2b 10	. 2 ⊢ (𝐻 ∈ MndOp ↔ (𝐻:(dom dom 𝐻 × dom dom 𝐻)⟶dom dom 𝐻 ∧ ∀𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻∀𝑧 ∈ dom dom 𝐻((𝑥𝐻𝑦)𝐻𝑧) = (𝑥𝐻(𝑦𝐻𝑧)) ∧ ∃𝑥 ∈ dom dom 𝐻∀𝑦 ∈ dom dom 𝐻((𝑥𝐻𝑦) = 𝑦 ∧ (𝑦𝐻𝑥) = 𝑦)))
29	22, 28	sylibr 237	1 ⊢ (𝑅 ∈ RingOps → 𝐻 ∈ MndOp)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1569 ∈ wcel 2144 ∀wral 3076 ∃wrex 3086 Vcvv 3450 × cxp 5649 dom cdm 5651 ran crn 5652 ⟶wf 6539 ‘cfv 6543 (class class class)co 7424 1^st c1st 8003 2^nd c2nd 8004 AbelOpcablo 31155 MndOpcmndo 38937 RingOpscrngo 38965

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-sep 5248 ax-nul 5259 ax-pr 5391 ax-un 7755

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-ral 3077 df-rex 3087 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3848 df-ss 3897 df-dif 4046 df-in 4090 df-un 4150 df-nul 4278 df-if 4482 df-sn 4585 df-pr 4587 df-op 4835 df-uni 4867 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-id 5546 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-iota 6497 df-fun 6545 df-fn 6546 df-f 6547 df-fo 6549 df-fv 6551 df-ov 7427 df-1st 8005 df-2nd 8006 df-grpo 31104 df-ablo 31156 df-ass 38914 df-exid 38916 df-mgmOLD 38920 df-sgrOLD 38932 df-mndo 38938 df-rngo 38966

This theorem is used by: rngoidmlem 39007 rngo1cl 39010 isdrngo2 39029

W3C validator