fact: Record T := make { is_bound: QnonNeg -> Prop ; bound: QnonNeg ; closed_le: forall q q', `q <= `q' -> is_bound q -> is_bound q' ; bound_is_bound: is_bound bound }.
imports: Coq.QArith.Qabs CoRN.model.ordfields.Qordfield CoRN.model.structures.Qpossec Coq.QArith.Qminmax Coq.setoid_ring.Ring Coq.Program.Program