Skip to main content
YaelDillies/APAP
Source indexedlemma · leanprover/lean4:v4.32.0

pow_inner_nonneg'

APAP.Physics.Unbalancing · APAP/Physics/Unbalancing.lean:27 to 49

Source documentation

Note that we do the physical proof in order to avoid the Fourier transform.

Exact Lean statement

lemma pow_inner_nonneg' {f : G → ℂ} (hf : g ○ᵈ g = f) (hν : h ○ᵈ h = (↑) ∘ ν) (k : ℕ) :
    0 ≤ ⟪f ^ k, (↑) ∘ ν⟫_[ℂ]

Complete declaration

Lean source

Canonical source
Full Lean sourceLean 4
lemma pow_inner_nonneg' {f : G  ℂ} (hf : g ○ᵈ g = f) (hν : h ○ᵈ h = (↑) ∘ ν) (k : ) :    0  ⟪f ^ k, (↑) ∘ ν⟫_[ℂ] := by  calc    0  ∑ z : Fin k  G, (‖∑ x, (∏ i, conj (g (x + z i))) * h x‖ : ℂ) ^ 2 := by positivity    _ = ∑ x : G, ∑ yz : G × G with yz.1 - yz.2 = x,          h yz.1 * conj h yz.2 * conj ((g ○ᵈ g) (yz.1 - yz.2)) ^ k := ?_    _ = ∑ x : G, ∑ yz : G × G with yz.1 - yz.2 = x,          h yz.1 * conj h yz.2 * conj ((g ○ᵈ g) x) ^ k := by        congr! with x _ yz hyz        simpa using hyz    _ = _ := by      rw [ hf,  hν, wInner_one_eq_sum]      simp only [Pi.pow_apply, RCLike.inner_apply, map_pow]      simp_rw [dddconv_apply h, sum_mul]  simp_rw [dddconv_apply_sub, sum_fiberwise,  univ_product_univ, sum_product]  simp only [sum_pow', sum_mul_sum, map_mul, starRingEnd_self_apply, Fintype.piFinset_univ,     Complex.conj_mul', map_sum, map_prod]  simp only [mul_sum, @sum_comm _ _ (Fin k  G), mul_comm (conj _), prod_mul_distrib, Pi.conj_apply]  rw [sum_comm]  congr with x  congr with y  congr with z  group