def add0_zero

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/curve25519/fold.bend:79

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/curve25519/field.bend as F
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/u32alg.bend as A

79def add0_zero(+xs: List<&2, U32>) -> {F.add0(xs, 0) == xs : List<&2, U32>}:
80  match xs:
81    case Nil{}:
82      {==}
83    case Con{+x, +xt}:
84      Equal.cong(U32, List<&2, U32>, z => Con{z, xt}, U32.add(x, 0), x, A.add_zero(x))