method vpredicate = function | Pforall (xl,_) | Pexists (xl,_) -> add_logics_value xl ; DoChildren | _ -> DoChildren