~/jendhub

def un.half_bd

bend-osdev-u32@0.1.0.0 · PROOF.bend:1314

import bend-osdev-u32@0.1.0.0/PROOF.bend as PROOF
import Base
import bend-osdev-u32@0.1.0.0/u32.bend as U
import bend-osdev-u32@0.1.0.0/LAWS.bend as Laws

1314def un.half_bd(b: Bool, +v: Nat) -> {U.U32Nat.half(Nat.add(U.U32Nat.bit(b), Nat.double(v))) == v : Nat}:
1315  match b:
1316    case True{}:
1317      Laws.half_double_one(v)
1318    case False{}:
1319      Laws.half_double(v)

Uses (8)

Used by (1)