Section believe_monotonicity.
Context {CS: compspecs} {Espec: OracleKind}.
End believe_monotonicity.

(*In fact, the following specialization suffices in semax_prog*)
Lemma semax_mono' {CS} Espec Delta Delta' P Q
(SUB: forall f, tycontext_sub (func_tycontext' f Delta)
(func_tycontext' f Delta')) c w f
(BI: @box nat ag_nat (@laterM nat ag_nat)
(@semax' CS Espec (func_tycontext' f Delta) P c Q) w):
@box nat ag_nat (@laterM nat ag_nat)
(@semax' CS Espec (func_tycontext' f Delta') P c Q) w.