diff options
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 3b27a32b3..b44077234 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 *) |