analogousTo :: Eq b => (Vector a -> Vector b) -> ([a] -> [b]) -> [a] -> Bool
analogousTo vf lf = vf `analogousTo'` lf `via` (fromList, toList)
analogousTo :: Eq b => (Vector a -> Vector b) -> ([a] -> [b]) -> [a] -> Bool
analogousTo vf lf = vf `analogousTo'` lf `via` (fromList, toList)
analogousTo vf lf = vf `analogousTo'` lf `via` (fromList, toList)