(* Verifying function bodies and entire programs *)
Definition verify_prog (t:terminationMeasure) (G:pred world) (psi:program K.assert) (G':pred world) :=
forall n r,
agedfrom (K.squash (n,psi),(r,t)) && |>(box K.expandM (closed G))
|-- box K.expandM (closed G').

Lemma verify_complete : forall G G' psi t,
G' |-- G ->
verify_prog t G psi G' ->
forall n r, G' (K.squash (n,psi),(r,t)).