def tok_head

minebender-game@1.0.0.0 · proof_solver.bend:1820

import Base
import minebender-game@1.0.0.0/types.bend as T
import minebender-game@1.0.0.0/solver.bend as S
import minebender-game@1.0.0.0/proof_base.bend as P

1820def tok_head(+t: S.Todo, +rest: List<&2, S.Todo>, +layout: T.Grid(Bool),
1821  h: {todos_ok(t <> rest, layout) == True{} : Bool}) -> {todos_ok([t], layout) == True{} : Bool}:
1822  match t:
1823    case S.Todo{c, rel}:
1824      %Equal.sym(Bool, Bool.and(S.items_ok(rel, layout), True{}), S.items_ok(rel, layout), P.and_true_r_id(S.items_ok(rel, layout))) :
1825        {_ == True{} : Bool}
1826      P.and_true_l(S.items_ok(rel, layout), todos_ok(rest, layout), h)