Eq. (4.7) — quasi-Fejér monotonicity with
ProvedAndersonAccel.Safe.quasi_fejerLet be nonexpansive and run Algorithm 3.1 with , and max-memory , assuming no iterate is a solution. Let be a fixed point of , , the bound (3.8), and
Define when step is an averaged step (and for ), and, when iteration accepts the accelerated step as the -th one ( at the test),
Then , , and for every
This quasi-Fejér property is what turns the boundedness of the iterates into convergence of the distances to every fixed point.
Formalization Note The sequence is given explicitly (from (4.4)) rather than asserted to exist; the paper's identity is replaced by summability, which is its content. The safeguard exponent and the sequence are different objects (ε and epsSeq in Lean). The index is the averaged step .
import Mathlib import Definitions.Def_AndersonAccel_Safe_Basic import Definitions.Def_AndersonAccel_Safe_IsAAISRun
namespace AndersonAccel.Safe
/-- Eq. (4.7) with (4.4) (pp. 3180–3181). For every fixed point `y`,
`‖x^{k+1} - y‖² ≤ ‖x^k - y‖² + ε_k` with `ε_k ≥ 0` summable, where `ε_k = 0` at KM steps and
`ε_k = (C D Ū)² (i + 1)^{-(2+2ε)} + 2 C D E Ū (i + 1)^{-(1+ε)}` at the `i`-th accepted AA step. -/
theorem quasi_fejer {n : ℕ} (f : EuclideanSpace ℝ (Fin n) → EuclideanSpace ℝ (Fin n)) (hf : LipschitzWith 1 f)
(θbar τ α D ε : ℝ) (m : ℕ)
(hθ0 : 0 < θbar) (hθ1 : θbar < 1) (hτ0 : 0 < τ) (hτ1 : τ < 1) (hα0 : 0 < α) (hα1 : α < 1)
(hD : 0 < D) (hε : 0 < ε) (hm : 0 < m)
(x xt s y shat ytil : ℕ → EuclideanSpace ℝ (Fin n))
(H : ℕ → (EuclideanSpace ℝ (Fin n) →L[ℝ] EuclideanSpace ℝ (Fin n))) (mem nAA : ℕ → ℕ)
(hrun : IsAAISRun f θbar τ α D ε m x xt s y shat ytil H mem nAA)
(hnosol : ∀ k, f (x k) ≠ x k)
(yf : EuclideanSpace ℝ (Fin n)) (hyf : f yf = yf) :
let C := (3 * ((1 + θbar + τ) / τ) ^ m - 2) ^ (n - 1) / θbar ^ m
let Ubar := ‖residual f (x 0)‖
let Ebd := ‖x 0 - yf‖ + C * D * Ubar * ∑' i : ℕ, ((i : ℝ) + 1) ^ (-(1 + ε))
let epsSeq : ℕ → ℝ := fun k =>
if 1 ≤ k ∧ ‖residual f (x k)‖ ≤ D * Ubar * ((nAA k : ℝ) + 1) ^ (-(1 + ε)) then
(C * D * Ubar) ^ 2 * ((nAA k : ℝ) + 1) ^ (-(2 + 2 * ε)) +
2 * C * D * Ebd * Ubar * ((nAA k : ℝ) + 1) ^ (-(1 + ε))
else 0
(∀ k, 0 ≤ epsSeq k) ∧ Summable epsSeq ∧
∀ k, ‖x (k + 1) - yf‖ ^ 2 ≤ ‖x k - yf‖ ^ 2 + epsSeq k := by sorry
end AndersonAccel.Safe
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.