fact: Definition le (x y: T): Prop := match x, y with | _, infinite => True | infinite, finite _ => False | finite a, finite b => Qle a b end.
imports: CoRN.model.totalorder.QposMinMax Coq.Setoids.Setoid Coq.Arith.Arith CoRN.model.rings.Qring CoRN.model.structures.QposInf CoRN.stdlib_omissions.Q MathClasses.interfaces.abstract_algebra MathClasses.implementations.stdlib_rationals MathClasses.theory.setoids