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