diff options
-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 |