def ms_ok

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u64int.bend:1013

import Base
import bend-collections-laws-math@1.0.0.0/src/math/num.bend as NM
import bend-collections-laws-math@1.0.0.0/src/math/instances.bend as I
import bend-collections-laws-math@1.0.0.0/src/math/u64.bend as WU

1013def ms_ok(bit: Bool, +a: WU.U64, +aok: Bool, +b: WU.U64, +bok: Bool) -> Bool:
1014  match bit:
1015    case True{}:
1016      Bool.and(Bool.and(aok, bok), Bool.not(I.u64_is(NM.MulOver{a, b})))
1017    case False{}:
1018      aok