English
Equality and successor-related simplification: equality between successors reduces to equality of the predecessors.
Русский
Упрощение: равенство между последователями сводится к равенству предшественников.
LaTeX
$$$$\\operatorname{Eq}(a.succ, b.succ) = \\operatorname{Eq}(a, b). $$$$
Lean4
/-- The set of accessible `Λ'.write` machine states. -/
noncomputable def writes : Stmt Γ Λ σ → Finset (Λ' Γ Λ σ)
| Stmt.move _ q => writes q
| Stmt.write _ q => (Finset.univ.image fun a ↦ Λ'.write a q) ∪ writes q
| Stmt.load _ q => writes q
| Stmt.branch _ q₁ q₂ => writes q₁ ∪ writes q₂
| Stmt.goto _ => ∅
| Stmt.halt => ∅