{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
import Control.Monad
import Control.Monad.ST
-- import Data.Array.ST
-- import Data.Array.Unboxed
import Data.Vector.Unboxed (create, (!), Vector)
import qualified Data.Vector.Unboxed.Mutable as VM
import Data.Bits

main = putStrLn . show . solve =<< parse

parse :: IO (Int, Int, Int, Int)
parse = (\[h, w, a, b] -> (h, w, a, b)) . map read . words <$> getLine

solve :: (Int, Int, Int, Int) -> Int
solve (h, w, a, b) = foldl add 0 $ map intrude [b .. w - 1] where
    fact = newFact $ h + w
    inv = newInv fact $ max h w
    ways x y = (fact ! (x + y)) `mul` (inv ! x) `mul` (inv ! y)
    intrude i = (ways (h - a - 1) i) `mul` (ways (a - 1) (w - i - 1))


-- newFact :: Int -> UArray Int Int
-- newFact n = runSTUArray $ do
--     fact <- newArray_ (0, n) :: ST s (STUArray s Int Int)
--     writeArray fact 0 1
--     forM_ [1 .. n] $ \i -> do
--         n <- readArray fact $ i - 1
--         writeArray fact i $ mul n i
--     return fact
newFact :: Int -> Vector Int
newFact n = create $ do
    fact <- VM.new $ n + 1
    VM.unsafeWrite fact 0 1
    forM_ [1 .. n] $ \i -> do
        n <- VM.unsafeRead fact $ i - 1
        VM.unsafeWrite fact i $ mul n i
    return fact

-- newInv :: UArray Int Int -> Int -> UArray Int Int
-- newInv fact n = runSTUArray $ do
--     inv <- newArray_ (0, n) :: ST s (STUArray s Int Int)
--     writeArray inv 0 1 -- XXX
--     writeArray inv 1 1 -- XXX
--     writeArray inv n $ pow (fact ! n) (modulo - 2)
--     forM_ [n - 1, n - 2 .. 2] $ \i -> do
--         x <- readArray inv $ i + 1
--         writeArray inv i $ mul x (i + 1)
--     return inv
newInv :: Vector Int -> Int -> Vector Int
newInv fact n = create $ do
    inv <- VM.new $ n + 1
    VM.unsafeWrite inv 0 1 -- XXX
    VM.unsafeWrite inv 1 1 -- XXX
    VM.unsafeWrite inv n $ pow (fact ! n) (modulo - 2)
    forM_ [n - 1, n - 2 .. 2] $ \i -> do
        x <- VM.unsafeRead inv $ i + 1
        VM.unsafeWrite inv i $ mul x (i + 1)
    return inv

add :: Int -> Int -> Int
add n m = (n + m) `mod` modulo

mul :: Int -> Int -> Int
mul n m = mul' (n `mod` modulo) m 0
mul' n m res
    | m <= 0 = res
    | m .&. 1 == 1 = mul' (shiftL n 1 `mod` modulo) (shiftR m 1) (add res n)
    | otherwise = mul' (shiftL n 1 `mod` modulo) (shiftR m 1) res

pow :: Int -> Int -> Int
pow _ 0 = 1
pow n m
    | m .&. 1 == 0 = mul x x
    | otherwise = mul n . pow n $ m - 1 where
          x = pow n $ m `div` 2

modulo :: Int
modulo = 10 ^ 9 + 7