∀ {n : Type v} (R : CommRingCat),
  AlgebraicGeometry.Scheme.Hom.appTop (AlgebraicGeometry.AffineSpace.SpecIso n R).hom =
    CategoryTheory.CategoryStruct.comp
      (AlgebraicGeometry.Scheme.ΓSpecIso
          { carrier := MvPolynomial n ↑R, commRing := MvPolynomial.instCommRingMvPolynomial }).hom
      (CommRingCat.ofHom
        (MvPolynomial.eval₂Hom
          (CommRingCat.Hom.hom
            (CategoryTheory.CategoryStruct.comp (AlgebraicGeometry.Scheme.ΓSpecIso R).inv
              (AlgebraicGeometry.Scheme.Hom.appTop
                (AlgebraicGeometry.AffineSpace n (AlgebraicGeometry.Spec R) ↘ AlgebraicGeometry.Spec R))))
          (AlgebraicGeometry.AffineSpace.coord (AlgebraicGeometry.Spec R))))