https://github.com/math-comp/analysis/blob/9119ba1341358bf17203d9f2ef86e20ea588c83a/theories/reals.v#L318