-- BEGINWAIT -- ENDWAIT -- BEGINSET -- ENDSET -- BEGINFINDP pos_num.bit0|pos_num → pos_num pos_num.is_inhabited|inhabited pos_num pos_num.inc|pos_num → pos_num pos_num.bit1|pos_num → pos_num pos_num.rec|?C pos_num.one → (Π (a : pos_num), ?C a → ?C (pos_num.bit1 a)) → (Π (a : pos_num), ?C a → ?C (pos_num.bit0 a)) → (Π (n : pos_num), ?C n) pos_num.one|pos_num pos_num.num_bits|pos_num → pos_num pos_num|Type -- ENDFINDP -- BEGINWAIT -- ENDWAIT -- BEGINWAIT -- ENDWAIT -- BEGINFINDP pos_num.size|pos_num → pos_num pos_num.bit0|pos_num → pos_num pos_num.is_inhabited|inhabited pos_num pos_num.inc|pos_num → pos_num pos_num.bit1|pos_num → pos_num pos_num.rec|?C pos_num.one → (Π (a : pos_num), ?C a → ?C (pos_num.bit1 a)) → (Π (a : pos_num), ?C a → ?C (pos_num.bit0 a)) → (Π (n : pos_num), ?C n) pos_num.one|pos_num pos_num|Type -- ENDFINDP -- BEGINFINDP pos_num.size|pos_num → pos_num pos_num.bit0|pos_num → pos_num pos_num.is_inhabited|inhabited pos_num pos_num.inc|pos_num → pos_num pos_num.bit1|pos_num → pos_num pos_num.rec|?C pos_num.one → (Π (a : pos_num), ?C a → ?C (pos_num.bit1 a)) → (Π (a : pos_num), ?C a → ?C (pos_num.bit0 a)) → (Π (n : pos_num), ?C n) pos_num.one|pos_num pos_num|Type -- ENDFINDP