theorem
L36 ↗projMap_congr
AlgebraicCurves.Geometry.Projective.Proofs.ProjSpace_isPullback_comp_and_comp_eq_map_of_isScalarTower.P2mK4G.projMap_congr
Source context 7 commands
Surrounding namespaces, section variables, and local commands at this declaration.
section ProofImplementation
namespace AlgebraicCurves.Geometry.Projective.Proofs
namespace ProjSpace_isPullback_comp_and_comp_eq_map_of_isScalarTower
universe u
open CategoryTheory CategoryTheory.Limits AlgebraicGeometry MvPolynomial TensorProduct
attribute [local instance] MvPolynomial.gradedAlgebra
namespace P2mK4GLean source · statement
theorem projMap_congr {A C : Type u} [CommRing A] [CommRing C] {n : ℕ}
(φ ψ : MvPolynomial.homogeneousSubmodule (Fin (n + 1)) A →+*ᵍ MvPolynomial.homogeneousSubmodule
(Fin (n + 1)) C)
(hφ : HomogeneousIdeal.irrelevant (MvPolynomial.homogeneousSubmodule (Fin (n + 1)) C) ≤
(HomogeneousIdeal.irrelevant (MvPolynomial.homogeneousSubmodule (Fin (n + 1)) A)).map φ)
(hψ : HomogeneousIdeal.irrelevant (MvPolynomial.homogeneousSubmodule (Fin (n + 1)) C) ≤
(HomogeneousIdeal.irrelevant (MvPolynomial.homogeneousSubmodule (Fin (n + 1)) A)).map ψ) (h :
φ = ψ) :
Proj.map φ hφ = Proj.map ψ hψ