diff options
| author | Maxime Dénès | 2018-03-07 11:09:35 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-07 11:09:35 +0100 |
| commit | 5a2e1b95411376206f23046991e1ae5e8a259f01 (patch) | |
| tree | 91da1aa086f63a0fa5318af282cc77b6d979a0f3 /engine | |
| parent | 719a10381a7738f82ef5d6abc3d19accf99ad4f0 (diff) | |
| parent | 65701510e61651c91d4c256c04499cc3cf38794c (diff) | |
Merge PR #6905: Fix make ml-doc
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evd.mli | 4 | ||||
| -rw-r--r-- | engine/proofview.ml | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/engine/evd.mli b/engine/evd.mli index 55b8e3a832..ed3316c16d 100644 --- a/engine/evd.mli +++ b/engine/evd.mli @@ -320,8 +320,8 @@ exception UniversesDiffer val add_universe_constraints : evar_map -> Universes.Constraints.t -> evar_map (** Add the given universe unification constraints to the evar map. - @raises UniversesDiffer in case a first-order unification fails. - @raises UniverseInconsistency + @raise UniversesDiffer in case a first-order unification fails. + @raise UniverseInconsistency . *) (** {5 Extra data} diff --git a/engine/proofview.ml b/engine/proofview.ml index 25c8e2d802..8a844bbf54 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -127,7 +127,7 @@ let focus_context (left,right) = (** This (internal) function extracts a sublist between two indices, and returns this sublist together with its context: if it returns - [(a,(b,c))] then [a] is the sublist and (rev b)@a@c is the + [(a,(b,c))] then [a] is the sublist and [(rev b) @ a @ c] is the original list. The focused list has lenght [j-i-1] and contains the goals from number [i] to number [j] (both included) the first goal of the list being numbered [1]. [focus_sublist i j l] raises @@ -572,8 +572,8 @@ let tclDISPATCHL tacs = tclDISPATCHGEN CList.rev tacs (** [extend_to_list startxs rx endxs l] builds a list - [startxs@[rx,...,rx]@endxs] of the same length as [l]. Raises - [SizeMismatch] if [startxs@endxs] is already longer than [l]. *) + [startxs @ [rx,...,rx] @ endxs] of the same length as [l]. Raises + [SizeMismatch] if [startxs @ endxs] is already longer than [l]. *) let extend_to_list startxs rx endxs l = (* spiwack: I use [l] essentially as a natural number *) let rec duplicate acc = function |