let is_dpd k dpd = Dpd.is_dpd k (dpd_kind dpd)