Definition Qlt_Qmax_lower_bound_r p q1 q2 (hyp:Qmax q1 q2 < p) := proj2 (Qlt_Qmax_lower_bound p q1 q2 hyp).

Lemma Qmax_involutive : forall q, Qmax q q = q.
Definition Qmean (x y:Q):Q := (x+y) / (Qone + Qone).