End StoreF2B.
Module StoreB2F
(Def: CLIGHT_SEPARATION_HOARE_LOGIC_DEF)
(Conseq: CLIGHT_SEPARATION_HOARE_LOGIC_CONSEQUENCE with Module CSHL_Def := Def)
(StoreB: CLIGHT_SEPARATION_HOARE_LOGIC_STORE_BACKWARD with Module CSHL_Def := Def):
CLIGHT_SEPARATION_HOARE_LOGIC_STORE_FORWARD with Module CSHL_Def := Def.
Module CSHL_Def := Def.
Module ConseqFacts := GenConseqFacts (Def) (Conseq).

Theorem semax_store_forward:
forall {CS: compspecs} {Espec: OracleKind} (Delta: tycontext),
forall e1 e2 sh P,
writable_share sh ->
@semax CS Espec Delta
(|> ( (tc_lvalue Delta e1) &&  (tc_expr Delta (Ecast e2 (typeof e1)))  &&
(`(mapsto_ sh (typeof e1)) (eval_lvalue e1) * P)))
(Sassign e1 e2)
(normal_ret_assert
(`(mapsto sh (typeof e1)) (eval_lvalue e1) (`force_val (`(sem_cast (typeof e2) (typeof e1)) (eval_expr e2))) * P)).