def inv_flag.go

minebender-game@1.0.0.0 · proof_inv.bend:611

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

611def inv_flag.go(+w: Nat, +h: Nat, +layout: T.Grid(Bool), +shown: T.Grid(Bool), +flags: List<&2, T.Pos>,
612  +status: T.Status, +sh: {B.shaped(Bool, w, h, shown) == True{} : Bool},
613  +won: {L.is_won(status) == G.all_safe(w, h, layout, shown) : Bool},
614  +cm: {calm(status, w, h, layout, shown) == True{} : Bool},
615  +cl: {closed(w, h, layout, shown) == True{} : Bool}, +p: T.Pos, +c: Bool) ->
616  Inv(w, h, layout, G.flag.go(c, G.Game{w, h, layout, shown, flags, status}, p)):
617  match c:
618    case False{}:
619      ({==}, ({==}, ({==}, (sh, (won, (cm, cl))))))
620    case True{}:
621      ({==}, ({==}, ({==}, (sh, (won, (cm, cl))))))