PrivPrecCompareUtilmodule LV : sig ... endmodule Util : sig ... endinclude module type of struct include Util endinclude sig ... endmodule Key = Util.Keymodule Dom = Util.Dommodule RH = Util.RHtype marshal = PrecCompareUtil.Util(LV)(BaseDomain.VD).marshaltype dump = marshal PrecCompareUtil.dump_gentype result = Dom.t RH.t PrecCompareUtil.result_gen