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

Lemma semax_mono_box {CS} Espec Delta Delta' P Q
(SUB: tycontext_sub Delta Delta') c w
(BI: @box nat ag_nat (@laterM nat ag_nat)
(@semax' CS Espec Delta P c Q) w):
@box nat ag_nat (@laterM nat ag_nat)
(@semax' CS Espec Delta' P c Q) w.