module Check_S1_phantom_invariant: functor (M : S1_phantom_invariant) -> Check(sig type 'a t = ('a, Container.phantom) M.t end)(sig type 'a t = 'a end)(M)
functor (
M
:
S1_phantom_invariant
) ->
Check
(
sig
type 'a t = ('a, Container.phantom) M.t
'a
('a, Container.phantom) M.t
end
)
type 'a t = 'a