From 4a1ed5becf04dfa6dde6d7464d913c6f1f6340ff Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 23 Jun 2015 19:17:53 +0200
Subject: Add a synonymous Set Debug Typeclasses for Set Typeclasses Debug, for
 uniformity.

---
 tactics/class_tactics.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index 95b26c2d50..0172d28c5a 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -851,6 +851,15 @@ let set_typeclasses_debug =
       optread  = get_typeclasses_debug;
       optwrite = set_typeclasses_debug; }
 
+let set_typeclasses_debug =
+  declare_bool_option
+    { optsync  = true;
+      optdepr  = false;
+      optname  = "debug output for typeclasses proof search";
+      optkey   = ["Debug";"Typeclasses"];
+      optread  = get_typeclasses_debug;
+      optwrite = set_typeclasses_debug; }
+
 let set_typeclasses_depth =
   declare_int_option
     { optsync  = true;
-- 
cgit v1.2.3