(* Lenb: should be moved to tycontext or some other Clight-dependent file- but is in fact dead Definition Dbool {CS: compspecs} (Delta: tycontext) (e: Clight.expr) : assert := fun rho =>  EX b: bool, !! (bool_of_valf (eval_expr e rho) = Some b). *)

Lemma assert_truth:  forall {A} `{ageable A} (P:  Prop), P -> forall (Q: pred A), Q |-- (!! P) && Q.