let prop_named_pred p = match p with
  | PKfctPre idp ->  Logic_const.pred_of_id_pred idp
  | PKspecPre (_s, idp) -> Logic_const.pred_of_id_pred idp
  | PKfctPost idp ->  Logic_const.pred_of_id_pred idp
  | PKspecPost (_s, idp) -> Logic_const.pred_of_id_pred idp
  | PKloopInv (_, _, p) -> p
  | PKassert (_, _, _, p) -> p
  | PKbhvProp (_, p) -> p