Source context 5 commands
Surrounding namespaces, section variables, and local commands at this declaration.
universe u
open CategoryTheory MonoidalCategory Limits TopologicalSpace
noncomputable section
namespace AlgebraicGeometry.Scheme.Modules
variable {X Y : Scheme.{u}} (f : X ⟶ Y)instance preservesBinaryProducts_opensMap :
PreservesLimitsOfShape (Discrete WalkingPair) (Opens.map f.base) where
preservesLimit {K} := ⟨fun {c} hc => ⟨
{ lift := fun s => homOfLE (by
have hinf : K.obj ⟨.left⟩ ⊓ K.obj ⟨.right⟩ ≤ c.pt := leOfHom (hc.lift
{ pt := K.obj ⟨.left⟩ ⊓ K.obj ⟨.right⟩
π := Discrete.natTrans (fun j => match j with
| ⟨.left⟩ => homOfLE inf_le_left
| ⟨.right⟩ => homOfLE inf_le_right) })
have h₁ : s.pt ≤ (Opens.map f.base).obj (K.obj ⟨.left⟩) := leOfHom (s.π.app ⟨.left⟩)
have h₂ : s.pt ≤ (Opens.map f.base).obj (K.obj ⟨.right⟩) := leOfHom (s.π.app ⟨.right⟩)
exact (le_inf h₁ h₂).trans (leOfHom ((Opens.map f.base).map (homOfLE hinf))))
fac := fun s j => Subsingleton.elim _ _
uniq := fun s m _ => Subsingleton.elim _ _ }⟩⟩