anchor.diff:                      p.render (f ops) :> Doc
                   )
   
  +            [<Inline>]
               member this.Add (x: 'T) =
                   add x
   
  
positive.code:                 | Success p -> p.view
                  | Failure m -> View.Const (Failure m))
          
          member this.View : View<Result<'TResult>> = out
  
          member this.RenderPrimary (f: 'U) : Doc =
              renderPrimary f
  
  
negative.code:                         (View.Map2 (Result.Append Seq.append))
                  )
  
              [<Inline>]
              member this.View = out
  
              member this.Render (f: ItemOperations -> 'V) : Doc =
  