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