fact: Definition lt (x y : T) : Prop := match x, y with | finite a, finite b => Qlt a b | finite _, infinite => True | infinite, _ => False 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