sig
  type beamertemplate = [ `Footline | `NavigationSymbols ]
  type tocoptions =
      [ `CurrentSection
      | `CurrentSubsection
      | `HideAllSubsections
      | `HideOtherSubsections
      | `PauseSections
      | `PauseSubsections ]
  val frame : ?title:Latex.t -> ?subtitle:Latex.t -> Latex.t -> Latex.t
  val setbeamertemplate : beamertemplate -> Latex.t -> Latex.t
  val insertpagenumber : Latex.t
  val insertdocumentendpage : Latex.t
  val inserttitle : Latex.t
  val insertsection : Latex.t
  val insertsubsection : Latex.t
  val insertshorttitle : Latex.t
  val insertshortsection : Latex.t
  val insertshortsubsection : Latex.t
  val tableofcontents : tocoptions list -> Latex.t
  val at_begin_section : Latex.t -> Latex.t
  val at_begin_subsection : Latex.t -> Latex.t
  val at_begin_subsubsection : Latex.t -> Latex.t
  val block : Latex.t -> Latex.t -> Latex.t
  type color =
      [ `Blue
      | `Gray
      | `Green
      | `RGB of float * float * float
      | `Red
      | `Yellow ]
  val color : color -> Latex.t -> Latex.t
  type overlays_spec = [ `I of int ]
  val only : overlays_spec list -> Latex.t -> Latex.t
  val includegraphics : ?only:overlays_spec list -> Latex.t -> Latex.t
  type column_alignment = [ `B | `C | `T ]
  val columns : ?align:column_alignment -> Latex.t -> Latex.t
  val column : ?align:column_alignment -> Latex.size -> Latex.t -> Latex.t
  val equi_columns : ?align:column_alignment -> Latex.t list -> Latex.t
  val mlpost :
    ?only:Latex.Beamer.overlays_spec list ->
    ?mode:Melt_common.mode -> ?file:string -> Mlpost.Command.t -> Latex.t
end