Idris2/libs/contrib/Data/Morphisms/Algebra.idr

16 lines
334 B
Idris
Raw Normal View History

2020-07-14 01:52:22 +03:00
module Data.Morphisms.Algebra
import Control.Algebra
import Data.Morphisms
%default total
public export
SemigroupV (Endomorphism ty) where
semigroupOpIsAssociative (Endo _) (Endo _) (Endo _) = Refl
public export
MonoidV (Endomorphism ty) where
monoidNeutralIsNeutralL (Endo _) = Refl
monoidNeutralIsNeutralR (Endo _) = Refl