Generlise Shared[List[A]].sorted to any Seq