Module Internal.Ty

exception Not_equal
type 'a id
val eq : 'a id -> 'b id -> ('a, 'b) eq