∀ {X : AlgebraicGeometry.Scheme} [QuasiSeparatedSpace ↥X],
  AlgebraicGeometry.QuasiCompact
    (CategoryTheory.Limits.prod.lift (CategoryTheory.CategoryStruct.id X) (CategoryTheory.CategoryStruct.id X))