Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
open CategoryTheory Limits AlgebraicGeometry
universe u
namespace EtaleFundamentalGroups
variable {B S : Scheme.{u}} (𝒰 : S.OpenCover)
variable (A : 𝒰.I₀ → Over B) (V : 𝒰.I₀ × 𝒰.I₀ → Over B)
variable (d : ∀ i j : 𝒰.I₀, V (i, j) ⟶ A i)
variable (y : ∀ i : 𝒰.I₀, (A i).left ⟶ 𝒰.X i)
variable (ℓ : ∀ i j : 𝒰.I₀, (V (i, j)).left ⟶ 𝒰.X j)
variable (hV : ∀ i j : 𝒰.I₀, IsPullback (d i j).left (ℓ i j) (y i ≫ 𝒰.f i) (𝒰.f j))
variable (t : ∀ i j : 𝒰.I₀, V (i, j) ⟶ V (j, i))
variable (ht : ∀ i j : 𝒰.I₀, (t i j).left ≫ (d j i).left ≫ y j = ℓ i j)
variable {B' Z : Scheme.{u}} (ψ : B' ⟶ B)
local instance gluingRecoveryFunctor_faithful [Flat ψ] [Surjective ψ] :
(gluingRecoveryFunctor ψ).Faithful := by
let : ∀ (T : Scheme.{u}) (g : T ⟶ B), Epi (pullback.fst g ψ) :=
fun T g => Flat.epi_of_flat_of_surjective (pullback.fst g ψ)
infer_instance
variable (h : ∀ i : 𝒰.I₀, (gluingRecoveryFunctor ψ).obj (A i) ⟶ Z)
variable [∀ i : 𝒰.I₀, Mono (h i)]
variable (hrec : ∀ i j : 𝒰.I₀,
(gluingRecoveryFunctor ψ).map (t i j) ≫ (gluingRecoveryFunctor ψ).map (d j i) ≫ h j =
(gluingRecoveryFunctor ψ).map (d i j) ≫ h i)
variable (hinj : ∀ (T : Over B) (i j : 𝒰.I₀),
Function.Injective ((gluingRecoveryFunctor ψ).map (X := T) (Y := V (i, j))))
omit [∀ i : 𝒰.I₀, Mono (h i)] in
include hrec in