diff options
| author | filliatr | 2000-03-20 23:52:25 +0000 |
|---|---|---|
| committer | filliatr | 2000-03-20 23:52:25 +0000 |
| commit | 58b584672eeb8d8c004e099cca47f6b846b4e028 (patch) | |
| tree | 838703e37df729075abffb22c5e104ccbd109848 /kernel | |
| parent | b4a8a94ced8798e4e01c152af3ebf379a6be2f27 (diff) | |
Tauto
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@331 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 2 | ||||
| -rw-r--r-- | kernel/environ.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index e203af98e6..b58145fc30 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -197,6 +197,8 @@ let prod_name env (n,a,b) = mkProd (named_hd env a n) a b let lambda_create env (a,b) = mkLambda (named_hd env a Anonymous) a b +let lambda_name env (n,a,b) = mkLambda (named_hd env a n) a b + (* Abstractions. *) let evaluable_abst env = function diff --git a/kernel/environ.mli b/kernel/environ.mli index 31edb0d7fa..f9b17b76de 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -54,6 +54,7 @@ val id_of_name_using_hdchar : env -> constr -> name -> identifier val named_hd : env -> constr -> name -> name val prod_name : env -> name * constr * constr -> constr val lambda_create : env -> constr * constr -> constr +val lambda_name : env -> name * constr * constr -> constr val translucent_abst : env -> constr -> bool val evaluable_abst : env -> constr -> bool |