law Verify.correct

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/secp256k1/laws_verify.bend:20

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/secp256k1.bend as K
import bend-collections-laws-crypto@1.0.0.0/spec/crypto/secp256k1/ecdsa.bend as ES

20# ECDSA verification (SEC 1 4.1.4), high s accepted
21law Verify.correct:
22  for +one: Nat
23  for +h1: {one == 1n : Nat}
24  for +pk: List<&2, U32>
25  for +h: List<&2, U32>
26  for +sig: List<&2, U32>
27  {K.verify(pk, h, sig) == ES.verify(one, pk, h, sig, False{}) : Bool}