def w8s_of_to

bend-osdev-bytes@0.1.1.0 · PROOF.bend:151

import Base
import bend-osdev-bytes@0.1.1.0/bytes.bend as B

151def w8s_of_to(ws: List<&2, B.OctByte>) -> {B.w8s.of_list(B.w8s.to_list(ws)) == ws : List<&2, B.OctByte>}:
152  match ws:
153    case Nil{}:
154      {==}
155    case Con{h, t}:
156      %bits8_of_bits8(h) : {Con{B.oct.of(B.oct.to(h)), B.w8s.of_list(B.w8s.to_list(t))} == Con{_, t} : List<&2, B.OctByte>}
157      %w8s_of_to(t) : {Con{B.oct.of(B.oct.to(h)), B.w8s.of_list(B.w8s.to_list(t))} == Con{B.oct.of(B.oct.to(h)), _} : List<&2, B.OctByte>}
158      {==}