fact: Fixpoint aval (s : state) (e : aexpr) := match e with | Nval n => n | Vval x => s x | Aplus x y => aval s x + aval s y end.
imports: Hammer(Tactics) Arith ZArith List Lia Hammer(Hints) Reals Lra Hammer(Reflect) Nat Psatz String