sig
  type tvarval = EPVstr of string | EPVvar of string
  type 'a tlist =
      PLEmpty
    | PLCons of 'a * 'Simplexmlparser.ExprOrPatt.tlist
  type texprpatt =
      EPanyattr of Simplexmlparser.ExprOrPatt.tvarval *
        Simplexmlparser.ExprOrPatt.tvarval
    | EPanytag of string *
        Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist *
        Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist
    | EPpcdata of string
    | EPwhitespace of string
    | EPcomment of string
  val loc : Lexing.position * Lexing.position
  val list_of_mlast_expr : MLast.expr list -> MLast.expr
  val list_of_mlast_patt : MLast.patt list -> MLast.patt
  val expr_valorval : Simplexmlparser.ExprOrPatt.tvarval -> MLast.expr
  val patt_valorval : Simplexmlparser.ExprOrPatt.tvarval -> MLast.patt
  val to_expr : Simplexmlparser.ExprOrPatt.texprpatt -> MLast.expr
  val to_expr_taglist :
    Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist ->
    MLast.expr
  val to_expr_attlist :
    Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist ->
    MLast.expr
  val to_patt : Simplexmlparser.ExprOrPatt.texprpatt -> MLast.patt
  val to_patt_taglist :
    Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist ->
    MLast.patt
  val to_patt_attlist :
    Simplexmlparser.ExprOrPatt.texprpatt Simplexmlparser.ExprOrPatt.tlist ->
    MLast.patt
end