diff options
| author | pboutill | 2011-02-10 14:11:01 +0000 |
|---|---|---|
| committer | pboutill | 2011-02-10 14:11:01 +0000 |
| commit | 6df4e0fe6bc6076bc95a1a71d28ae049d04ba517 (patch) | |
| tree | 6e749cf9e23637a28185daac6fb2e12a3d0d6ab4 /plugins/funind/recdef.ml | |
| parent | 533c5085e4f9ce392a87841ab67e45c557aa769e (diff) | |
Data structure telling implicits of local variables is a map in the
intern_env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13823 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/recdef.ml')
| -rw-r--r-- | plugins/funind/recdef.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index feff5d67c6..4217b83faf 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1410,7 +1410,7 @@ let recursive_definition is_mes function_name rec_impls type_of_f r rec_arg_num let equation_id = add_suffix function_name "_equation" in let functional_id = add_suffix function_name "_F" in let term_id = add_suffix function_name "_terminate" in - let functional_ref = declare_fun functional_id (IsDefinition Definition) res in + let functional_ref = declare_fun functional_id (IsDefinition Decl_kinds.Definition) res in let env_with_pre_rec_args = push_rel_context(List.map (function (x,t) -> (x,None,t)) pre_rec_args) env in let relation = interp_constr |