def or_mono

minebender-game@1.0.0.0 · proof_solver.bend:2601

import Base

2601def or_mono(+a: Bool, +b: Bool, +b2: Bool, k: {b == True{} : Bool} -> {b2 == True{} : Bool},
2602  e: {Bool.or(a, b) == True{} : Bool}) -> {Bool.or(a, b2) == True{} : Bool}:
2603  match a:
2604    case True{}:
2605      {==}
2606    case False{}:
2607      k(e)