definition f (a : Type) := Π r : Type, (a → r) → r

definition blah2 : Π {a  : Type} {r  : Type} (sa : f a) (k  : a → r), sa r k = sa r k :=
λ (a  : Type) (r  : Type) (sa : f a) (k  : a → r), rfl