mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-11-11 02:01:36 +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
|