ceildiv a b = div (a + b - 1) b

main = do
    [a, b, c, d] <- map read . words <$> getLine :: IO [Int]
    let t1 = ceildiv c b
    let t2 = ceildiv a d
    putStrLn $ if t1 <= t2 then "Yes" else "No"
