Roles.Stype role = Role.ttype role_kind = Role.kindtype role_alignment = Role.alignmenttype roles = role listval collect : unit -> rolesval of_alignment : ?roles:roles -> role_alignment -> rolesmodule Set : sig ... endmodule Group :
Group.S
with type role = Role.t
and type role_kind = Role.kind
and type role_alignment = Role.alignmenttype group = Group.t