Sig.Make
module T : FUNCTOR
type 'a s = 'a T.t
type t = Common.t
val inj : 'a s -> ('a, t) app
val prj : ('a, t) app -> 'a s