theorem modeAfterL_eq_rpow_scaling {k : ℕ} (hk : 1 ≤ k) (m L : ℕ) (a₀ : ℝ) : modeAfterL k m L a₀ = ((↑k : ℝ) ^ (-scalingDimension m)) ^ L * a₀ := by simp only [modeAfterL, modeRate_eq_rpow_neg_scaling hk]
thesis/CESProofs/Hierarchy/RenormalizationGroup.lean:170
Renormalization Group for CES: