module type Id_Datatype = sig .. end
sig
end
include Datatype.S
val id : t -> int
t -> int
id k >= 0
equal k1 k2 ==> id k1 = id k2