let id = λ(X : Type) → X in λ(x : id Bool) → if True then x else x