Induct_word : tactic
?- !w:word8. P w
- e Induct_word
?- P 0w [SUC n < 256, P (n2w n)] ?- P (n2w (SUC n))