anchor.diff:      static member FailWith(message:'TMessage) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.Fail([message])
       
       /// Creates a Success result with the given value.
  -    static member Succeed(value:'TSuccess) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.OK(value,[])
  +    static member Succeed(value:'TSuccess) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.Ok(value,[])
   
       /// Creates a Success result with the given value and the given message.
  -    static member Succeed(value:'TSuccess,message:'TMessage) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.OK(value,[message])
  +    static member Succeed(value:'TSuccess,message:'TMessage) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.Ok(value,[message])
   
       /// Creates a Success result with the given value and the given message.
  -    static member Succeed(value:'TSuccess,messages:'TMessage seq) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.OK(value,messages |> Seq.toList)
  +    static member Succeed(value:'TSuccess,messages:'TMessage seq) : Result<'TSuccess, 'TMessage> = Result<'TSuccess, 'TMessage>.Ok(value,messages |> Seq.toList)
   
       /// Converts the result into a string.
       override this.ToString() =
           match this with
  -        | OK(v,msgs) -> sprintf "OK: %A - %s" v (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
  +        | Ok(v,msgs) -> sprintf "OK: %A - %s" v (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
           | Fail(msgs) -> sprintf "Error: %s" (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))    
   
   /// Basic combinators and operators for error handling.
   [<AutoOpen>]
   module Trial =  
       /// Wraps a value in a Success
  -    let inline ok<'TSuccess,'TMessage> (x:'TSuccess) : Result<'TSuccess,'TMessage> = OK(x, [])
  +    let inline ok<'TSuccess,'TMessage> (x:'TSuccess) : Result<'TSuccess,'TMessage> = Ok(x, [])
   
       /// Wraps a value in a Success
  -    let inline pass<'TSuccess,'TMessage> (x:'TSuccess) : Result<'TSuccess,'TMessage> = OK(x, [])
  +    let inline pass<'TSuccess,'TMessage> (x:'TSuccess) : Result<'TSuccess,'TMessage> = Ok(x, [])
   
       /// Wraps a value in a Success and adds a message
  -    let inline warn<'TSuccess,'TMessage> (msg:'TMessage) (x:'TSuccess) : Result<'TSuccess,'TMessage> = OK(x,[msg])
  +    let inline warn<'TSuccess,'TMessage> (msg:'TMessage) (x:'TSuccess) : Result<'TSuccess,'TMessage> = Ok(x,[msg])
   
       /// Wraps a message in a Failure
       let inline fail<'TSuccess,'Message> (msg:'Message) : Result<'TSuccess,'Message> = Fail([ msg ])
  
positive.code:     [<Extension>]
      static member inline Match(value, ifSuccess:Action<'TSuccess , ('TMessage list)>, ifFailure:Action<'TMessage list>) =
          match value with
          | Result.OK(x, msgs) -> ifSuccess.Invoke(x,msgs)
          | Result.Fail(msgs) -> ifFailure.Invoke(msgs)
      
      /// Allows pattern matching on Results from C#.
      [<Extension>]
      static member inline Either(value, ifSuccess:Func<'TSuccess , ('TMessage list),'TResult>, ifFailure:Func<'TMessage list,'TResult>) =
          match value with
          | Result.OK(x, msgs) -> ifSuccess.Invoke(x,msgs)
          | Result.Fail(msgs) -> ifFailure.Invoke(msgs)
  
      /// Lifts a Func into a Result and applies it on the given result.
  
negative.code:     [<Extension>]
      static member FailedWith(this:Result<'TSuccess, 'TMessage>) = 
          match this with
          | Result.Ok(v,msgs) -> failwithf "Result was a success: %A - %s" v (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
          | Result.Fail(msgs) -> msgs
  
      /// Returns the result or fails if the result was an error.
      [<Extension>]
      static member SucceededWith(this:Result<'TSuccess, 'TMessage>) : 'TSuccess = 
          match this with
          | Result.Ok(v,msgs) -> v
          | Result.Fail(msgs) -> failwithf "Result was an error: %s" (String.Join(Environment.NewLine, msgs |> Seq.map (fun x -> x.ToString())))
  