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