sig
  module Simple :
    sig
      type ('a, 'b, 'c) matrix = {
        mat_i : 'a array;
        mat_j : 'b array;
        mat_mat : 'c array array;
      }
      val latex :
        Pervasives.out_channel ->
        ?cols:int ->
        ('a -> string) ->
        ('b -> string) ->
        ('c -> string) -> ('a, 'b, 'c) Smatrices.Simple.matrix -> unit
      val store_matrix :
        string -> ('a, 'b, 'c) Smatrices.Simple.matrix -> unit
      val load_matrix : string -> ('a, 'b, 'c) Smatrices.Simple.matrix
      exception Uncompatible_matrices
      val concat_matrices_i :
        ?check:('b -> 'b -> unit) ->
        ('a, 'b, 'c) Smatrices.Simple.matrix ->
        ('a, 'b, 'c) Smatrices.Simple.matrix ->
        ('a, 'b, 'c) Smatrices.Simple.matrix
      val concat_matrices_j :
        ?check:('a -> 'a -> unit) ->
        ('a, 'b, 'c) Smatrices.Simple.matrix ->
        ('a, 'b, 'c) Smatrices.Simple.matrix ->
        ('a, 'b, 'c) Smatrices.Simple.matrix
    end
  module Distances :
    sig
      type ('a, 'b) dist_matrix = {
        dist_elements : 'a array;
        dist_matrix : 'b array array;
        dist_samples : int array;
      }
      val make_matrix :
        ?commutative:bool ->
        ('a -> 'a -> 'b) ->
        'b -> 'a array -> ('a, 'b) Smatrices.Distances.dist_matrix
      val group_distances :
        ?commutative:bool ->
        ('a -> 'b) ->
        intra:('c list list -> 'c) ->
        inter:('c list list -> 'c) ->
        ('a, 'c) Smatrices.Distances.dist_matrix ->
        ('b, 'c) Smatrices.Distances.dist_matrix
      val latex :
        Pervasives.out_channel ->
        ?samples_in_rows:bool ->
        ?cols:int ->
        ?fill:bool ->
        ?rotate_titles:bool ->
        ('a -> string) ->
        ('b -> string) -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
      val latex_sorted_dists :
        Pervasives.out_channel ->
        ('a -> string) ->
        ('b -> string) ->
        ('b -> 'b -> int) -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
      val store_dist_matrix :
        string -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
      val load_dist_matrix :
        string -> ('a, 'b) Smatrices.Distances.dist_matrix
    end
end