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