From 0541f6682acde43ac9e3c96aff0624bdc222b26f Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert <gaetan.gilbert@ens-lyon.fr>
Date: Fri, 1 Sep 2017 15:47:07 +0200
Subject: Remove unused arguments to Ide_slave.concl_next_tac.

Unused since 2285dae8af54043090ce5f8a59aa4162679714c6
---
 ide/idetop.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'ide')

diff --git a/ide/idetop.ml b/ide/idetop.ml
index 7abbf239b..6fb004061 100644
--- a/ide/idetop.ml
+++ b/ide/idetop.ml
@@ -151,7 +151,7 @@ let hyp_next_tac sigma env decl =
     ("inversion clear "^id_s), ("inversion_clear "^id_s^".")
   ]
 
-let concl_next_tac sigma concl =
+let concl_next_tac =
   let expand s = (s,s^".") in
   List.map expand ([
     "intro";
@@ -230,10 +230,9 @@ let hints () =
     | [] -> None
     | g :: _ ->
       let env = Goal.V82.env sigma g in
-      let hint_goal = concl_next_tac sigma g in
       let get_hint_hyp env d accu = hyp_next_tac sigma env d :: accu in
       let hint_hyps = List.rev (Environ.fold_named_context get_hint_hyp env ~init: []) in
-      Some (hint_hyps, hint_goal)
+      Some (hint_hyps, concl_next_tac)
   with Proof_global.NoCurrentProof -> None
 
 
-- 
cgit v1.2.3