let subst_result env v_exp p =
match env.result with
| None -> p
| Some xres -> match v_exp with
| Some v_exp ->
debug1 "[subst_result] \\result <- %a@." pp_value v_exp ;
D.subst xres (logic_of_value v_exp) p
| None -> D.forall [xres] p