def dur_ok

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/secp256k1/pdec.bend:71

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/secp256k1/field.bend as F
import bend-collections-laws-crypto@1.0.0.0/src/crypto/secp256k1/point.bend as P
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/secp256k1/point.bend as PT
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/secp256k1/penc.bend as PE

71def dur_ok(+one: Nat, +h1: {one == 1n : Nat}, +x: List<&2, Nat>, +y: List<&2, Nat>, +hx: {PT.red(one, x) == True{} : Bool}, +hy: {PT.red(one, y) == True{} : Bool}, ok: Bool) -> {PE.mpred(one, P.decode_u(x, y, ok)) == True{} : Bool}:
72  match ok:
73    case True{}:
74      PT.pr3(one, x, y, F.one(), hx, hy, PE.one_r(one, h1))
75    case False{}:
76      {==}