Theorem: lh_pow_free'
Proof state before:
case neg.intro.intro.intro.intro.refine_1
p : ℕ+
K : Type u_1
inst✝¹⁵ : Field K
inst✝¹⁴ : NumberField K
k : Type u_2
inst✝¹³ : Field k
inst✝¹² : NumberField k
hp : (↑p).Prime
G : Type u_3
H : Type u_4
inst✝¹¹ : AddCommGroup G
inst✝¹⁰ : CommGroup H
inst✝⁹ : Fintype H
hCard : Fintype.card H = ↑p
σ✝ : H
hσ✝ : Subgroup.zpowers σ✝ = ⊤
r✝ : ℕ
inst✝⁸ : DistribMulAction H G
inst✝⁷ : Module.Free ℤ G
inst✝⁶ : Module.Finite ℤ G
hf : finrank ℤ G = r✝ * (↑p - 1)
inst✝⁵ : Algebra k K
inst✝⁴ : IsGalois k K
inst✝³ : FiniteDimensional k K
inst✝² : IsUnramifiedAtInfinitePlaces k K
hKL : finrank k K = ↑p
σ : K ≃ₐ[k] K
hσ : ∀ (x : K ≃ₐ[k] K), x ∈ Subgroup.zpowers σ
M : Type u_5
inst✝¹ : CommGroup M
inst✝ : Module.Finite ℤ (Additive M)
ζ : M
hk : ∀ (ε : M) (n : ℕ), ε ^ ↑p ^ n = 1 → ∃ i, ζ ^ i = ε
r : ℕ
η : Fin (r + 1) → Additive M
hr : finrank ℤ (Additive M) < r
a₁ : ℤ
ι₁ : Fin r → ℤ
i₁ : Fin r
e₁ : ∑ i : Fin r, ι₁ i • (η ∘ Fin.castSucc) i = a₁ • Additive.ofMul ζ
hi₁ : ¬↑↑p ∣ ι₁ i₁
a₂ : ℤ
ι₂ : Fin r → ℤ
i₂ : Fin r
e₂ : ∑ i : Fin r, ι₂ i • (η ∘ i₁.castSucc.succAbove) i = a₂ • Additive.ofMul ζ
hi₂ : ¬↑↑p ∣ ι₂ i₂
hζ' : ¬ζ = 1
ha₁ : ¬↑↑p ∣ a₁
ha₂ : ¬↑↑p ∣ a₂
α₁ β₁ : ℤ
h₁ : α₁ * ↑↑p + β₁ * a₁ = 1
α₂ β₂ : ℤ
h₂ : α₂ * ↑↑p + β₂ * a₂ = 1
⊢ ∑ x : Fin (r + 1), β₁ • Function.extend Fin.castSucc ι₁ 0 x • η x -
      ∑ x : Fin (r + 1), β₂ • Function.extend i₁.castSucc.succAbove ι₂ 0 x • η x =
    β₁ • ∑ i : Fin r, ι₁ i • (η ∘ Fin.castSucc) i - β₂ • ∑ i : Fin r, ι₂ i • (η ∘ i₁.castSucc.succAbove) i
Tactic:
rw [Fin.sum_univ_castSucc, Fin.sum_univ_succAbove _ i₁.castSucc]
Proof state after:
case neg.intro.intro.intro.intro.refine_1
p : ℕ+
K : Type u_1
inst✝¹⁵ : Field K
inst✝¹⁴ : NumberField K
k : Type u_2
inst✝¹³ : Field k
inst✝¹² : NumberField k
hp : (↑p).Prime
G : Type u_3
H : Type u_4
inst✝¹¹ : AddCommGroup G
inst✝¹⁰ : CommGroup H
inst✝⁹ : Fintype H
hCard : Fintype.card H = ↑p
σ✝ : H
hσ✝ : Subgroup.zpowers σ✝ = ⊤
r✝ : ℕ
inst✝⁸ : DistribMulAction H G
inst✝⁷ : Module.Free ℤ G
inst✝⁶ : Module.Finite ℤ G
hf : finrank ℤ G = r✝ * (↑p - 1)
inst✝⁵ : Algebra k K
inst✝⁴ : IsGalois k K
inst✝³ : FiniteDimensional k K
inst✝² : IsUnramifiedAtInfinitePlaces k K
hKL : finrank k K = ↑p
σ : K ≃ₐ[k] K
hσ : ∀ (x : K ≃ₐ[k] K), x ∈ Subgroup.zpowers σ
M : Type u_5
inst✝¹ : CommGroup M
inst✝ : Module.Finite ℤ (Additive M)
ζ : M
hk : ∀ (ε : M) (n : ℕ), ε ^ ↑p ^ n = 1 → ∃ i, ζ ^ i = ε
r : ℕ
η : Fin (r + 1) → Additive M
hr : finrank ℤ (Additive M) < r
a₁ : ℤ
ι₁ : Fin r → ℤ
i₁ : Fin r
e₁ : ∑ i : Fin r, ι₁ i • (η ∘ Fin.castSucc) i = a₁ • Additive.ofMul ζ
hi₁ : ¬↑↑p ∣ ι₁ i₁
a₂ : ℤ
ι₂ : Fin r → ℤ
i₂ : Fin r
e₂ : ∑ i : Fin r, ι₂ i • (η ∘ i₁.castSucc.succAbove) i = a₂ • Additive.ofMul ζ
hi₂ : ¬↑↑p ∣ ι₂ i₂
hζ' : ¬ζ = 1
ha₁ : ¬↑↑p ∣ a₁
ha₂ : ¬↑↑p ∣ a₂
α₁ β₁ : ℤ
h₁ : α₁ * ↑↑p + β₁ * a₁ = 1
α₂ β₂ : ℤ
h₂ : α₂ * ↑↑p + β₂ * a₂ = 1
⊢ ∑ i : Fin r, β₁ • Function.extend Fin.castSucc ι₁ 0 i.castSucc • η i.castSucc +
        β₁ • Function.extend Fin.castSucc ι₁ 0 (Fin.last r) • η (Fin.last r) -
      (β₂ • Function.extend i₁.castSucc.succAbove ι₂ 0 i₁.castSucc • η i₁.castSucc +
        ∑ i : Fin r,
          β₂ • Function.extend i₁.castSucc.succAbove ι₂ 0 (i₁.castSucc.succAbove i) • η (i₁.castSucc.succAbove i)) =
    β₁ • ∑ i : Fin r, ι₁ i • (η ∘ Fin.castSucc) i - β₂ • ∑ i : Fin r, ι₂ i • (η ∘ i₁.castSucc.succAbove) i