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

Rename StateInterp to match the style of the rest of the codebase

Browse Source
This commit is contained in:
Danila Fedorin
2026-06-29 10:00:01 -05:00
parent 490c472d22
commit 59afbdaf71
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lean/Spa/Analysis/Forward/Lattices.lean
View File

@@ -64,7 +64,7 @@ lemma variablesAt_joinAll (s : prog.State) (sv : StateVariables L prog) :
variablesAt s (joinAll sv) = joinForKey s sv :=
joinAll_mem_eq (variablesAt_mem s (joinAll sv))
class StateInterp (L : Type) [Lattice L] (prog : Program) where
class StateInterpretation (L : Type) [Lattice L] (prog : Program) where
St : Env → Type
init : St []
interp : VariableValues L prog → (ρ : Env) → St ρ → Prop
@@ -73,11 +73,11 @@ class StateInterp (L : Type) [Lattice L] (prog : Program) where
interp_inf : ∀ {vs₁ vs₂ : VariableValues L prog} {ρ : Env} {st : St ρ},
interp vs₁ ρ st ∧ interp vs₂ ρ st → interp (vs₁ ⊓ vs₂) ρ st
instance [S : StateInterp L prog] :
instance [S : StateInterpretation L prog] :
Interp (VariableValues L prog) ((ρ : Env) → S.St ρ → Prop) :=
⟨S.interp⟩
lemma interp_foldr [S : StateInterp L prog]
lemma interp_foldr [S : StateInterpretation L prog]
{vs : VariableValues L prog} {vss : List (VariableValues L prog)}
{ρ : Env} {st : S.St ρ} (hvs : ⟦ vs ⟧ ρ st) (hmem : vs ∈ vss) :
⟦ vss.foldr (· ⊔ ·) (botV L prog) ⟧ ρ st := by
@@ -90,7 +90,7 @@ lemma interp_foldr [S : StateInterp L prog]
variable [I : LatticeInterpretation L]
instance : StateInterp L prog where
instance : StateInterpretation L prog where
St := fun _ => PUnit
init := PUnit.unit
interp vs ρ _ := ∀ (k : String) (l : L), (k, l) ∈ vs →