∀ (R : CommRingCatᵒᵖ),
  AlgebraicGeometry.toSpecΓ (Opposite.unop R) =
    CommRingCat.ofHom
      (algebraMap (↑R.1)
        ((AlgebraicGeometry.structureSheafInType ↑(Opposite.unop (Opposite.op (Opposite.unop R)))
                ↑(Opposite.unop (Opposite.op (Opposite.unop R)))).obj.obj
          (Opposite.op ⊤)))