Pair.snd
: ∀(A: *) ∀(B: *) ∀(p: (Pair A B)) B
= λA λB λp use P = λx B
  use new = λa λb b
  (~p P new)