def flag_mono.go

minebender-game@1.0.0.0 · proof_laws.bend:423

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

423def flag_mono.go(+c: Bool, +g: G.Game, +p: T.Pos, +q: T.Pos, s: {B.at(Bool, False{}, shown_of(g), q) == True{} : Bool}) ->
424  {B.at(Bool, False{}, shown_of(G.flag.go(c, g, p)), q) == True{} : Bool}:
425  match c:
426    case False{}:
427      s
428    case True{}:
429      match g:
430        case G.Game{w, h, layout, shown, flags, status}:
431          s