DEFINITION app1()
TYPE =
C
→
T
→
T
BODY =
Show proof