Section SCOTT_APP.
Context {D : Type} {D' : Type} {PROSET : isProset D} {PROSET' : isProset D'} {CPO : isCpo D} {CPO' : isCpo D'}.
Let scottApp1 : (`[D -> D'] * D) -> D' :=
fun '(f, x) => proj1_sig f x.

Lemma scottApp1_isMonotonic
: isMonotonic1 scottApp1.