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

Lemma believe_internal_mono {CS'} gx Delta Delta' v sig cc A P Q
(SUB: forall f, tycontext_sub (func_tycontext' f Delta)
(func_tycontext' f Delta')) k
(CSUB: cspecs_sub  CS CS')
(BI: @believe_internal CS Espec gx Delta v sig cc A P Q k):
@believe_internal CS' Espec gx Delta' v sig cc A P Q k.