let replace_at_vars env l p = let mem_lab = MV.get_label_mem env l in MV.subst_pred_mem mem_lab (Lazy.force MV.cur_mem_var) p