module ring-0004 where open import MLTT.Spartan open import ring-0000 open Ring {{...}}
一個 Ring 中的元素 是 zero divisor 就表示存在 使 。 所以我們稱 是 non zero-divisor 指如果 ,那 一定等於 。
NonZeroDivisor : {R : 𝓤 ̇ } {{_ : Ring R}} (a : R) → 𝓤 ̇ NonZeroDivisor {_}{R} a = (b : R) → (a · b = 0r → b = 0r)