Bool.sml file:
structure Bool =
struct
datatype bool = false | true
fun not true = false
| not false = true
fun toString true = "true"
| toString false = "false"
end
Bool.smi file:
structure Bool =
struct
datatype bool = false | true
val not : bool -> bool
val toString : bool -> string
end
|