DEFINITION B_ind()
TYPE =
       P:BProp
         .(P Abbr)(P Abst)(P Void)b:B.(P b)
BODY =
Show proof