module spec GHC.Real where


GHC.Real.fromIntegral    :: (GHC.Real.Integral a, GHC.Num.Num b) => x:a -> {v:b|v=x}

class (GHC.Real.Real a, GHC.Enum.Enum a) => GHC.Real.Integral a where
  GHC.Real.quot :: a -> {v:a | v /= 0} -> a
  GHC.Real.rem :: a -> {v:a | v /= 0} -> a
  GHC.Real.mod :: x:a -> y:{v:a | v /= 0} -> {v:a | v = x mod y && ((0 <= x && 0 < y) => (0 <= v && v < y))}
  GHC.Real.div :: x:a -> y:{v:a | v /= 0} -> {v:a | ((v = (x / y))
                                     && (((x>=0) && (y>=0)) => (v>=0))
                                     && (((x>=0) && (y>=1)) => (v<=x))) }
  GHC.Real.quotRem :: x:a -> y:{v:a | v /= 0} -> ({v:a | ((v = (x / y))
                                          && (((x>=0) && (y>=0)) => (v>=0))
                                          && (((x>=0) && (y>=1)) => (v<=x)))}
                                    ,{v:a | ((v >= 0) && (v < y))})
  GHC.Real.divMod :: a -> {v:a | v /= 0} -> (a, a)
  GHC.Real.toInteger :: x:a -> {v:GHC.Integer.Type.Integer | v = x}

-- fixpoint can't handle (x mod y), only (x mod c) so we need to be more clever here
-- mod :: x:a -> y:a -> {v:a | v = (x mod y) }