-- 021202
-- H98-compliant

module LiftOrd where

import Liftable

-- Lifted Ord operations:

(<*), (>*), (<=*),(>=*) :: (Liftable k, Ord a) => k a -> k a -> k Bool
(<*)  = lift2 (<)
(>*)  = lift2 (>)
(<=*) = lift2 (<=)
(>=*) = lift2 (>=)