let store frame (_m,r,off,_) v p =
    let e = env_at frame Clabels.Here in
    let x = get_funvar e r in
    let v' = update (fun _ -> logic_of_value v) (F.var x) off in
    D.subst x v' p