fact: Record mixin_of (K : Ring) := Mixin { abs : K -> R ; ax1 : abs zero = 0 ; ax2 : abs (opp one) = 1 ; ax3 : forall x y : K, abs (plus x y) <= abs x + abs y ; ax4 : forall x y : K, abs (mult x y) <= abs x * abs y ; ax5 : forall x : K, abs x = 0 -> x = zero }.
imports: Coq(Reals Psatz ssreflect) Rcomplements Rbar Markov Iter Lub