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