∀ (R : CommRingCatᵒᵖ),
  AlgebraicGeometry.ΓSpec.locallyRingedSpaceAdjunction.counit.app R =
    (CommRingCat.ofHom
        (algebraMap (↑R.1)
          ((AlgebraicGeometry.structureSheafInType ↑(Opposite.unop R) ↑(Opposite.unop R)).val.obj (Opposite.op ⊤)))).op