aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Gaëtan Gilbert <gaetan.gilbert@ens-lyon.fr>2017-09-01 15:47:07 +0200
committerGravatar Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>2018-07-03 13:39:18 +0200
commit0541f6682acde43ac9e3c96aff0624bdc222b26f (patch)
treef33b5e2f0353ad85b1d461e70c584950b1bbee8a
parent36940da7ce0834ac26244afb67c6bb73cc5ddb6e (diff)
Remove unused arguments to Ide_slave.concl_next_tac.
-rw-r--r--ide/idetop.ml5
1 files changed, 2 insertions, 3 deletions
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