main = do
  [a,b] <- map read . words <$> getLine :: IO [Int]
  let
    g1 = [1,3,5,7,8,10,12]
    g2 = [4,6,9,11]
    g3 = [2]
    inG1 = a `elem` g1 && b `elem` g1
    inG2 = a `elem` g2 && b `elem` g2
    inG3 = a `elem` g3 && b `elem` g3
  putStrLn $ if inG1 || inG2 || inG3 then "Yes" else "No"