fact: Fixpoint a_subst (a:assert)(s:string)(v:aexpr) {struct a} :assert := match a with a_b e => a_b (b_subst e s v) | a_not a => a_not (a_subst a s v) | pred p l => pred p (l_subst l s v) | a_conj a1 a2 => a_conj(a_subst a1 s v)(a_subst a2 s v) end.
imports: syntax little denot Bool List String ZArith