{-# PRIMITIVE pretype Pretype #-}
|
|
I : Pretype
|
|
{-# PRIMITIVE interval I #-}
|
|
|
|
i0 : I
|
|
i1 : I
|
|
{-# PRIMITIVE i0 #-}
|
|
{-# PRIMITIVE i1 #-}
|
|
|
|
iand : I -> I -> I
|
|
{-# PRIMITIVE iand #-}
|
|
|
|
ior : I -> I -> I
|
|
{-# PRIMITIVE ior #-}
|
|
|
|
inot : I -> I
|
|
{-# PRIMITIVE inot #-}
|