11 lines
164 B
Haskell
11 lines
164 B
Haskell
|
|
||
|
|
module Lattice where
|
||
|
|
|
||
|
|
class Lattice l where
|
||
|
|
(?>) :: l -> l -> Bool
|
||
|
|
(<?) :: l -> l -> Bool
|
||
|
|
|
||
|
|
(?>) = flip (<?)
|
||
|
|
(<?) = flip (?>)
|
||
|
|
|
||
|
|
{-# minimal (?>) | (<?) #-}
|