snd'Def :: Def
snd'Def =
    Def "snd'" ["x", "q93"] (
      fresh ["q94", "a"] (
        (V "x" === C "pair" [V "q94", V "a"]) &&&
        (V "a" === V "q93"))
    )
snd'Def :: Def
snd'Def =
    Def "snd'" ["x", "q93"] (
      fresh ["q94", "a"] (
        (V "x" === C "pair" [V "q94", V "a"]) &&&
        (V "a" === V "q93"))
    )
snd'Def =
    Def "snd'" ["x", "q93"] (
      fresh ["q94", "a"] (
        (V "x" === C "pair" [V "q94", V "a"]) &&&
        (V "a" === V "q93"))
    )