let mk_let_vi v exp p =
    let v = WpFol.cvar_to_folvar v in
    mk_let ~fresh:true v exp p