let fresh_vars frame xs p =
    let m,xta = varmem_at frame Here in
    List.fold_left
      (fun p x ->
         let v_x = D.Xindex.get_ind x in
         let q = model_isfresh (F.var m) (F.var xta) v_x in
         F.p_implies q p
      ) p xs