Refined
data Refined p x
refine
refineTH
unrefine
class Predicate p x
data Not r
data And l r
data Or l r
data LessThan n
data GreaterThan n
data EqualTo n
type Positive
type Negative
type ZeroToOne