isfldidl - Mathbox for Jeff Madsen

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

Theorem isfldidl 38820

Description: Obsolete theorem, use isfieldidl 21453 instead. Determine if a ring is a field based on its ideals. (Contributed by Jeff Madsen, 10-Jun-2010.) (New usage is discouraged.) (Proof modification is discouraged.)

**Hypotheses**
Ref	Expression
isfldidl.1	⊢ 𝐺 = (1^st ‘𝐾)
isfldidl.2	⊢ 𝐻 = (2^nd ‘𝐾)
isfldidl.3	⊢ 𝑋 = ran 𝐺
isfldidl.4	⊢ 𝑍 = (GId‘𝐺)
isfldidl.5	⊢ 𝑈 = (GId‘𝐻)

**Assertion**
Ref	Expression
isfldidl	⊢ (𝐾 ∈ Fld ↔ (𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}))

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

Step	Hyp	Ref	Expression
1		fldcrngo 38756	. . 3 ⊢ (𝐾 ∈ Fld → 𝐾 ∈ CRingOps)
2		flddivrng 38751	. . . 4 ⊢ (𝐾 ∈ Fld → 𝐾 ∈ DivRingOps)
3		isfldidl.1	. . . . 5 ⊢ 𝐺 = (1^st ‘𝐾)
4		isfldidl.2	. . . . 5 ⊢ 𝐻 = (2^nd ‘𝐾)
5		isfldidl.3	. . . . 5 ⊢ 𝑋 = ran 𝐺
6		isfldidl.4	. . . . 5 ⊢ 𝑍 = (GId‘𝐺)
7		isfldidl.5	. . . . 5 ⊢ 𝑈 = (GId‘𝐻)
8	3, 4, 5, 6, 7	dvrunz 38706	. . . 4 ⊢ (𝐾 ∈ DivRingOps → 𝑈 ≠ 𝑍)
9	2, 8	syl 18	. . 3 ⊢ (𝐾 ∈ Fld → 𝑈 ≠ 𝑍)
10	3, 4, 5, 6	divrngidl 38780	. . . 4 ⊢ (𝐾 ∈ DivRingOps → (Idl‘𝐾) = {{𝑍}, 𝑋})
11	2, 10	syl 18	. . 3 ⊢ (𝐾 ∈ Fld → (Idl‘𝐾) = {{𝑍}, 𝑋})
12	1, 9, 11	3jca 1146	. 2 ⊢ (𝐾 ∈ Fld → (𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}))
13		crngorngo 38752	. . . . . 6 ⊢ (𝐾 ∈ CRingOps → 𝐾 ∈ RingOps)
14	13	3ad2ant1 1151	. . . . 5 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → 𝐾 ∈ RingOps)
15		simp2 1155	. . . . 5 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → 𝑈 ≠ 𝑍)
16	3	rneqi 5925	. . . . . . . . . . . . . . 15 ⊢ ran 𝐺 = ran (1^st ‘𝐾)
17	5, 16	eqtri 2785	. . . . . . . . . . . . . 14 ⊢ 𝑋 = ran (1^st ‘𝐾)
18	17, 4, 7	rngo1cl 38691	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ RingOps → 𝑈 ∈ 𝑋)
19	13, 18	syl 18	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ CRingOps → 𝑈 ∈ 𝑋)
20	19	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → 𝑈 ∈ 𝑋)
21		eldif 3912	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑋 ∖ {𝑍}) ↔ (𝑥 ∈ 𝑋 ∧ ¬ 𝑥 ∈ {𝑍}))
22		snssi 4749	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ 𝑋 → {𝑥} ⊆ 𝑋)
23	3, 5	igenss 38814	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ RingOps ∧ {𝑥} ⊆ 𝑋) → {𝑥} ⊆ (𝐾 IdlGen {𝑥}))
24	22, 23	sylan2 605	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ RingOps ∧ 𝑥 ∈ 𝑋) → {𝑥} ⊆ (𝐾 IdlGen {𝑥}))
25		vex 3457	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑥 ∈ V
26	25	snss 4748	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 ∈ (𝐾 IdlGen {𝑥}) ↔ {𝑥} ⊆ (𝐾 IdlGen {𝑥}))
27	26	biimpri 231	. . . . . . . . . . . . . . . . . . . 20 ⊢ ({𝑥} ⊆ (𝐾 IdlGen {𝑥}) → 𝑥 ∈ (𝐾 IdlGen {𝑥}))
28		eleq2 2851	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 IdlGen {𝑥}) = {𝑍} → (𝑥 ∈ (𝐾 IdlGen {𝑥}) ↔ 𝑥 ∈ {𝑍}))
29	27, 28	syl5ibcom 248	. . . . . . . . . . . . . . . . . . 19 ⊢ ({𝑥} ⊆ (𝐾 IdlGen {𝑥}) → ((𝐾 IdlGen {𝑥}) = {𝑍} → 𝑥 ∈ {𝑍}))
30	29	con3dimp 414	. . . . . . . . . . . . . . . . . 18 ⊢ (({𝑥} ⊆ (𝐾 IdlGen {𝑥}) ∧ ¬ 𝑥 ∈ {𝑍}) → ¬ (𝐾 IdlGen {𝑥}) = {𝑍})
31	24, 30	sylan 592	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ RingOps ∧ 𝑥 ∈ 𝑋) ∧ ¬ 𝑥 ∈ {𝑍}) → ¬ (𝐾 IdlGen {𝑥}) = {𝑍})
32	31	anasss 472	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ RingOps ∧ (𝑥 ∈ 𝑋 ∧ ¬ 𝑥 ∈ {𝑍})) → ¬ (𝐾 IdlGen {𝑥}) = {𝑍})
33	21, 32	sylan2b 606	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ RingOps ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ¬ (𝐾 IdlGen {𝑥}) = {𝑍})
34	33	adantlr 728	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ RingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ¬ (𝐾 IdlGen {𝑥}) = {𝑍})
35		eldifi 4081	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥 ∈ (𝑋 ∖ {𝑍}) → 𝑥 ∈ 𝑋)
36	35	snssd 4750	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 ∈ (𝑋 ∖ {𝑍}) → {𝑥} ⊆ 𝑋)
37	3, 5	igenidl 38815	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ RingOps ∧ {𝑥} ⊆ 𝑋) → (𝐾 IdlGen {𝑥}) ∈ (Idl‘𝐾))
38	36, 37	sylan2 605	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ RingOps ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) ∈ (Idl‘𝐾))
39		eleq2 2851	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Idl‘𝐾) = {{𝑍}, 𝑋} → ((𝐾 IdlGen {𝑥}) ∈ (Idl‘𝐾) ↔ (𝐾 IdlGen {𝑥}) ∈ {{𝑍}, 𝑋}))
40	38, 39	syl5ibcom 248	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ RingOps ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ((Idl‘𝐾) = {{𝑍}, 𝑋} → (𝐾 IdlGen {𝑥}) ∈ {{𝑍}, 𝑋}))
41	40	imp 412	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ RingOps ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → (𝐾 IdlGen {𝑥}) ∈ {{𝑍}, 𝑋})
42	41	an32s 665	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ RingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) ∈ {{𝑍}, 𝑋})
43		ovex 7449	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 IdlGen {𝑥}) ∈ V
44	43	elpr 4612	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 IdlGen {𝑥}) ∈ {{𝑍}, 𝑋} ↔ ((𝐾 IdlGen {𝑥}) = {𝑍} ∨ (𝐾 IdlGen {𝑥}) = 𝑋))
45	42, 44	sylib 221	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ RingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ((𝐾 IdlGen {𝑥}) = {𝑍} ∨ (𝐾 IdlGen {𝑥}) = 𝑋))
46	45	ord 878	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ RingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (¬ (𝐾 IdlGen {𝑥}) = {𝑍} → (𝐾 IdlGen {𝑥}) = 𝑋))
47	34, 46	mpd 16	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ RingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) = 𝑋)
48	13, 47	sylanl1 693	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) = 𝑋)
49	3, 4, 5	prnc 38819	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑥 ∈ 𝑋) → (𝐾 IdlGen {𝑥}) = {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)})
50	35, 49	sylan2 605	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) = {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)})
51	50	adantlr 728	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝐾 IdlGen {𝑥}) = {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)})
52	48, 51	eqtr3d 2799	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → 𝑋 = {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)})
53	20, 52	eleqtrd 2864	. . . . . . . . . 10 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → 𝑈 ∈ {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)})
54		eqeq1 2766	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑈 → (𝑧 = (𝑦𝐻𝑥) ↔ 𝑈 = (𝑦𝐻𝑥)))
55	54	rexbidv 3188	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑈 → (∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥) ↔ ∃𝑦 ∈ 𝑋 𝑈 = (𝑦𝐻𝑥)))
56	55	elrab 3648	. . . . . . . . . 10 ⊢ (𝑈 ∈ {𝑧 ∈ 𝑋 ∣ ∃𝑦 ∈ 𝑋 𝑧 = (𝑦𝐻𝑥)} ↔ (𝑈 ∈ 𝑋 ∧ ∃𝑦 ∈ 𝑋 𝑈 = (𝑦𝐻𝑥)))
57	53, 56	sylib 221	. . . . . . . . 9 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → (𝑈 ∈ 𝑋 ∧ ∃𝑦 ∈ 𝑋 𝑈 = (𝑦𝐻𝑥)))
58	57	simprd 501	. . . . . . . 8 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ∃𝑦 ∈ 𝑋 𝑈 = (𝑦𝐻𝑥))
59		eqcom 2769	. . . . . . . . 9 ⊢ ((𝑦𝐻𝑥) = 𝑈 ↔ 𝑈 = (𝑦𝐻𝑥))
60	59	rexbii 3111	. . . . . . . 8 ⊢ (∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈 ↔ ∃𝑦 ∈ 𝑋 𝑈 = (𝑦𝐻𝑥))
61	58, 60	sylibr 237	. . . . . . 7 ⊢ (((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) ∧ 𝑥 ∈ (𝑋 ∖ {𝑍})) → ∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈)
62	61	ralrimiva 3156	. . . . . 6 ⊢ ((𝐾 ∈ CRingOps ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → ∀𝑥 ∈ (𝑋 ∖ {𝑍})∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈)
63	62	3adant2 1149	. . . . 5 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → ∀𝑥 ∈ (𝑋 ∖ {𝑍})∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈)
64	14, 15, 63	jca32 525	. . . 4 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → (𝐾 ∈ RingOps ∧ (𝑈 ≠ 𝑍 ∧ ∀𝑥 ∈ (𝑋 ∖ {𝑍})∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈)))
65	3, 4, 6, 5, 7	isdrngo3 38711	. . . 4 ⊢ (𝐾 ∈ DivRingOps ↔ (𝐾 ∈ RingOps ∧ (𝑈 ≠ 𝑍 ∧ ∀𝑥 ∈ (𝑋 ∖ {𝑍})∃𝑦 ∈ 𝑋 (𝑦𝐻𝑥) = 𝑈)))
66	64, 65	sylibr 237	. . 3 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → 𝐾 ∈ DivRingOps)
67		simp1 1154	. . 3 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → 𝐾 ∈ CRingOps)
68		isfld2 38757	. . 3 ⊢ (𝐾 ∈ Fld ↔ (𝐾 ∈ DivRingOps ∧ 𝐾 ∈ CRingOps))
69	66, 67, 68	sylanbrc 595	. 2 ⊢ ((𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}) → 𝐾 ∈ Fld)
70	12, 69	impbii 212	1 ⊢ (𝐾 ∈ Fld ↔ (𝐾 ∈ CRingOps ∧ 𝑈 ≠ 𝑍 ∧ (Idl‘𝐾) = {{𝑍}, 𝑋}))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 ↔ wb 209 ∧ wa 401 ∨ wo 861 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2957 ∀wral 3078 ∃wrex 3088 {crab 3414 ∖ cdif 3899 ⊆ wss 3902 {csn 4587 {cpr 4589 ran crn 5660 ‘cfv 6537 (class class class)co 7416 1^st c1st 7987 2^nd c2nd 7988 GIdcgi 30972 RingOpscrngo 38646 DivRingOpscdrng 38700 Fldcfld 38743 CRingOpsccring 38745 Idlcidl 38759 IdlGen cigen 38811

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2215 ax-ext 2734 ax-rep 5236 ax-sep 5255 ax-nul 5267 ax-pow 5334 ax-pr 5402 ax-un 7739

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-ral 3079 df-rex 3089 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-nul 4283 df-if 4486 df-pw 4562 df-sn 4588 df-pr 4590 df-op 4594 df-uni 4871 df-int 4911 df-iun 4956 df-br 5108 df-opab 5172 df-mpt 5191 df-id 5554 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 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 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-1st 7989 df-2nd 7990 df-1o 8458 df-en 8956 df-grpo 30975 df-gid 30976 df-ginv 30977 df-ablo 31027 df-ass 38595 df-exid 38597 df-mgmOLD 38601 df-sgrOLD 38613 df-mndo 38619 df-rngo 38647 df-drngo 38701 df-com2 38742 df-fld 38744 df-crngo 38746 df-idl 38762 df-igen 38812

This theorem is used by: isfldidl2 38821

W3C validator