anchor.diff:                message (formatInput actual) (formatInput formatedExpected) missingElementsInfo extraElementsInfo
     |> Tests.failtest
   
  -let inline private formattedList (sequence) =
  +let private formattedList (sequence) =
     let formattedElements =
       sequence
       |> Seq.mapi( fun index element -> sprintf "[%d] %A" index element)
  
positive.code:   | None ->
      Tests.failtestf "%s. Sequence did not contain %A." message element
  
  let inline private formatSet<'a> (concatBy) (formatResult) (whenEmpty) (ss : 'a seq) : string =
    if Seq.isEmpty ss then
      whenEmpty
    else
  
negative.code:               message (formatResult axs) (formatResult exs) (formatResult missing) (formatResult extra)
    |> Tests.failtest
  
  let private except (elementsToCheck: Map<_,uint32>) (elementsToContain: Map<_,uint32>) (isExcept: bool) =
    let getMapValue (map: Map<_, uint32>) (element) =
      map |> Map.find element
    let getResult found expected =
  