Remark code_tail_bounds_1:
forall fn ofs c,
code_tail ofs fn c -> 0 <= ofs <= list_length_z fn.
Remark code_tail_bounds_2:
forall fn ofs i c,
code_tail ofs fn (i :: c) -> 0 <= ofs < list_length_z fn.

Lemma code_tail_next_int:
forall fn ofs i c,
list_length_z fn <= Ptrofs.max_unsigned ->
code_tail (Ptrofs.unsigned ofs) fn (i :: c) ->
code_tail (Ptrofs.unsigned (Ptrofs.add ofs Ptrofs.one)) fn c.