def w4le_len

bend-osdev-hashes@0.1.0.0 · PROOF.bend:59

import Base
import bend-osdev-bytes@0.1.0.0/bytes.bend as B
import bend-osdev-hashes@0.1.0.0/hashes.bend as Hs

59def w4le_len(x: Hs.HsW4) -> {B.Octets.len(Hs.HsW4.le(x)) == 16n : Nat}:
60  match x:
61    case Hs.HsW4{+a0, +a1, +a2, +a3}:
62      %Equal.sym(Nat, B.Octets.len(B.Octets.of_list(B.append(B.le32(a0), B.append(B.le32(a1), B.append(B.le32(a2), B.le32(a3)))))), B.len(B.append(B.le32(a0), B.append(B.le32(a1), B.append(B.le32(a2), B.le32(a3))))), octets_len_of(B.append(B.le32(a0), B.append(B.le32(a1), B.append(B.le32(a2), B.le32(a3)))))) : {_ == 16n : Nat}
63      w4le_len_list(a0, a1, a2, a3)