diff options
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 |