Canonical Structure prod_ordType := Eval hnf in OrdType (K * T) prod_ordMixin.
End ProdOrd.
Section FinTypeOrd.
Variable T : finType.
Definition ordf : rel T :=
fun x y => index x (enum T) < index y (enum T).

Lemma irr_ordf : irreflexive ordf.
Definition fin_ordMixin := OrdMixin irr_ordf trans_ordf total_ordf.