End NumDomainMonotonyTheoryForReals.
Section FinGroup.
Variables (R : numDomainType) (gT : finGroupType).
Implicit Types G : {group gT}.

(* Specifications: *)
Lemma natrG_gt0 G : #|G|%:R > 0 :> R.
Lemma normf_div : {morph (@norm F) : x y / x / y}.
Lemma midf_lt x y : x < y -> (x < mid x y) * (mid x y  < y).
Definition midf_lte := (midf_le, midf_lt).