patternToExtractLambdas testEx (L1.L1PatternBind ss svar) ifEx =
  return $ L1.L1ExApply ss (L1.L1ExLambda ss (L1.L1PatternBind ss svar) ifEx) testEx
patternToExtractLambdas testEx (L1.L1PatternBind ss svar) ifEx =
  return $ L1.L1ExApply ss (L1.L1ExLambda ss (L1.L1PatternBind ss svar) ifEx) testEx
patternToExtractLambdas testEx (L1.L1PatternBind ss svar) ifEx =
  return $ L1.L1ExApply ss (L1.L1ExLambda ss (L1.L1PatternBind ss svar) ifEx) testEx