sig
  val mk :
    Parsetree.pattern ->
    Parsetree.class_field list -> Parsetree.class_structure
end