adamc@841: datatype t = datatype Basis.option
adamc@841: 
adamc@841: val isSome : a ::: Type -> t a -> bool
adamc@844: 
adamc@844: val mp : a ::: Type -> b ::: Type -> (a -> b) -> t a -> t b