import Data.List
main=interact$(\b->if b then "Yes" else "No").f.map read.words
f(n:a)=case length m of
  1 -> 0<x && x<=n`div`2 || x==n-1
  2 -> x+1==y && 0<x && x<n-1 && 2*x+1-n<i && i<=x
  _ -> False
  where
    (i,x)=g$m!!0
    (j,y)=g$m!!1
    m=group.sort$a
g a=(length a, head a)