anchor.diff:                      |> returnOrFail
                       |> ignore
   
  -                    let setsCountUpdated = Array.length <| subSets disjointSet
  +                    let setsCountUpdated = subSetsCount disjointSet
   
                       if sameSubSet then 
                           setsCount = setsCountUpdated
  
positive.code: 
      testList "DisjointSet ADT" [
  
          testPropertyWithConfig {Config.Quick with MaxTest=250} 
              "A disjoint set has between 0 and size subsets" <|
              fun (disjointSet: DisjointSet) ->
                  let sets = subSets disjointSet
                  let setsCount = Array.length sets
                  let size = DisjointSet.size disjointSet
                  setsCount >= 0 && setsCount <= size
  
          testPropertyWithConfig {Config.Quick with MaxTest=250} 
  
negative.code:                 let result = DisjointSet.inSameSubset disjointSet e e
                  match result with 
                  | Ok (same, _) -> same 
                  | Bad _ -> true // out of range 
  
          testPropertyWithConfig {Config.Quick with MaxTest=250}
              "A sequence of union and find operations starting with valid entryIds always returns valid EntryIds." <|
  