fact: Fixpoint aeval (st : state) (a : aexp) : nat := match a with | ANum n => n | AId x => st x | APlus a1 a2 => (aeval st a1) + (aeval st a2) | AMinus a1 a2 => (aeval st a1) - (aeval st a2) | AMult a1 a2 => (aeval st a1) * (aeval st a2) end.
imports: Mtac2(Datatypes List Mtac2 ConstrSelector) Coq.Arith.Arith Coq.Arith.EqNat