Idris2/tests/idris2/reg042/NatOpts.idr

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
Change reg042 to look at compiler output 2021-06-21 13:16:00 +03:00			`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
[ fix #1579 ] Nat hack for comparison operators (#1580) Co-authored-by: Guillaume ALLAIS <guillaume.allais@ens-lyon.org> 2021-06-28 18:48:08 +03:00
			`doEqual : (m, n : Nat) -> Bool`
			doEqual m n = m `equalNat` n

			`doCompare : (m, n : Nat) -> Ordering`
			doCompare m n = m `compareNat` n