From 601112e9d6f4a4095e1ba6ba20ad46b60dd9bd74 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Sat, 13 Aug 2016 11:49:31 +0200
Subject: CLEANUP: removing unnecessary variable binding

---
 plugins/funind/glob_term_to_relation.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/funind/glob_term_to_relation.ml b/plugins/funind/glob_term_to_relation.ml
index 5548833d6b..94a7e37f4a 100644
--- a/plugins/funind/glob_term_to_relation.ml
+++ b/plugins/funind/glob_term_to_relation.ml
@@ -334,7 +334,7 @@ let raw_push_named (na,raw_value,raw_typ) env =
     | Anonymous -> env
     | Name id ->
 	let value = Option.map (fun x-> fst (Pretyping.understand env (Evd.from_env env) x)) raw_value in
-	let typ,ctx = Pretyping.understand env (Evd.from_env env) ~expected_type:Pretyping.IsType raw_typ in
+	let typ,_ = Pretyping.understand env (Evd.from_env env) ~expected_type:Pretyping.IsType raw_typ in
         let open Context.Named.Declaration in
 	Environ.push_named (of_tuple (id,value,typ)) env
 
-- 
cgit v1.2.3