anchor.diff:                              | None -> world)
                               game binding.Stream world)
                       world bindings
  -            let model = property.Get world
  -            let world = this.View (Initialize, model, game, world)
  -            world
  -            
  -        override this.Unregister (game, world) =
  -            let property = propertyFn game
  -            let model = property.Get world
  -            let world = this.View (Finalize, model, game, world)
               world
   
           override this.Actualize (game, world) =
               let property = propertyFn game
               let model = property.Get world
  -            this.View (Actualize, model, game, world)
  +            this.View (model, game, world)
   
           abstract member Binding : 'model * Game * World -> Binding<'message, 'command, Game, World> list
           abstract member Message : 'message * 'model * Game * World -> 'model * 'command list
           abstract member Command : 'command * 'model * Game * World -> World
  -        abstract member View : Phase * 'model * Game * World -> World+        abstract member View : 'model * Game * World -> World
positive.code:                             | None -> world)
                              entity binding.Stream world)
                      world bindings
              let model = property.Get world
              let world = this.View (Initialize, model, entity, world)
              world
              
          override this.Unregister (entity, world) =
              let property = propertyFn entity
              let model = property.Get world
              let world = this.View (Finalize, model, entity, world)
              world
  
          override this.Actualize (entity, world) =
              let property = propertyFn entity
              let model = property.Get world
              this.View (Actualize, model, entity, world)
  
          abstract member Binding : 'model * Entity * World -> Binding<'message, 'command, Entity, World> list
          abstract member Message : 'message * 'model * Entity * World -> 'model * 'command list
          abstract member Command : 'command * 'model * Entity * World -> World
          abstract member View : Phase * 'model * Entity * World -> World
  
  [<AutoOpen>]
  module ImperativeDispatcherModule =
  
negative.code:                             | None -> world)
                              screen binding.Stream world)
                      world bindings
              world
  
          override this.Actualize (screen, world) =
              let property = propertyFn screen
              let model = property.Get world
              this.View (model, screen, world)
  
          abstract member Binding : 'model * Screen * World -> Binding<'message, 'command, Screen, World> list
          abstract member Message : 'message * 'model * Screen * World -> 'model * 'command list
          abstract member Command : 'command * 'model * Screen * World -> World
          abstract member View : 'model * Screen * World -> World
  
  [<AutoOpen>]
  module GameDispatcherModule =
  