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