DEFINITION B_rec()
TYPE =
       ΠP:BSet
         .(P Abbr)(P Abst)(P Void)Πb:B.(P b)
BODY =
Show proof