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