vElimEq :: String -> String -> String -> String -> String -> String -> Value
vElimEq _A x _P prefl y q = rElimEq
  (var _A)
  (var x)
  (fbind2 _P "y" "q")
  (var prefl)
  (var y)
  (s2n q)
vElimEq :: String -> String -> String -> String -> String -> String -> Value
vElimEq _A x _P prefl y q = rElimEq
  (var _A)
  (var x)
  (fbind2 _P "y" "q")
  (var prefl)
  (var y)
  (s2n q)
vElimEq _A x _P prefl y q = rElimEq
  (var _A)
  (var x)
  (fbind2 _P "y" "q")
  (var prefl)
  (var y)
  (s2n q)