diff options
author | 2006-07-13 14:28:31 +0000 | |
---|---|---|
committer | 2006-07-13 14:28:31 +0000 | |
commit | 03b9147d4a2d9467a26b3337d843226f50aa5504 (patch) | |
tree | 1b22245e245d533f9a413b2ae960959833fc0f52 /interp/topconstr.mli | |
parent | 0df132d1c1cd28db10b4ee664230f8043e9006b9 (diff) | |
parent | de0085539583f59dc7c4bf4e272e18711d565466 (diff) |
Merge commit 'upstream/8.0pl3+8.1beta.2' into 8.1
Diffstat (limited to 'interp/topconstr.mli')
-rw-r--r-- | interp/topconstr.mli | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/interp/topconstr.mli b/interp/topconstr.mli index 8305ea54..51853089 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: topconstr.mli 8875 2006-05-29 19:59:11Z msozeau $ i*) +(*i $Id: topconstr.mli 9032 2006-07-07 16:30:34Z herbelin $ i*) (*i*) open Pp @@ -98,7 +98,7 @@ type constr_expr = (constr_expr * explicitation located option) list | CCases of loc * constr_expr option * (constr_expr * (name option * constr_expr option)) list * - (loc * cases_pattern_expr list * constr_expr) list + (loc * cases_pattern_expr list list * constr_expr) list | CLetTuple of loc * name list * (name option * constr_expr option) * constr_expr * constr_expr | CIf of loc * constr_expr * (name option * constr_expr option) @@ -122,6 +122,7 @@ and cofixpoint_expr = and recursion_order_expr = | CStructRec | CWfRec of constr_expr + | CMeasureRec of constr_expr and local_binder = | LocalRawDef of name located * constr_expr @@ -158,6 +159,9 @@ val prod_constr_expr : constr_expr -> local_binder list -> constr_expr (* Includes let binders *) val local_binders_length : local_binder list -> int +(* Excludes let binders *) +val local_assums_length : local_binder list -> int + (* Does not take let binders into account *) val names_of_local_assums : local_binder list -> name located list |