anchor.diff:  
          let rowLablesContent : RangeProxy<'t> = 
               vtable.RowInfos 
  -            |> Array.map(fun x -> RangeProxy.contramap (const' ()) x.Label)
  +            |> Array.map(fun x -> x.Label)
               |> RangeProxy.stack Vertical
   
          if vtable.ShowLabelsAsColumn
  
positive.code:     let fromSeq (vtable : VTableInfo<'t>) : VTableView<'t []> =
          let rowLablesContent : RangeProxy<'t> = 
              vtable.RowInfos 
              |> Array.map(fun x -> RangeProxy.contramap (const' ()) x.Label)
              |> RangeProxy.stack Vertical
  
          let rowsContent = 
  
negative.code: 
  type VTableRowInfo<'t> =  {
      Content  : RangeProxy<'t>
      Label    : RangeProxy<'t> 
  }
  
  module VTableRowInfo = 
      let contramap f (rowInfo :  VTableRowInfo<'t>) ={
          Content = RangeProxy.contramap f rowInfo.Content
          Label  =  RangeProxy.contramap f rowInfo.Label
      }
      let fromMapper (label : string , mapper : 't -> CellContent) : VTableRowInfo<'t>  = {
          Content = RangeProxy.cell mapper
  