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

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