diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-25 00:26:56 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-25 00:26:56 +0000 |
commit | bba4a5f3d6a2a9ae1f95e92ed5a48935a052c418 (patch) | |
tree | db795393caf0be0f42737bdfe31d130da4342231 | |
parent | 914d19f19cd73d1794c0160bd6e7358c13eba630 (diff) |
Comments in mli
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16352 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | kernel/term.mli | 2 | ||||
-rw-r--r-- | pretyping/termops.mli | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/kernel/term.mli b/kernel/term.mli index d180969a5..c5f23ae9c 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -377,7 +377,9 @@ val empty_rel_context : rel_context val add_rel_decl : rel_declaration -> rel_context -> rel_context val lookup_rel : int -> rel_context -> rel_declaration +(** Size of the [rel_context] including LetIns *) val rel_context_length : rel_context -> int +(** Size of the [rel_context] without LetIns *) val rel_context_nhyps : rel_context -> int (** Constructs either [(x:t)c] or [[x=b:t]c] *) diff --git a/pretyping/termops.mli b/pretyping/termops.mli index 3e0f0e0eb..97ac88183 100644 --- a/pretyping/termops.mli +++ b/pretyping/termops.mli @@ -45,7 +45,11 @@ val lookup_rel_id : Id.t -> rel_context -> int * constr option * types (** Associates the contents of an identifier in a [rel_context]. Raise [Not_found] if there is no such identifier. *) -(** builds argument lists matching a block of binders or a context *) +(** Functions that build argument lists matching a block of binders or a context. + [rel_vect n m] builds [|Rel (n+m);...;Rel(n+1)|] + [extended_rel_vect n ctx] extends the [ctx] context of length [m] + with [n] elements. +*) val rel_vect : int -> int -> constr array val rel_list : int -> int -> constr list val extended_rel_list : int -> rel_context -> constr list |