mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 12:14:26 +03:00
22 lines
403 B
Idris
22 lines
403 B
Idris
|
module Control.Algebra.Implementations
|
||
|
|
|
||
|
|
import Control.Algebra
|
||
|
|
|
||
|
|
-- This file is for algebra implementations with nowhere else to go.
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
-- Functions ---------------------------
|
||
|
|
|
||
|
|
Semigroup (ty -> ty) where
|
||
|
|
(<+>) = (.)
|
||
|
|
|
||
|
|
SemigroupV (ty -> ty) where
|
||
|
|
semigroupOpIsAssociative _ _ _ = Refl
|
||
|
|
|
||
|
|
Monoid (ty -> ty) where
|
||
|
|
neutral = id
|
||
|
|
|
||
|
|
MonoidV (ty -> ty) where
|
||
|
|
monoidNeutralIsNeutralR _ = Refl
|