diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-30 12:52:28 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-30 12:52:28 +0000 |
commit | 4e51a72ebc0971db1144c5c7ae955b054f4a8631 (patch) | |
tree | 56ee49b7302261d2fa28ed9fce68372974161cd8 | |
parent | d358d9de3afbc1adf28e6cda48ef081a07cb6e76 (diff) |
comments in mli
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16543 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | kernel/vars.mli | 3 | ||||
-rw-r--r-- | pretyping/evarconv.mli | 2 | ||||
-rw-r--r-- | pretyping/termops.mli | 2 |
3 files changed, 5 insertions, 2 deletions
diff --git a/kernel/vars.mli b/kernel/vars.mli index 55a28516b..a61482d0e 100644 --- a/kernel/vars.mli +++ b/kernel/vars.mli @@ -44,7 +44,7 @@ val lift : int -> constr -> constr (** [substnl [a1;...;an] k c] substitutes in parallel [a1],...,[an] for respectively [Rel(k+1)],...,[Rel(k+n)] in [c]; it relocates - accordingly indexes in [a1],...,[an] *) + accordingly indexes in [a1],...,[an] and [c] *) val substnl : constr list -> int -> constr -> constr val substl : constr list -> constr -> constr val subst1 : constr -> constr -> constr @@ -57,6 +57,7 @@ val subst1_named_decl : constr -> named_declaration -> named_declaration val substl_named_decl : constr list -> named_declaration -> named_declaration val replace_vars : (Id.t * constr) list -> constr -> constr +(** (subst_var str t) substitute (VAR str) by (Rel 1) in t *) val subst_var : Id.t -> constr -> constr (** [subst_vars [id1;...;idn] t] substitute [VAR idj] by [Rel j] in [t] diff --git a/pretyping/evarconv.mli b/pretyping/evarconv.mli index c4961873a..2a78989f1 100644 --- a/pretyping/evarconv.mli +++ b/pretyping/evarconv.mli @@ -15,7 +15,7 @@ open Reductionops open Evd open Locus -(** Unification for type inference. } *) +(** {4 Unification for type inference. } *) exception UnableToUnify of evar_map * Pretype_errors.unification_error diff --git a/pretyping/termops.mli b/pretyping/termops.mli index 552513a27..3fe266727 100644 --- a/pretyping/termops.mli +++ b/pretyping/termops.mli @@ -115,6 +115,8 @@ val occur_var_in_decl : env -> Id.t -> 'a * types option * types -> bool val free_rels : constr -> Int.Set.t + +(** [dependent m t] tests whether [m] is a subterm of [t] *) val dependent : constr -> constr -> bool val dependent_no_evar : constr -> constr -> bool val count_occurrences : constr -> constr -> int |