diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-18 21:26:19 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-18 21:26:19 +0000 |
| commit | 55875fe68fa0e5a33183be08a919c56ef4d99537 (patch) | |
| tree | 736b330c1cede6eba59c9cf719aaa412c318446d /kernel | |
| parent | 65225510bd7a1e38d8c9778cf1b0b26363d3757d (diff) | |
Export de it_mkProd_or_LetIn_name et it_mkLambda_or_LetIn_name
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1141 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |