import Spa.Analysis.Forward.Lattices

namespace Spa

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)

class ExprEvaluator where
  eval : Expr → VariableValues L prog → L
  eval_mono : ∀ e, Monotone (eval e)

class ValidExprEvaluator [ExprEvaluator L prog] [I : LatticeInterpretation L] :
    Prop where
  valid : ∀ {vs : VariableValues L prog} {ρ : Env} {e : Expr} {v : Value},
    EvalExpr ρ e v → ⟦ vs ⟧ ρ () → I.interp (ExprEvaluator.eval e vs) v

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 ⟧ ρ₂ ()

end Forward

end Spa