Module Type PRACTICAL_CLIGHT_SEPARATION_HOARE_LOGIC.
Declare Module CSHL_MinimumLogic: MINIMUM_CLIGHT_SEPARATION_HOARE_LOGIC.
(*MOVED TO MINIMUM Axiom semax_Delta_subsumption: forall {CS: compspecs} {Espec: OracleKind}, forall Delta Delta' P c R, tycontext_sub Delta Delta' -> @semax CS Espec Delta P c R -> @semax CS Espec Delta' P c R.*)

Axiom semax_loop_nocontinue1:
forall CS Espec Delta Pre s1 s2 s3 Post,
nocontinue s1 = true ->
nocontinue s2 = true ->
nocontinue s3 = true ->
@semax CS Espec Delta Pre (Sloop (Ssequence s1 (Ssequence s2 s3)) Sskip) Post ->
@semax CS Espec Delta Pre (Sloop (Ssequence s1 s2) s3) Post.