let flush env p = 
 Vset.fold (fun x p -> p_forall x p ) env.foralls (p_implies env.eqs p)