Modulelinear-base-0.8.1
Data.Arity.Linear.Internal
- 1 type
- 1 class
- Packagelinear-base-0.8.1
- Exports6
- LicenceMIT
Equations
NatToPeano0
= 'ZNatToPeano n = 'S (NatToPeano (n -1
))
Equations
PeanoToNat 'Z =0
PeanoToNat ('S n) =1
+ PeanoToNat n
:: a typeCtrl KGHC 9.14.1 · lts/ghc-9.14.x · 45dd537 · 2026-10-11
Modulelinear-base-0.8.1
NatToPeano 0
= 'ZNatToPeano n = 'S (NatToPeano (n - 1
))PeanoToNat 'Z = 0
PeanoToNat ('S n) = 1
+ PeanoToNat n