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