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