let
do_subst x v p =
if
F
.pred_has_var [x] p
then
F
.p_subst alpha x v p
else
p