fact: Definition afalse (b: bexp) : simple_assertion := fun s => beval b s = false.
imports: Coq(ZArith Psatz Bool String List Wellfounded Program.Equality) Coq(FunctionalExtensionality PropExtensionality) CDF(IMP Sequences)