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