Если вам надо добавить класс Show для полиморфного типа (например ('a, 'b) PMap.t из ExtLib), то это можно сделать примерно так:
module PMap = struct
include PMap
module Show_6tIqeLG1rvuaGYGyldGGIUC6Cs8caje4
(V_a : Show.Show) (V_b : Show.Show) = struct
open Show
module rec Show_t : Show.Show with type a = (V_a.a, V_b.a)
(
Read more... )