∀ {X Y : AlgebraicGeometry.LocallyRingedSpace} (f : X ⟶ Y),
  AlgebraicGeometry.LocallyRingedSpace.forgetToTop.map f =
    (AlgebraicGeometry.SheafedSpace.forget CommRingCat).map (CategoryTheory.InducedCategory.homMk f.toHom)