diff options
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/environ.ml | 8 | ||||
-rw-r--r-- | kernel/environ.mli | 3 |
2 files changed, 7 insertions, 4 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 29078174e..287cff598 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -282,11 +282,11 @@ let name_assumption env (na,c,t) = | None -> (named_hd_type env t na, None, t) | Some body -> (named_hd env body na, c, t) -let prod_assum_name env b d = mkProd_or_LetIn (name_assumption env d) b -let lambda_assum_name env b d = mkLambda_or_LetIn (name_assumption env d) b +let mkProd_or_LetIn_name env b d = mkProd_or_LetIn (name_assumption env d) b +let mkLambda_or_LetIn_name env b d = mkLambda_or_LetIn (name_assumption env d)b -let it_mkProd_or_LetIn_name env = List.fold_left (prod_assum_name env) -let it_mkLambda_or_LetIn_name env = List.fold_left (lambda_assum_name env) +let it_mkProd_or_LetIn_name env = List.fold_left (mkProd_or_LetIn_name env) +let it_mkLambda_or_LetIn_name env = List.fold_left (mkLambda_or_LetIn_name env) let it_mkProd_wo_LetIn = List.fold_left (fun c d -> mkProd_wo_LetIn d c) let it_mkProd_or_LetIn = List.fold_left (fun c d -> mkProd_or_LetIn d c) diff --git a/kernel/environ.mli b/kernel/environ.mli index eb6a45480..bde8823f3 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -128,6 +128,9 @@ val named_hd : env -> constr -> name -> name val lambda_name : env -> name * types * constr -> constr val prod_name : env -> name * types * constr -> constr +val mkLambda_or_LetIn_name : env -> constr -> rel_declaration -> constr +val mkProd_or_LetIn_name : env -> constr -> rel_declaration -> constr + val it_mkLambda_or_LetIn_name : env -> constr -> rel_context -> constr val it_mkProd_or_LetIn_name : env -> constr -> rel_context -> constr |