~/jendhub

def wsh.vz

bend-osdev-word64@0.1.1.0 · PROOF_text.bend:390

import bend-osdev-word64@0.1.1.0/PROOF_text.bend as PROOFText
import Base
import bend-osdev-word64@0.1.1.0/word64.bend as W
import bend-osdev-word64@0.1.1.0/LAWS.bend as WB

390def wsh.vz(+a: W.W64, e: {W.W64.to_nat(a) == 0n : Nat}) -> {W.W64.is_zero(a) == True{} : Bool}:
391  Equal.trans(Bool, W.W64.is_zero(a), Nat.is_eq(W.W64.to_nat(a), 0n), True{}, WB.eq_value(a, W.W64.zero()), Equal.cong(Nat, Bool, zz => Nat.is_eq(zz, 0n), W.W64.to_nat(a), 0n, e))

Uses (10)

Used by (1)