From f30996a89a31a1a54ab481f752e5febb8a8ac0ed Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 20 Sep 2018 12:59:28 +0200
Subject: Fixing a typo in a comment.

---
 test-suite/success/SchemeEquality.v | 7 +++++++
 vernac/auto_ind_decl.ml             | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 test-suite/success/SchemeEquality.v

diff --git a/test-suite/success/SchemeEquality.v b/test-suite/success/SchemeEquality.v
new file mode 100644
index 0000000000..00e84bff38
--- /dev/null
+++ b/test-suite/success/SchemeEquality.v
@@ -0,0 +1,7 @@
+(* Examples of use of Scheme Equality *)
+
+Module A.
+Definition N := nat.
+Inductive list := nil | cons : N -> list -> list.
+Scheme Equality for list.
+End A.
diff --git a/vernac/auto_ind_decl.ml b/vernac/auto_ind_decl.ml
index ca1d36cb69..a9bf3f42c4 100644
--- a/vernac/auto_ind_decl.ml
+++ b/vernac/auto_ind_decl.ml
@@ -428,7 +428,7 @@ let do_replace_lb mode lb_scheme_key aavoid narg p q =
              Equality.replace p q ; apply app ; Auto.default_auto]
   end
 
-(* used in the bool -> leib side *)
+(* used in the bool -> leb side *)
 let do_replace_bl mode bl_scheme_key (ind,u as indu) aavoid narg lft rgt =
   let open EConstr in
   let avoid = Array.of_list aavoid in
-- 
cgit v1.2.3