anchor.diff:      /// Infix version of apply.
       let (<*>) = apply
   
  -    /// iInfix version of lift.
  +    /// Infix version of lift.
       let (<!>) = lift
   
       let private constructionSuccess value =
  
positive.code: namespace Exira
  
  module ErrorHandling =
      type Result<'TSuccess, 'TFailure> =
          | Success of 'TSuccess
          | Failure of 'TFailure
  
negative.code:             let errors' = List.map f errors
              fail errors'
  
      /// Given a function wrapped in a result
      /// and a value wrapped in a result
      /// apply the function to the value only if both are Success.
      let apply f result =
          match f, result with
          | Failure a', Success b' -> fail a'
  