sig
  val mk :
    Ast_404.Parsetree.core_type ->
    Ast_404.Parsetree.class_type_field list ->
    Ast_404.Parsetree.class_signature
end