diff options
| author | glondu | 2010-11-03 09:54:09 +0000 |
|---|---|---|
| committer | glondu | 2010-11-03 09:54:09 +0000 |
| commit | 4ff5aea548076b6f0fd9ebca3cae0959681b35bb (patch) | |
| tree | 267c621d6324c8f4bd264577c04aae4f799f1d07 /kernel/indtypes.ml | |
| parent | ef0da718a83ebfa1d953ad8fd53506b5657c349a (diff) | |
Remove suspiciously named "implicit" stuff from Term
The lambda_implicit series of functions are used only in Indtypes, so
we move them there. In the checker, they are already there...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13615 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index e4bf055c95..383bdc2ef3 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -354,6 +354,11 @@ if nmr = 0 then 0 else | _ -> k) in find 0 (n-1) (lpar,List.rev hyps) +let lambda_implicit_lift n a = + let implicit_sort = mkType (make_univ (make_dirpath [id_of_string "implicit"], 0)) in + let lambda_implicit a = mkLambda (Anonymous, implicit_sort, a) in + iterate lambda_implicit n (lift n a) + (* This removes global parameters of the inductive types in lc (for nested inductive types only ) *) let abstract_mind_lc env ntyps npars lc = |