2020-06-01 18:17:33 +04:00
|
|
|
|
2020-06-01 22:02:16 +04:00
|
|
|
module Lattice
|
|
|
|
|
( Lattice(..)
|
|
|
|
|
)
|
|
|
|
|
where
|
2020-06-01 18:17:33 +04:00
|
|
|
|
2020-06-01 22:02:16 +04:00
|
|
|
-- | A range should have this property to be used for navigation.
|
2020-06-01 18:17:33 +04:00
|
|
|
class Lattice l where
|
|
|
|
|
(?>) :: l -> l -> Bool
|
|
|
|
|
(<?) :: l -> l -> Bool
|
|
|
|
|
|
|
|
|
|
(?>) = flip (<?)
|
|
|
|
|
(<?) = flip (?>)
|
|
|
|
|
|
|
|
|
|
{-# minimal (?>) | (<?) #-}
|
