vElimTel :: String -> String -> String -> String -> Value
vElimTel _P pemp pext _T = rElimTel
  (fbind _P "T")
  (var pemp)
  (fbind3 pext "A" "B" "pb")
  (s2n _T)
vElimTel :: String -> String -> String -> String -> Value
vElimTel _P pemp pext _T = rElimTel
  (fbind _P "T")
  (var pemp)
  (fbind3 pext "A" "B" "pb")
  (s2n _T)
vElimTel _P pemp pext _T = rElimTel
  (fbind _P "T")
  (var pemp)
  (fbind3 pext "A" "B" "pb")
  (s2n _T)