(m, n) = λb.b m n
b
m
n
(m, n): PairNat
PairNat = ∀X. (CNat -> CNat -> X) -> X
fst = λx.x tru
fst (m, n) = m
fst: PairNat -> CNat
snd = λx.x fls
snd (m, n) = n
snd: PairNat -> CNat