def dbl0

bend-collections-laws-crypto@1.0.0.0 · proofs/math/random/lemire.bend:493

import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/nat.bend as N

493def dbl0(+z: Nat, +h: {Nat.double(z) == 0n : Nat}) -> {z == 0n : Nat}:
494  match z:
495    case 0n:
496      {==}
497    case 1n+p:
498      Empty.absurd({1n+p == 0n : Nat}, N.succ_zero(1n+Nat.double(p), h))