Set Warnings "-extraction-opaque-accessed,-extraction".
Set Warnings "-notation-overridden,-parsing".
(* TODO rename this file to util.v -- not only for nats *)

(* Specifications: *)
Lemma max_lub_l_ssr n m p:
max n m < p -> n < p.
Lemma max_lub_r_ssr n m p:
max n m < p -> m < p.
Lemma max_lub_ssr n m p :
n < p -> m < p -> max n m < p.