def and_right

bend-collections-laws-math@1.0.0.0 · proofs/lib/logic.bend:26

import bend-collections-laws-math@1.0.0.0/proofs/lib/logic.bend as Logic

import Base

26def and_right(a: Bool, b: Bool, e: {Bool.and(a, b) == True{} : Bool}) -> {b == True{} : Bool}:
27  match a:
28    case False{}:
29      Empty.absurd({b == True{} : Bool}, false_true(e))
30    case True{}:
31      e

Uses (4)

Used by (3)