mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-02 22:43:14 +03:00
12 lines
241 B
Idris
12 lines
241 B
Idris
|
[PlusNatSemi] Semigroup Nat where
|
||
|
|
(<+>) x y = x + y
|
||
|
|
|
||
|
|
[MultNatSemi] Semigroup Nat where
|
||
|
|
(<+>) x y = x * y
|
||
|
|
|
||
|
|
[PlusNatMonoid] Monoid Nat using PlusNatSemi where
|
||
|
|
neutral = 0
|
||
|
|
|
||
|
|
[MultNatMonoid] Monoid Nat using MultNatSemi where
|
||
|
|
neutral = 1
|