anchor.diff:                          (View.Map2 (Result.Append Seq.append))
                   )
   
  +            [<Inline>]
               member this.View = out
   
               member this.Render (f: ItemOperations -> 'V) : Doc =
  
positive.code:     module Many =
  
          type ItemOperations(delete: unit -> unit, moveUp: Submitter<Result<bool>>, moveDown: Submitter<Result<bool>>) =
              member this.Delete() = delete()
              member this.MoveUp = moveUp
              member this.MoveDown = moveDown
  
          type System.Collections.Generic.List<'T> with
  
negative.code:                 | Success p -> p.view
                  | Failure m -> View.Const (Failure m))
          
          [<Inline>]
          member this.View : View<Result<'TResult>> = out
  
          [<Inline>]
          member this.RenderPrimary (f: 'U) : Doc =
              renderPrimary f
  
  