def inv_assist.safe

minebender-game@1.0.0.0 · proof_inv.bend:623

import Base
import minebender-game@1.0.0.0/types.bend as T
import minebender-game@1.0.0.0/board.bend as B
import minebender-game@1.0.0.0/game.bend as G
import minebender-game@1.0.0.0/LAWS.bend as L

623def inv_assist.safe(+w: Nat, +h: Nat, +layout: T.Grid(Bool), +shown: T.Grid(Bool), +flags: List<&2, T.Pos>,
624  +status: T.Status, +sh: {B.shaped(Bool, w, h, shown) == True{} : Bool},
625  +won: {L.is_won(status) == G.all_safe(w, h, layout, shown) : Bool},
626  +cm: {calm(status, w, h, layout, shown) == True{} : Bool},
627  +cl: {closed(w, h, layout, shown) == True{} : Bool}, +m: Maybe<&2, T.Pos>) ->
628  Inv(w, h, layout, G.assist.safe(m, G.Game{w, h, layout, shown, flags, status})):
629  match m:
630    case None{}:
631      ({==}, ({==}, ({==}, (sh, (won, (cm, cl))))))
632    case Some{p}:
633      inv_open(w, h, layout, shown, flags, status, sh, won, cm, cl, p)