sig
  type t = Document.content
  val make_matrix :
    Matrix.T.Style.t list ->
    (Diagrams.Node.Transfo.Style.t list * Document.content list) list list ->
    Diagrams.Node.info * Diagrams.Node.info Diagrams.Matrix.matrix
end