DanilaFe/agda-spa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migrate most of the codebase (sans Reaching.lean / LICM left) to projections

Browse Source
This commit is contained in:
Danila Fedorin
2026-07-01 22:56:29 -05:00
parent 10b8fa97ca
commit 0e6976f9b4
7 changed files with 139 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lean/Spa/Analysis/Constant.lean
View File

@@ -134,14 +134,14 @@ instance eval_valid : ValidExprEvaluator ConstLattice prog := by
exact minus_valid h₁ h₂
theorem analyze_correct {ρ : Env} (hrun : EvalStmt [] prog.rootStmt ρ) :
⟦ variablesAt prog.finalState (result ConstLattice prog) ⟧ ρ () :=
⟦ variablesAt prog.finalState (result ConstLattice prog) ⟧ ρ :=
Forward.analyze_correct ConstLattice prog hrun
theorem analyze_correct_at {ρf : Env} (hrun : EvalStmt [] prog.rootStmt ρf)
{s : prog.State} {ρin ρout : Env} {stin stout : PUnit}
(hr : Reaches (L := ConstLattice) (prog.trace hrun) PUnit.unit s ρin ρout stin stout) :
⟦ joinForKey s (result ConstLattice prog) ⟧ ρin stin
∧ ⟦ variablesAt s (result ConstLattice prog) ⟧ ρout stout :=
{s : prog.State} {ρin ρout : Env}
(hr : Reaches (prog.trace hrun) s ρin ρout) :
⟦ joinForKey s (result ConstLattice prog) ⟧ ρin
∧ ⟦ variablesAt s (result ConstLattice prog) ⟧ ρout :=
Forward.analyze_correct_at ConstLattice prog hrun hr
end ConstAnalysis