A machine-checked solution to the Jacobians challenge

27.12. TailDuality.TailMultiplicationH1🔗

Jacobians.TailDuality.TailMultiplicationH1source

MulLevelLE

The standing order condition for μ_ψ : 𝒯[A] → 𝒯[B] to be compatible with realization: A − B ≤ ord ψ pointwise.

def MulLevelLE (ψ : MeromorphicFunction X) (A B : Divisor X) : Prop

MulLevelLE.hE

theorem MulLevelLE.hE {ψ : MeromorphicFunction X} {A B : Divisor X} (h : MulLevelLE ψ A B) :
    ∀ p : X, ((-(B p) : ℤ) : WithTop ℤ) ≤ ψ.orderW p + ((-(A p) : ℤ) : WithTop ℤ)

mulLevelLE_of_mem

Membership ψ ∈ L(C) gives the level condition for A := B − C-type shifts: MulLevelLE ψ (B - C) B.

theorem mulLevelLE_of_mem [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    {ψ : MeromorphicFunction X} {C : Divisor X}
    (hψ : ψ ∈ linearSystem (X := X) C) (B : Divisor X) :
    MulLevelLE ψ (B - C) B

mulLevelLE_add_div

The exact shift A := B + div ψ satisfies the level condition.

theorem mulLevelLE_add_div [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    [Nonempty X] (ψ : MeromorphicFunction X) (B : Divisor X) :
    MulLevelLE ψ (B + (ψ.div : Divisor X)) B

tailMulCo

μ_ψ co-restricted between tail levels (the target membership is unconditional — the operator truncates at B by construction).

noncomputable def tailMulCo [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    (ψ : MeromorphicFunction X) (A B : Divisor X) :
    ↥(tailSubspace (X := X) A) →ₗ[ℂ] ↥(tailSubspace (X := X) B)

tailMulCo_coe

@[simp] theorem tailMulCo_coe [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    (ψ : MeromorphicFunction X) (A B : Divisor X)
    (Z : ↥(tailSubspace (X := X) A)) :
    (tailMulCo ψ A B Z : TailSpace X) = tailMul ψ B (Z : TailSpace X)

tailMulH1

The -level multiplication action (Miranda Problem VI.2.J): μ_ψ descends to the Mittag-Leffler quotients under the level condition (realized tails map to realized tails by Miranda (2.2)).

noncomputable def tailMulH1 [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    (ψ : MeromorphicFunction X) {A B : Divisor X}
    (h : MulLevelLE ψ A B) :
    mittagLefflerH1 (X := X) A →ₗ[ℂ] mittagLefflerH1 (X := X) B

tailMulH1_mk

@[simp] theorem tailMulH1_mk [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    (ψ : MeromorphicFunction X) {A B : Divisor X}
    (h : MulLevelLE ψ A B) (Z : ↥(tailSubspace (X := X) A)) :
    tailMulH1 ψ h (Submodule.Quotient.mk Z) = Submodule.Quotient.mk (tailMulCo ψ A B Z)

psi_mul_inv_eventually_one

For ψ whose germ survives somewhere (hence everywhere — orderW_ne_top_of_exists), ψ·ψ⁻¹ has germ 1 at every point.

theorem psi_mul_inv_eventually_one [T2Space X] [CompactSpace X] [ConnectedSpace X]
    [IsManifold 𝓘(ℂ) ω X] (ψ : MeromorphicFunction X)
    (hψ : ∃ x, ψ.orderW x ≠ ⊤) (p : X) :
    ∀ᶠ z in 𝓝[≠] ((chartAt (H := ℂ) p) p),
      ψ.toFun ((chartAt (H := ℂ) p).symm z)
        * (ψ⁻¹).toFun ((chartAt (H := ℂ) p).symm z) = 1

tailMul_tailMul_inv

The composite identity μ_ψ(μ_{ψ⁻¹}(W)) = W on 𝒯[B] at the exact shift A = B + div ψ: the coefficients of ψ·(A-tail of ψ⁻¹·(tail of W)) below −B are those of ψ·ψ⁻¹·(tail of W) = tail of W, because the dropped part has order ≥ ord ψ − A ≥ −B.

theorem tailMul_tailMul_inv [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    [Nonempty X] (ψ : MeromorphicFunction X) (hψ : ∃ x, ψ.orderW x ≠ ⊤)
    (B : Divisor X) (W : ↥(tailSubspace (X := X) B)) :
    tailMul ψ B (tailMul ψ⁻¹ (B + (ψ.div : Divisor X)) (W : TailSpace X))
      = (W : TailSpace X)

tailMulH1_surjective

Surjectivity of the multiplication action (Forster 17.8): for ψ with surviving germ, every class of H¹(B) is hit — the preimage is the ψ⁻¹-image at the exact shift B + div ψ, which lies in the (coarser) 𝒯[A] since A ≤ B + div ψ.

theorem tailMulH1_surjective [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    [Nonempty X] (ψ : MeromorphicFunction X) (hψ : ∃ x, ψ.orderW x ≠ ⊤)
    {A B : Divisor X} (h : MulLevelLE ψ A B) :
    Function.Surjective (tailMulH1 ψ h)

comp_tailMulH1_ne_zero

For λ ≠ 0 and ψ with surviving germ, λ ∘ T̄_ψ ≠ 0 — the dimension input for the Λ-side of the Serre-duality pigeonhole (Forster 17.9).

theorem comp_tailMulH1_ne_zero [T2Space X] [CompactSpace X] [ConnectedSpace X] [IsManifold 𝓘(ℂ) ω X]
    [Nonempty X] {B : Divisor X}
    (φ : Module.Dual ℂ (mittagLefflerH1 (X := X) B)) (hφ : φ ≠ 0)
    (ψ : MeromorphicFunction X) (hψ : ∃ x, ψ.orderW x ≠ ⊤)
    {A : Divisor X} (h : MulLevelLE ψ A B) :
    φ.comp (tailMulH1 ψ h) ≠ 0