Parameter Make_access4.1-T

type ('a, 'b, 'c, 'd) t
val variant : match_:('at -> ('a'bt) Base.Either.t) -> construct:('b -> 'bt) -> ('a'b'c'd) t -> ('at'bt'c'd) t