let return kf e p =
match e with None -> p
| Some e ->
let res_lv = Macros.result_var kf in
let res_v = WpFol.lv_to_fol_var res_lv in
let p = Fol.let_pred M.prop_in_data ~fresh:false res_v (texpr e) p in
p