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