import Data.Char
import Data.List
import qualified Data.ByteString.Char8 as B

main=B.interact$B.pack.f.unfoldr(B.readInt.B.dropWhile isSpace)
f (n:abs) = sol $ splitAt n abs
sol ([],_) = "Yes"
sol (as,bs)
    | a>b = "No"
    | a==b  =sol (aa,bb)
    | otherwise = sol ((a+2):aa, (b+1):bb)
    where
        (a:aa) = sort as
        (b:bb) = sort bs
