{-# 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 #-}