fact: Record mixin_of (G : GRing.Ring.type) : Type := Mixin { leb : G -> G -> bool; ltb : G -> G -> bool; _ : sorderb ltb; _ : forall x y, leb x y -> forall z, leb (x+z) (y+z); _ : forall x y, leb x y = (ltb x y) || (x == y); _ : forall x y, (leb x y) || (leb y x); _ : lcompatible ltb } .
imports: mathcomp(ssreflect eqtype ssrbool ssrnat fintype seq ssrfun) mathcomp(bigop choice)