From aab8634bcda7829004c369644e9d4600692913f0 Mon Sep 17 00:00:00 2001
From: Yishuai Li
Date: Thu, 24 Sep 2020 03:41:37 -0400
Subject: Ascii: add leb and ltb

---
 doc/changelog/10-standard-library/13080-ascii.rst | 4 ++++
 theories/Strings/Ascii.v                          | 8 ++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 doc/changelog/10-standard-library/13080-ascii.rst

diff --git a/doc/changelog/10-standard-library/13080-ascii.rst b/doc/changelog/10-standard-library/13080-ascii.rst
new file mode 100644
index 0000000000..167002283e
--- /dev/null
+++ b/doc/changelog/10-standard-library/13080-ascii.rst
@@ -0,0 +1,4 @@
+- **Added:**
+  ``leb`` and ``ltb`` functions for ``ascii``
+  (`#13080 <https://github.com/coq/coq/pull/13080>`_,
+  by Yishuai Li).
diff --git a/theories/Strings/Ascii.v b/theories/Strings/Ascii.v
index 06b02ab211..37d30a282c 100644
--- a/theories/Strings/Ascii.v
+++ b/theories/Strings/Ascii.v
@@ -173,6 +173,14 @@ Proof.
   apply N_ascii_bounded.
 Qed.
 
+Definition ltb (a b : ascii) : bool :=
+  (N_of_ascii a <?  N_of_ascii b)%N.
+
+Definition leb (a b : ascii) : bool :=
+  (N_of_ascii a <=? N_of_ascii b)%N.
+
+Infix "<?"  := ltb : char_scope.
+Infix "<=?" := leb : char_scope.
 
 (** * Concrete syntax *)
 
-- 
cgit v1.2.3