def ton_head

minebender-game@1.0.0.0 · proof_solver.bend:1834

import Base
import minebender-game@1.0.0.0/solver.bend as S
import minebender-game@1.0.0.0/proof_base.bend as P
import minebender-game@1.0.0.0/proof_cells.bend as PS

1834def ton_head(+e: PS.WH, +t: S.Todo, +rest: List<&2, S.Todo>,
1835  h: {todos_onb(e, t <> rest) == True{} : Bool}) -> {todos_onb(e, [t]) == True{} : Bool}:
1836  match t:
1837    case S.Todo{c, rel}:
1838      %Equal.sym(Bool, Bool.and(items_onb(e, rel), True{}), items_onb(e, rel), P.and_true_r_id(items_onb(e, rel))) :
1839        {_ == True{} : Bool}
1840      P.and_true_l(items_onb(e, rel), todos_onb(e, rest), h)