From bd8f528f2f031751d35fd27f85dba7cdc8cf6df6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 18 Feb 2005 22:08:01 +0000
Subject: Ajout it_mkNamedProd_wo_LetIn

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6740 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/termops.ml  | 2 ++
 pretyping/termops.mli | 1 +
 2 files changed, 3 insertions(+)

diff --git a/pretyping/termops.ml b/pretyping/termops.ml
index d4e23af28d..263f4de138 100644
--- a/pretyping/termops.ml
+++ b/pretyping/termops.ml
@@ -248,6 +248,8 @@ let it_named_context_quantifier f ~init =
 let it_mkNamedProd_or_LetIn = it_named_context_quantifier mkNamedProd_or_LetIn
 let it_mkNamedLambda_or_LetIn = it_named_context_quantifier mkNamedLambda_or_LetIn
 
+let it_mkNamedProd_wo_LetIn = it_named_context_quantifier mkNamedProd_wo_LetIn
+
 (* *)
 
 (* strips head casts and flattens head applications *)
diff --git a/pretyping/termops.mli b/pretyping/termops.mli
index b290a5e5fc..0c491cb435 100644
--- a/pretyping/termops.mli
+++ b/pretyping/termops.mli
@@ -51,6 +51,7 @@ val it_named_context_quantifier :
   (named_declaration -> 'a -> 'a) -> init:'a -> named_context -> 'a
 val it_mkNamedProd_or_LetIn   : init:types -> named_context -> types
 val it_mkNamedLambda_or_LetIn : init:constr -> named_context -> constr
+val it_mkNamedProd_wo_LetIn   : init:types -> named_context -> types
 
 (**********************************************************************)
 (* Generic iterators on constr                                        *)
-- 
cgit v1.2.3