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

Lemma believe_monoL {CS'} gx Delta Delta' Gamma
(SUB: forall f, tycontext_sub (func_tycontext' f Delta)
(func_tycontext' f Delta'))
(CSUB: cspecs_sub  CS CS'):
@believe CS Espec Delta gx Gamma |-- @believe CS' Espec Delta' gx Gamma.