\x y -> y == 0 || let (q, r) = x `quotRem` y in x == q * y + r
(quot x y, mod x y)
>>> quotRemInt 10 2 (5,0)
>>> quotRem 10 2 (5,0)
>>> quotRemInteger 10 2 (5,0)