fact: Record mixin_of (K : AbelianGroup) := Mixin { mult : K -> K -> K ; one : K ; ax1 : forall x y z, mult x (mult y z) = mult (mult x y) z ; ax2 : forall x, mult x one = x ; ax3 : forall x, mult one x = x ; ax4 : forall x y z, mult (plus x y) z = plus (mult x z) (mult y z) ; ax5 : forall x y z, mult x (plus y z) = plus (mult x y) (mult x z) }.
imports: Coq(Reals Psatz ssreflect) Rcomplements Rbar Markov Iter Lub