main :: IO ()
main = do
  [b,c] <- map read . words <$> getLine
  let a = solve b c
  if a==0 then putStrLn "Yes" else putStrLn "No"

solve :: Int -> Int -> Int
solve b c = b-c