Class structures
val mk : Parsetree.pattern -> Parsetree.class_field list -> Parsetree.class_structure