Ringoid

Ringoidβ€…β€ŠAβ€…β€ŠβŠ—β€…β€ŠβŠ•\textbf{Ringoid} \; A \; \otimes \; \oplus

Distlβ€…β€ŠAβ€…β€ŠβŠ—β€…β€ŠβŠ•\textbf{Distl} \; A \; \otimes \; \oplus

Distrβ€…β€ŠAβ€…β€ŠβŠ—β€…β€ŠβŠ•\textbf{Distr} \; A \; \otimes \; \oplus


pred Ringoid(A: set univ, tms,pls: univ->univ->univ){
  Distl[A,tms,pls]
  Distr[A,tms,pls]
}
Distlβ€…β€ŠAβ€…β€Šfβ€…β€Šg\textbf{Distl} \; A \; \text{f} \; \text{g}

Magmaβ€…β€ŠAβ€…β€Šf\textbf{Magma} \; A \; f

Magmaβ€…β€ŠAβ€…β€Šg\textbf{Magma} \; A \; g

βˆ€(x,y,z∈A::f(x,g(y,z))=g(f(x,y),f(x,z))\forall(x,y,z \in A :: f(x,g(y,z)) = g(f(x,y),f(x,z))


pred Distl(A: set univ, f,g: univ->univ->univ) {
  Magma[A,f]
  Magma[A,g]

  all x,y,z: A {
    f[x,g[y,z]] = g[f[x,y],f[x,z]]
  }
}
Distrβ€…β€ŠAβ€…β€Šfβ€…β€Šg\textbf{Distr} \; A \; \text{f} \; \text{g}

Magmaβ€…β€ŠAβ€…β€Šf\textbf{Magma} \; A \; f

Magmaβ€…β€ŠAβ€…β€Šg\textbf{Magma} \; A \; g

βˆ€(x,y,z∈A::f(g(y,z),x)=g(f(y,x),f(z,x))\forall(x,y,z \in A :: f(g(y,z),x) = g(f(y,x),f(z,x))


pred Distr(A: set univ, f,g: univ->univ->univ) {
  Magma[A,f]
  Magma[A,g]

  all x,y,z: A {
    f[g[y,z],x] = g[f[y,x],f[z,x]]
  }
}

Last updated