vElimPair :: String -> String -> String -> String -> String -> Value
vElimPair _A _B _P ppair ab = rElimPair
  (var _A)
  (fbind _B "a")
  (fbind _P "xs")
  (fbind2 ppair "a" "b")
  (s2n ab)
vElimPair :: String -> String -> String -> String -> String -> Value
vElimPair _A _B _P ppair ab = rElimPair
  (var _A)
  (fbind _B "a")
  (fbind _P "xs")
  (fbind2 ppair "a" "b")
  (s2n ab)
vElimPair _A _B _P ppair ab = rElimPair
  (var _A)
  (fbind _B "a")
  (fbind _P "xs")
  (fbind2 ppair "a" "b")
  (s2n ab)