rng Nat2BL = { x where x is Element of BOOLEAN * : x . (len x) = 1 } \/ {<*0*>}