let
subst_lval m te loc v p =
DF
.stored te ;
L
.subst m.x_store (store_mem m.store te loc v) p