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

Lemma believe_internal__mono sem gx Delta Delta' v sig cc A P Q
(SUB: forall f, tycontext_sub (func_tycontext' f Delta)
(func_tycontext' f Delta')) k
(BI: believe_internal_ CS sem gx Delta v sig cc A P Q k):
(believe_internal_ CS sem gx Delta' v sig cc A P Q) k.