anchor.diff:    Result := FFunc(AItem);
   end;
   
  -{%endregion}
  -
  -{%region TListTool}
  +{ TListTool }
   
   class function TListTool<T>.Copy(const AList: TList<T>; const AIndex, ACount : SizeInt) : TList<T>;
   var
  
positive.code: class function TComparerTool<T>.AlwaysEqualHandler(constref Left, Right: T) : Integer;
  begin
    Result := 0;
  end;
  
  { TNestedComparer }
  
negative.code:       class function Transform(const AList : TList<T1>; const ATransformer : ITransformer<T1, T2>) : TArray<T2>; overload;
    end;
  
    { TSortedHashSetTool }
  
    TSortedHashSetTool<T> = class
      class function Pop(ASet : TSortedHashSet<T>) : T;
    end;
  
  
    { ================================================================================================== }
    { IMPLEMENTATION LEVEL TYPES -- declared here due to FPC bug
    { ================================================================================================== }
  
    { TNestedComparer }
  
  