Theorem isdomn 20682

Description: Expand definition of a domain. (Contributed by Mario Carneiro, 28-Mar-2015.)

Hypotheses

Ref	Expression
isdomn.b	⊢ 𝐵 = (Base‘𝑅)
isdomn.t	⊢ · = (.r‘𝑅)
isdomn.z	⊢ 0 = (0g‘𝑅)

Assertion

Ref	Expression
isdomn	⊢ (𝑅 ∈ Domn ↔ (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))

Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝑅,𝑦   𝑥, 0 ,𝑦

Allowed substitution hints:   · (𝑥,𝑦)

Proof of Theorem isdomn

Dummy variables 𝑏 𝑟 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvexd 6855	. . 3 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
2		fveq2 6840	. . . 4 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
3		isdomn.b	. . . 4 ⊢ 𝐵 = (Base‘𝑅)
4	2, 3	eqtr4di 2789	. . 3 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
5		fvexd 6855	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (0g‘𝑟) ∈ V)
6		fveq2 6840	. . . . . 6 ⊢ (𝑟 = 𝑅 → (0g‘𝑟) = (0g‘𝑅))
7	6	adantr 480	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (0g‘𝑟) = (0g‘𝑅))
8		isdomn.z	. . . . 5 ⊢ 0 = (0g‘𝑅)
9	7, 8	eqtr4di 2789	. . . 4 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (0g‘𝑟) = 0 )
10		simplr 769	. . . . 5 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → 𝑏 = 𝐵)
11		fveq2 6840	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = (.r‘𝑅))
12		isdomn.t	. . . . . . . . . 10 ⊢ · = (.r‘𝑅)
13	11, 12	eqtr4di 2789	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (.r‘𝑟) = · )
14	13	oveqdr 7395	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → (𝑥(.r‘𝑟)𝑦) = (𝑥 · 𝑦))
15		id 22	. . . . . . . 8 ⊢ (𝑧 = 0 → 𝑧 = 0 )
16	14, 15	eqeqan12d 2750	. . . . . . 7 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → ((𝑥(.r‘𝑟)𝑦) = 𝑧 ↔ (𝑥 · 𝑦) = 0 ))
17		eqeq2 2748	. . . . . . . . 9 ⊢ (𝑧 = 0 → (𝑥 = 𝑧 ↔ 𝑥 = 0 ))
18		eqeq2 2748	. . . . . . . . 9 ⊢ (𝑧 = 0 → (𝑦 = 𝑧 ↔ 𝑦 = 0 ))
19	17, 18	orbi12d 919	. . . . . . . 8 ⊢ (𝑧 = 0 → ((𝑥 = 𝑧 ∨ 𝑦 = 𝑧) ↔ (𝑥 = 0 ∨ 𝑦 = 0 )))
20	19	adantl 481	. . . . . . 7 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → ((𝑥 = 𝑧 ∨ 𝑦 = 𝑧) ↔ (𝑥 = 0 ∨ 𝑦 = 0 )))
21	16, 20	imbi12d 344	. . . . . 6 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → (((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧)) ↔ ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))
22	10, 21	raleqbidv 3311	. . . . 5 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → (∀𝑦 ∈ 𝑏 ((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧)) ↔ ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))
23	10, 22	raleqbidv 3311	. . . 4 ⊢ (((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) ∧ 𝑧 = 0 ) → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))
24	5, 9, 23	sbcied2 3773	. . 3 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = 𝐵) → ([(0g‘𝑟) / 𝑧]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))
25	1, 4, 24	sbcied2 3773	. 2 ⊢ (𝑟 = 𝑅 → ([(Base‘𝑟) / 𝑏][(0g‘𝑟) / 𝑧]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))
26		df-domn 20672	. 2 ⊢ Domn = {𝑟 ∈ NzRing ∣ [(Base‘𝑟) / 𝑏][(0g‘𝑟) / 𝑧]∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 ((𝑥(.r‘𝑟)𝑦) = 𝑧 → (𝑥 = 𝑧 ∨ 𝑦 = 𝑧))}
27	25, 26	elrab2 3637	1 ⊢ (𝑅 ∈ Domn ↔ (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 · 𝑦) = 0 → (𝑥 = 0 ∨ 𝑦 = 0 ))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 848   = wceq 1542   ∈ wcel 2114  ∀wral 3051  Vcvv 3429  [wsbc 3728  ‘cfv 6498  (class class class)co 7367  Basecbs 17179  ._rcmulr 17221  0_gc0g 17402  NzRingcnzr 20489  Domncdomn 20669

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-ext 2708  ax-nul 5241

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-sb 2069  df-clab 2715  df-cleq 2728  df-clel 2811  df-ne 2933  df-ral 3052  df-rab 3390  df-v 3431  df-sbc 3729  df-dif 3892  df-un 3894  df-ss 3906  df-nul 4274  df-if 4467  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-br 5086  df-iota 6454  df-fv 6506  df-ov 7370  df-domn 20672

This theorem is referenced by:  domnnzr  20683  domneq0  20685  isdomn2  20688  isdomn2OLD  20689  isdomn3  20692  isdomn4  20693  opprdomnb  20694  abvn0b  20813  znfld  21540  ply1domn  26089  fta1b  26137  domnpropd  33338  subrdom  33346  prmidl0  33510  qsidomlem2  33513