def equal_false

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/aes/aead.bend:444

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/subtle.bend as Subtle
import bend-collections-laws-crypto@1.0.0.0/spec/crypto/subtle.bend as Eq
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/subtle/laws.bend as EqLaws

444def equal_false(+a: List<&2, U32>, +b: List<&2, U32>, ne: {a != b : List<&2, U32>}) -> {Eq.equal(a, b) == False{} : Bool}:
445  false_of(Eq.equal(a, b), e => ne(EqLaws.Eq.sound(a, b, Equal.trans(Bool, Subtle.eq(a, b), Eq.equal(a, b), True{}, EqLaws.Eq.value(a, b), e))))