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

Remove 'prog.code s = some bs' argument to eval

Browse Source
This commit is contained in:
Danila Fedorin
2026-06-30 23:21:00 -05:00
parent 6c05e401c1
commit 37d88f070a
5 changed files with 78 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lean/Spa/Analysis/Forward/Evaluation.lean
View File

@@ -7,9 +7,8 @@ namespace Forward
variable (L : Type) [Lattice L] (prog : Program)
class StmtEvaluator where
eval : (s : prog.State) → (bs : BasicStmt) → prog.code s = some bs →
VariableValues L prog → VariableValues L prog
eval_mono : ∀ s bs h, Monotone (eval s bs h)
eval : prog.State → VariableValues L prog → VariableValues L prog
eval_mono : ∀ s, Monotone (eval s)
class ExprEvaluator where
eval : Expr → VariableValues L prog → L
@@ -22,9 +21,8 @@ class ValidExprEvaluator [ExprEvaluator L prog] [I : LatticeInterpretation L] :
class ValidStmtEvaluator [E : StmtEvaluator L prog] [LatticeInterpretation L] :
Prop where
valid : ∀ {s : prog.State} {vs : VariableValues L prog} {ρ₁ ρ₂ : Env}
{bs : BasicStmt} (hcode : prog.code s = some bs),
EvalBasicStmt ρ₁ bs ρ₂ → ⟦ vs ⟧ ρ₁ () → ⟦ E.eval s bs hcode vs ⟧ ρ₂ ()
valid : ∀ {s : prog.State} {vs : VariableValues L prog} {ρ₁ ρ₂ : Env},
EvalBasicStmtOpt ρ₁ (prog.code s) ρ₂ → ⟦ vs ⟧ ρ₁ () → ⟦ E.eval s vs ⟧ ρ₂ ()
end Forward