From ebe95a28cf012aff33eb5ce167be6520e6643cfd Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 5 Sep 2017 00:35:49 +0200
Subject: More static invariants for typeclass_eauto.

---
 src/tac2stdlib.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/tac2stdlib.ml')

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index ed0e6aafd3..b64aac3559 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -665,10 +665,9 @@ let () = define_prim4 "tac_newauto" begin fun bt dbg n lems dbs ->
   Tac2tactics.new_auto dbg n lems dbs
 end
 
-let () = define_prim4 "tac_typeclasses_eauto" begin fun bt b str n dbs ->
-  let b = Value.to_bool b in
+let () = define_prim3 "tac_typeclasses_eauto" begin fun bt str n dbs ->
   let str = to_strategy str in
   let n = Value.to_option Value.to_int n in
-  let dbs = Value.to_list Value.to_ident dbs in
-  Tac2tactics.typeclasses_eauto b str n dbs
+  let dbs = Value.to_option (fun l -> Value.to_list Value.to_ident l) dbs in
+  Tac2tactics.typeclasses_eauto str n dbs
 end
-- 
cgit v1.2.3