val
generate : extension_name:string -> nil:(tps:Parsetree.core_type list -> record_name:string -> Location.t -> 'new_record_sig) -> record:(tps:Parsetree.core_type list -> record_name:string -> Location.t -> Parsetree.label_declaration list -> 'new_record_sig) -> loc:Location.t -> path:string -> Asttypes.rec_flag
* Parsetree.type_declaration list -> 'new_record_sig