>>> divModF 1.5 1.2 (1.0,0.30000000000000004)
\(a :: Double) -> a / a ~= one || a == zero
\(a :: Double) -> recip a ~= one / a || a == zero
\(a :: Double) -> recip a * a ~= one || a == zero
\(a :: Double) -> a * recip a ~= one || a == zero
>>> recip 2.0 0.5
>>> 1 / 2 0.5
m |/ one = m