(* Verifying function bodies and entire programs *)
Definition verify_prog (psi:program assert) (G:pred prog) :=
forall n, agedfrom (K.squash (n,psi)) && |>G |-- G.

(* Specifications: *)
Lemma verify_complete : forall G psi,
verify_prog psi G ->
forall n, G (K.squash (n,psi)).