Sigs.STORE
type ('a, 'b) s
type t
val inj : ('a, 'b) s -> ('a, 'b, t) store
val prj : ('a, 'b, t) store -> ('a, 'b) s