mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 20:23:11 +03:00
15 lines
290 B
Idris
15 lines
290 B
Idris
doPlus : Nat -> Nat -> Nat
|
|
doPlus x y = x `plus` y
|
|
|
|
doMult : Nat -> Nat -> Nat
|
|
doMult x y = x `mult` y
|
|
|
|
doMinus : Nat -> Nat -> Nat
|
|
doMinus x y = x `minus` y
|
|
|
|
doEqual : (m, n : Nat) -> Bool
|
|
doEqual m n = m `equalNat` n
|
|
|
|
doCompare : (m, n : Nat) -> Ordering
|
|
doCompare m n = m `compareNat` n
|