anchor.diff:              let model = property.Get world
               this.View (model, layer, world)
   
  -        abstract member Binding : 'model * Layer * World -> Binding<'message, 'command, Layer, World> list
  +        abstract member Bindings : 'model * Layer * World -> Binding<'message, 'command, Layer, World> list
           abstract member Message : 'message * 'model * Layer * World -> 'model * 'command list
           abstract member Command : 'command * 'model * Layer * World -> World
           abstract member View : 'model * Layer * World -> World
  
positive.code: 
          override this.Register (game, world) =
              let property = propertyFn game
              let bindings = this.Binding (property.Get world, game, world)
              let world =
                  List.fold (fun world binding ->
                      match binding with
  
negative.code: 
          override this.Register (entity, world) =
              let property = propertyFn entity
              let bindings = this.Bindings (property.Get world, entity, world)
              let world =
                  List.fold (fun world binding ->
                      match binding with
  