-- | Divide a row by another.
divide     :: Row -> Row -> Row
divide x y | bells x /= bells y = error "Mismatched row length"
           | otherwise          = transpose x (inverse y)
divide     :: Row -> Row -> Row
divide x y | bells x /= bells y = error "Mismatched row length"
           | otherwise          = transpose x (inverse y)
divide x y | bells x /= bells y = error "Mismatched row length"
           | otherwise          = transpose x (inverse y)