diff options
| author | herbelin | 2010-07-22 21:06:11 +0000 |
|---|---|---|
| committer | herbelin | 2010-07-22 21:06:11 +0000 |
| commit | 1f798216ede7e3813d75732fbebc1f8fbf6622c5 (patch) | |
| tree | 3a521a550e63dca3a2e04e144de16a78f385246d /plugins/funind | |
| parent | 9b4927d7fdbbafa7ed372e152e7106b3055dfb99 (diff) | |
Simplified the way internalization_data (i.e. bindings of bound vars
to their signature of implicit positions and scopes) is computed.
A bit of documentation in constrintern.mli.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13315 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/indfun.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index b2acea2373..ba9bde01c8 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -152,9 +152,8 @@ let build_newrecursive let arityc = Topconstr.prod_constr_expr arityc bl in let arity = Constrintern.interp_type sigma env0 arityc in let impl = Constrintern.compute_internalization_data env0 Constrintern.Recursive arity [] in - (Environ.push_named (recname,None,arity) env, (recname,impl) :: impls)) + (Environ.push_named (recname,None,arity) env, (recname, impl) :: impls)) (env0,[]) lnameargsardef in - let rec_impls = Constrintern.set_internalization_env_params rec_impls [] in let recdef = (* Declare local notations *) let fs = States.freeze() in |