diff options
| author | herbelin | 2000-01-26 15:01:55 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-26 15:01:55 +0000 |
| commit | daf4ef5bb4138eb2ab9b7bf39d1c6a08984b8c01 (patch) | |
| tree | 08b8482a9e974697f961993d039e7274ea1e1d99 /pretyping/cases.ml | |
| parent | 40183da6b54d8deef242bac074079617d4a657c2 (diff) | |
Abstraction de l'implémentation des signatures de Sign en vue intégration du let-in
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@281 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cases.ml')
| -rw-r--r-- | pretyping/cases.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 3b27a32b38..b44077234d 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -75,16 +75,6 @@ let rec map_append_vect f v = -(* behaves as lam_and_popl but receives an environment instead of a - * dbenvironment - *) -let elam_and_popl n env body = - let ENVIRON(sign,dbenv)=env in - let ndbenv,a,l = lam_and_popl n dbenv body [] - in ENVIRON(sign,ndbenv),a - - - (* behaves as lam_and_popl_named but receives an environment instead of a * dbenvironment *) |