def tall_cons

minebender-game@1.0.0.0 · proof_speed.bend:239

import Base
import minebender-game@1.0.0.0/solver.bend as S

239def tall_cons(~E: Data, ~f: E -> S.Todo -> Bool, +e: E, +t: S.Todo, +rest: List<&2, S.Todo>,
240  a: {f(e, t) == True{} : Bool}, b: {tall(~E, ~f, e, rest) == True{} : Bool}) ->
241  {tall(~E, ~f, e, t <> rest) == True{} : Bool}:
242  %Equal.sym(Bool, tall(~E, ~f, e, rest), True{}, b) : {Bool.and(f(e, t), _) == True{} : Bool}
243  %Equal.sym(Bool, f(e, t), True{}, a) : {Bool.and(_, True{}) == True{} : Bool}
244  {==}