Section tbled.
Variable n : nat.
Variable tbl : SymEnv.functions RType_typ.
Let RSym_sym := RSym_sym tbl.
Existing Instance RSym_sym.

Lemma semax_seq_reif c1 c2 : forall  (Espec : OracleKind)
(P : environ -> mpred)  (P' : environ -> mpred)
(Q : ret_assert) (Delta : tycontext) ,
@semax Espec Delta P c1 (normal_ret_assert P') ->
@semax Espec (update_tycon Delta c1) P' c2 Q ->
@semax Espec Delta P (Ssequence c1 c2) Q.