diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2016-08-13 11:49:31 +0200 |
|---|---|---|
| committer |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-24 17:34:53 +0200 |
| commit | 601112e9d6f4a4095e1ba6ba20ad46b60dd9bd74 (patch) | |
| tree | cad9cf6c6352484feb176d3f972f874de4a0850c /plugins/funind/glob_term_to_relation.ml | |
| parent | 663922262bc9bcc8876f7e12910f6294fc964753 (diff) | |
CLEANUP: removing unnecessary variable binding
Diffstat (limited to 'plugins/funind/glob_term_to_relation.ml')
| -rw-r--r-- | plugins/funind/glob_term_to_relation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/glob_term_to_relation.ml b/plugins/funind/glob_term_to_relation.ml index 5548833d6..94a7e37f4 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 |