anchor.diff:  
   type VTableRowInfo<'t> =  {
       Content  : RangeProxy<'t>
  -    Label    : RangeProxy<unit> 
  +    Label    : RangeProxy<'t> 
   }
   
   module VTableRowInfo = 
       let contramap f (rowInfo :  VTableRowInfo<'t>) ={
           Content = RangeProxy.contramap f rowInfo.Content
  -        Label  = rowInfo.Label
  +        Label  =  RangeProxy.contramap f rowInfo.Label
       }
       let fromMapper (label : string , mapper : 't -> CellContent) : VTableRowInfo<'t>  = {
           Content = RangeProxy.cell mapper
  
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: 
         let rowLablesContent : RangeProxy<'t> = 
              vtable.RowInfos 
              |> Array.map(fun x -> x.Label)
              |> RangeProxy.stack Vertical
  
         if vtable.ShowLabelsAsColumn
  