mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
16 lines
291 B
Idris
16 lines
291 B
Idris
|
module Data.Nat.Algebra
|
||
|
|
|
||
|
|
import Control.Algebra
|
||
|
|
import Data.Nat
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
public export
|
||
|
|
SemigroupV Nat where
|
||
|
|
semigroupOpIsAssociative = plusAssociative
|
||
|
|
|
||
|
|
public export
|
||
|
|
MonoidV Nat where
|
||
|
|
monoidNeutralIsNeutralL = plusZeroRightNeutral
|
||
|
|
monoidNeutralIsNeutralR = plusZeroLeftNeutral
|