/usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Bounded_2.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Bounded_2.hs


module Prelude(Bounded(..)) where

instance (Bounded a, Bounded b) => Bounded (a,b) where
  minBound = (minBound, minBound)
  maxBound = (maxBound, maxBound)

(Return to Plan 9 Home Page)