Metamath Proof Explorer


Theorem idomnzd

Description: A domain has no zero-divisors (besides zero). (Contributed by Jeff Madsen, 19-Jun-2010) (Revised by AV, 12-Jul-2026)

Ref Expression
Hypotheses isidom3.b ⊢ B = Base R
isidom3.t ⊢ · ˙ = ⋅ R
isidom3.0 ⊢ 0 ˙ = 0 R
Assertion idomnzd ⊢ R ∈ IDomn ∧ X ∈ B ∧ Y ∈ B ∧ X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙

Proof

Step Hyp Ref Expression
1 isidom3.b ⊢ B = Base R
2 isidom3.t ⊢ · ˙ = ⋅ R
3 isidom3.0 ⊢ 0 ˙ = 0 R
4 eqid ⊢ 1 R = 1 R
5 1 2 3 4 isidom3 ⊢ R ∈ IDomn ↔ R ∈ CRing ∧ 0 ˙ ≠ 1 R ∧ ∀ a ∈ B ∀ b ∈ B a · ˙ b = 0 ˙ → a = 0 ˙ ∨ b = 0 ˙
6 5 simp3bi ⊢ R ∈ IDomn → ∀ a ∈ B ∀ b ∈ B a · ˙ b = 0 ˙ → a = 0 ˙ ∨ b = 0 ˙
7 oveq1 ⊢ a = X → a · ˙ b = X · ˙ b
8 7 eqeq1d ⊢ a = X → a · ˙ b = 0 ˙ ↔ X · ˙ b = 0 ˙
9 eqeq1 ⊢ a = X → a = 0 ˙ ↔ X = 0 ˙
10 9 orbi1d ⊢ a = X → a = 0 ˙ ∨ b = 0 ˙ ↔ X = 0 ˙ ∨ b = 0 ˙
11 8 10 imbi12d ⊢ a = X → a · ˙ b = 0 ˙ → a = 0 ˙ ∨ b = 0 ˙ ↔ X · ˙ b = 0 ˙ → X = 0 ˙ ∨ b = 0 ˙
12 oveq2 ⊢ b = Y → X · ˙ b = X · ˙ Y
13 12 eqeq1d ⊢ b = Y → X · ˙ b = 0 ˙ ↔ X · ˙ Y = 0 ˙
14 eqeq1 ⊢ b = Y → b = 0 ˙ ↔ Y = 0 ˙
15 14 orbi2d ⊢ b = Y → X = 0 ˙ ∨ b = 0 ˙ ↔ X = 0 ˙ ∨ Y = 0 ˙
16 13 15 imbi12d ⊢ b = Y → X · ˙ b = 0 ˙ → X = 0 ˙ ∨ b = 0 ˙ ↔ X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙
17 11 16 rspc2v ⊢ X ∈ B ∧ Y ∈ B → ∀ a ∈ B ∀ b ∈ B a · ˙ b = 0 ˙ → a = 0 ˙ ∨ b = 0 ˙ → X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙
18 6 17 syl5com ⊢ R ∈ IDomn → X ∈ B ∧ Y ∈ B → X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙
19 18 expd ⊢ R ∈ IDomn → X ∈ B → Y ∈ B → X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙
20 19 3imp2 ⊢ R ∈ IDomn ∧ X ∈ B ∧ Y ∈ B ∧ X · ˙ Y = 0 ˙ → X = 0 ˙ ∨ Y = 0 ˙