Documentation

Hironaka.Resolution.Analytic.Wlo09.FamilyPushforward

The push-forward relation of the glued families along a closed embedding #

Kollár's commutation of a blow-up sequence functor with closed embeddings over the compact sets, for the glued families: for family functors B in dimension n and B' in dimension n − s on the standard models with B(M, I, ∅) = τ_* B'(S, I|_S, ∅) over every relatively compact open (AnalyticFamilyFunctor.CommutesWithClosedEmbeddingsOfEmptyDivisorFam, [Kol07, 34.3]) and B' commuting with local analytic isomorphisms, the succession of the glued family of B(M, I, ∅) over the neighbourhood of a compact K ⊆ M is the push-forward along a closed embedding τ : N → M with image S of the succession of the glued family of B'(N, τ^*I, ∅) over the neighbourhood of a compact K' ⊆ N with τ(U_{K'}) ⊆ U_K, up to blow-ups whose centres lie outside the part over τ(U_{K'}) (FiniteSuccession.IsPushforwardUpToEmptyAlong): isPushforwardUpToEmptyAlong_toExtensionCompatibleFamily.

The argument: with L the value of B' on the trace U_S of U_K on the bundled submanifold S, the value of B on U_K is the push-forward of L from the stage (U_K, S ∩ U_K, e) (IsClosedSubmanifold.restrictStageOf), whose stages receive the inclusions PushforwardStage.inclStage; the value of B' on U_{K'} is, through the identification e : N ≃ S over τ, the pull-back of L up to empty blow-ups (CompatibleFamily.isPullbackUpToEmptyAlong_seqOn), with lifts f_k bijective on the fibres (bijOn_fiber_of_isPullbackUpToEmptyAlong_clauses). The embeddings of the relation are the inclusions after the lifts; the fibre bijections make them embeddings with image the part of the strict transform over τ(U_{K'}), and the centres of the push-forward are the images of the centres of L.

For an empty N the two successions are empty (length_eq_zero_of_isEmpty, eq_nil_of_isEmpty) and the relation holds for any model space of N (isPushforwardUpToEmptyAlong_seqOn_of_isEmpty).

Successions over an empty manifold #

A finite succession over an empty manifold with no empty centre has length 0: every stage is empty, so every centre is the unit ideal sheaf.

theorem Hironaka.Manifold.eq_nil_of_isEmpty {𝕜 : Type} [RCLike 𝕜] {E : Type u_1} [NormedAddCommGroup E] [NormedSpace 𝕜 E] {X : AnalyticManifold 𝕜 E} [IsEmpty X.carrier] {n : ℕ} {ψ₀ : E ≃L[𝕜] Fin n → 𝕜} (L : AnalyticManifold.BlowUpSequence ψ₀ X) (h : L.NoEmptyCenters) :

A list of centres on an empty manifold with no empty centre is the empty list.

The push-forward relation of the glued families #

theorem Hironaka.Manifold.isPushforwardUpToEmptyAlong_seqOn_of_isEmpty_of_dom {𝕜 : Type} [RCLike 𝕜] {n s : ℕ} {Dom : {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) M → Prop} {Dom' : {M' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) M' → Prop} {B : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} => Dom} {B' : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} => Dom'} (hBB' : B.CommutesWithClosedEmbeddingsOfEmptyDivisorFam B') {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} {E' : Type u_1} [NormedAddCommGroup E'] [NormedSpace 𝕜 E'] {N : AnalyticManifold 𝕜 E'} [IsEmpty N.carrier] (τ : ContMDiffMap (modelWithCornersSelf 𝕜 E') (modelWithCornersSelf 𝕜 (Fin n → 𝕜)) N.carrier M.carrier ⊤) (hS : Manifold.IsClosedSubmanifold (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) (Set.range ⇑τ) s) (I : M.IdealSheaf) (hI : Manifold.IdealSheaf.IsNonzeroEverywhere I) (hle : ∀ (x : ↑↧M.carrier), hS.idealSheaf.stalkIdeal x ≤ Manifold.IdealSheaf.stalkIdeal I x) (hT : Dom { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ }) (hT'S : ∀ (h : (Manifold.IdealSheaf.pullback ⇑hS.inclusionMap ⋯ I).IsNonzeroEverywhere), Dom' { I := Manifold.IdealSheaf.pullback ⇑hS.inclusionMap ⋯ I, isNonzeroEverywhere := h, F := Manifold.HypersurfaceFamily.empty hS.toAnalyticManifold.carrier, isSnc := ⋯ }) {U' : TopologicalSpace.Opens N.carrier} (R : (N.restrict U').FiniteSuccession) (hR : R.NoEmptyCenters) (U : TopologicalSpace.Opens M.carrier) (hU : IsCompact (closure ↑U)) :
((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).seqOn U hU).toSuccession.IsPushforwardUpToEmptyAlong R τ

The push-forward relation for an empty N: both successions are empty, and the relation holds with the restriction of τ as the only embedding. The class Dom' is required only at the pull-back of I to the bundled submanifold τ(N).

theorem Hironaka.Manifold.isPushforwardUpToEmptyAlong_seqOn_of_isEmpty {𝕜 : Type} [RCLike 𝕜] {n s : ℕ} {Dom : {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) M → Prop} {Dom' : {M' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) M' → Prop} {B : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} => Dom} {B' : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} => Dom'} (hBB' : B.CommutesWithClosedEmbeddingsOfEmptyDivisorFam B') {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} (hDom' : ∀ {N' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} (J' : N'.IdealSheaf) (hJ' : Manifold.IdealSheaf.IsNonzeroEverywhere J'), Dom' { I := J', isNonzeroEverywhere := hJ', F := Manifold.HypersurfaceFamily.empty N'.carrier, isSnc := ⋯ }) {E' : Type u_1} [NormedAddCommGroup E'] [NormedSpace 𝕜 E'] {N : AnalyticManifold 𝕜 E'} [IsEmpty N.carrier] (τ : ContMDiffMap (modelWithCornersSelf 𝕜 E') (modelWithCornersSelf 𝕜 (Fin n → 𝕜)) N.carrier M.carrier ⊤) (hS : Manifold.IsClosedSubmanifold (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) (Set.range ⇑τ) s) (I : M.IdealSheaf) (hI : Manifold.IdealSheaf.IsNonzeroEverywhere I) (hle : ∀ (x : ↑↧M.carrier), hS.idealSheaf.stalkIdeal x ≤ Manifold.IdealSheaf.stalkIdeal I x) (hT : Dom { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ }) {U' : TopologicalSpace.Opens N.carrier} (R : (N.restrict U').FiniteSuccession) (hR : R.NoEmptyCenters) (U : TopologicalSpace.Opens M.carrier) (hU : IsCompact (closure ↑U)) :
((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).seqOn U hU).toSuccession.IsPushforwardUpToEmptyAlong R τ

The push-forward relation for an empty N: both successions are empty, and the relation holds with the restriction of τ as the only embedding (isPushforwardUpToEmptyAlong_seqOn_of_isEmpty_of_dom, for a class Dom' containing every triple with nonzero stalks and empty boundary).

theorem Hironaka.Manifold.isPushforwardUpToEmptyAlong_toExtensionCompatibleFamily_of_dom {𝕜 : Type} [RCLike 𝕜] {n s : ℕ} {Dom : {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) M → Prop} {Dom' : {M' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) M' → Prop} {B : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} => Dom} {B' : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} => Dom'} (hBB' : B.CommutesWithClosedEmbeddingsOfEmptyDivisorFam B') {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} (hB' : B'.CommutesWithLocalIsos) {N : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} (τ : ContMDiffMap (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) (modelWithCornersSelf 𝕜 (Fin n → 𝕜)) N.carrier M.carrier ⊤) (hS : Manifold.IsClosedSubmanifold (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) (Set.range ⇑τ) s) (e : Diffeomorph (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) N.carrier hS.toAnalyticManifold.carrier ⊤) (he : ∀ (x : N.carrier), ↑(e x) = τ x) (I : M.IdealSheaf) (hI : Manifold.IdealSheaf.IsNonzeroEverywhere I) (hle : ∀ (x : ↑↧M.carrier), hS.idealSheaf.stalkIdeal x ≤ Manifold.IdealSheaf.stalkIdeal I x) (J : N.IdealSheaf) (hJ : Manifold.IdealSheaf.IsNonzeroEverywhere J) (hJI : J = Manifold.IdealSheaf.pullback ⇑τ ⋯ I) (hT : Dom { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ }) (hT' : Dom' { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ }) (hT'S : ∀ (h : (Manifold.IdealSheaf.pullback ⇑hS.inclusionMap ⋯ I).IsNonzeroEverywhere), Dom' { I := Manifold.IdealSheaf.pullback ⇑hS.inclusionMap ⋯ I, isNonzeroEverywhere := h, F := Manifold.HypersurfaceFamily.empty hS.toAnalyticManifold.carrier, isSnc := ⋯ }) (K' : TopologicalSpace.Compacts N.carrier) (K : TopologicalSpace.Compacts M.carrier) (hK : ⇑τ '' ↑((B'.fam { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ } hT').toExtensionCompatibleFamily.nhd K') ⊆ ↑((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).toExtensionCompatibleFamily.nhd K)) :
((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).toExtensionCompatibleFamily.seq K).IsPushforwardUpToEmptyAlong ((B'.fam { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ } hT').toExtensionCompatibleFamily.seq K') τ

The succession of the glued family of B(M, I, ∅) over U_K is the push-forward along the closed embedding τ : N → M of the succession of the glued family of B'(N, τ^*I, ∅) over U_{K'}, up to blow-ups whose centres lie outside the part over τ(U_{K'}) ([Kol07, 34.3] over the compact sets), for τ(U_{K'}) ⊆ U_K, I ⊇ I_S with S = τ(N), and N identified with the bundled S by e over τ. The value of B on U_K is the push-forward of the value L of B' on the trace U_S from the stage (U_K, S ∩ U_K, e); the value of B' on U_{K'} is the pull-back of L along e up to empty blow-ups; the embeddings are the stage inclusions of the push-forward after the lifts of the pull-back, which are bijective on the fibres over U_{K'}. The class Dom' is required at J and at the pull-back of I to the bundled submanifold τ(N).

theorem Hironaka.Manifold.isPushforwardUpToEmptyAlong_toExtensionCompatibleFamily {𝕜 : Type} [RCLike 𝕜] {n s : ℕ} {Dom : {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) M → Prop} {Dom' : {M' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} → Manifold.AnalyticTriple (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) M' → Prop} {B : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} => Dom} {B' : AnalyticFamilyFunctor (ContinuousLinearEquiv.refl 𝕜 (Fin (n - s) → 𝕜)) fun {M : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} => Dom'} (hBB' : B.CommutesWithClosedEmbeddingsOfEmptyDivisorFam B') {M : AnalyticManifold 𝕜 (Fin n → 𝕜)} (hDom' : ∀ {N' : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} (J' : N'.IdealSheaf) (hJ' : Manifold.IdealSheaf.IsNonzeroEverywhere J'), Dom' { I := J', isNonzeroEverywhere := hJ', F := Manifold.HypersurfaceFamily.empty N'.carrier, isSnc := ⋯ }) (hB' : B'.CommutesWithLocalIsos) {N : AnalyticManifold 𝕜 (Fin (n - s) → 𝕜)} (τ : ContMDiffMap (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) (modelWithCornersSelf 𝕜 (Fin n → 𝕜)) N.carrier M.carrier ⊤) (hS : Manifold.IsClosedSubmanifold (ContinuousLinearEquiv.refl 𝕜 (Fin n → 𝕜)) (Set.range ⇑τ) s) (e : Diffeomorph (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) (modelWithCornersSelf 𝕜 (Fin (n - s) → 𝕜)) N.carrier hS.toAnalyticManifold.carrier ⊤) (he : ∀ (x : N.carrier), ↑(e x) = τ x) (I : M.IdealSheaf) (hI : Manifold.IdealSheaf.IsNonzeroEverywhere I) (hle : ∀ (x : ↑↧M.carrier), hS.idealSheaf.stalkIdeal x ≤ Manifold.IdealSheaf.stalkIdeal I x) (J : N.IdealSheaf) (hJ : Manifold.IdealSheaf.IsNonzeroEverywhere J) (hJI : J = Manifold.IdealSheaf.pullback ⇑τ ⋯ I) (hT : Dom { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ }) (hT' : Dom' { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ }) (K' : TopologicalSpace.Compacts N.carrier) (K : TopologicalSpace.Compacts M.carrier) (hK : ⇑τ '' ↑((B'.fam { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ } hT').toExtensionCompatibleFamily.nhd K') ⊆ ↑((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).toExtensionCompatibleFamily.nhd K)) :
((B.fam { I := I, isNonzeroEverywhere := hI, F := Manifold.HypersurfaceFamily.empty M.carrier, isSnc := ⋯ } hT).toExtensionCompatibleFamily.seq K).IsPushforwardUpToEmptyAlong ((B'.fam { I := J, isNonzeroEverywhere := hJ, F := Manifold.HypersurfaceFamily.empty N.carrier, isSnc := ⋯ } hT').toExtensionCompatibleFamily.seq K') τ

isPushforwardUpToEmptyAlong_toExtensionCompatibleFamily_of_dom for a class Dom' containing every triple with nonzero stalks and empty boundary.