« Home

Example. trivial ring [ring-0001]

module ring-0001 where

open import MLTT.Spartan
open import UF.Subsingletons
open import UF.Subsingletons-Properties

open import ring-0000
open Ring {{...}}

Trivial ring 就像前面群論提過的 trivial group,在 trivial ring 裡加法、乘法都一樣,因為作為只有一個元素的集合,能選擇的 n-元運算都只有一個。 也因此下面的 terms 幾乎都可以由 agda 自動填滿

trivial-ring : Ring (𝟙 {𝓤})
trivial-ring .size = props-are-sets 𝟙-is-prop
trivial-ring ._⊕_ _ _ = 
trivial-ring .𝟘R = 
trivial-ring .⊕-assoc = λ x y z  refl
trivial-ring .0l-neu = λ x  refl
trivial-ring .0r-neu = λ x  refl
trivial-ring .-_ _ = 
trivial-ring .cancel = refl , refl
trivial-ring .⊕-comm = refl
trivial-ring ._⊗_ _ _ = 
trivial-ring .⊗-assoc = λ x y z  refl
trivial-ring .𝟙R = 
trivial-ring .1l-neu = λ x  refl
trivial-ring .1r-neu = λ x  refl
trivial-ring .distrib1 = refl
trivial-ring .distrib2 = refl