def yp_hv

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/secp256k1/fieldpow.bend:272

import Base
import bend-collections-laws-crypto@1.0.0.0/spec/crypto/secp256k1/field.bend as FS
import bend-collections-laws-crypto@1.0.0.0/src/crypto/secp256k1/limbs.bend as L
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/secp256k1/limbs.bend as LV
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/secp256k1/bitsv.bend as BV

272def yp_hv(+one: Nat, +h1: {one == 1n : Nat}) -> {BV.hv(L.bits(L.norm16([975n, 0n, 1n])), one, 0n) == FS.digits(one, L.norm16([975n, 0n, 1n])) : Nat}:
273  %Equal.sym(Nat, BV.hv(L.bits(L.norm16([975n, 0n, 1n])), one, 0n), Nat.add(LV.pos(16n, 0n), FS.digits(one, L.norm16([975n, 0n, 1n]))), BV.bits_v(one, h1, 16n, L.norm16([975n, 0n, 1n]), 0n, yp_limbs(one, h1))) : {_ == FS.digits(one, L.norm16([975n, 0n, 1n])) : Nat}
274  %Equal.sym(Nat, LV.pos(16n, 0n), 0n, LV.pos_zero(16n)) : {Nat.add(_, FS.digits(one, L.norm16([975n, 0n, 1n]))) == FS.digits(one, L.norm16([975n, 0n, 1n])) : Nat}
275  {==}