Lemma switch_rguard:
forall (Espec : OracleKind)
(R : ret_assert)
(psi : genv)
(F : assert)
(f: function)
(Delta' : tycontext)
(k : cont),
rguard Espec psi Delta' f
(frame_ret_assert R F) k |--
(rguard Espec psi  Delta' f
(frame_ret_assert (switch_ret_assert R) F)
(Kswitch k)).