module Check_S0_phantom (M : S0_phantom) : Check(sigtype 'a t = 'a M.t end)(sigtype 'a t = M.elt end)(M)
(
M
:
S0_phantom
)
Check
sig
type 'a t = 'a M.t
'a
'a M.t
end
type 'a t = M.elt
M.elt