Section AdjointCommutativeTheorems.
Context {Comm: Commutativity L Gamma prodp}.

Lemma funcp_mono: forall x1 y1 x2 y2, |-- x2 --> x1 -> |-- y1 --> y2 -> |-- funcp x1 y1 --> funcp x2 y2.
End AdjointCommutativeTheorems.