PrivPrecCompareUtil.Utilinclude sig ... endmodule Key : sig ... endmodule Dom : sig ... endmodule RH : sig ... endtype marshal = PrecCompareUtil.Util(LV)(BaseDomain.VD).marshaltype dump = marshal PrecCompareUtil.dump_gentype result = Dom.t RH.t PrecCompareUtil.result_gen