DEFINITION bool_rec()
TYPE =
       ΠP:bool→Set
         .(P true)→(P false)→Πb:bool.(P b)
BODY =
Show proof