import Control.Monad
import Data.List

kr x
    |x>0 = "Yes"
    |otherwise = "No"

main = do
    ns <- getLine
    let (n:k:q:_) = map read $ words ns :: [Int]
    a <- replicateM q readLn :: IO [Int]
    mapM_ putStrLn $ map kr $ zipWith (-) (map length . group . sort $ a ++ [1..n]) [q-k+1,q-k+1..]
