diff options
-rw-r--r-- | kernel/mod_subst.ml | 2 | ||||
-rw-r--r-- | kernel/names.ml | 2 | ||||
-rw-r--r-- | lib/cArray.mli | 2 | ||||
-rw-r--r-- | lib/cObj.mli | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index 61dc2bf29..5ba4a9789 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -123,7 +123,7 @@ let add_kn_delta_resolver kn kn' = Deltamap.add_kn kn (Equiv kn') let add_mp_delta_resolver mp1 mp2 = Deltamap.add_mp mp1 mp2 -(** Extending a [substitution *) +(** Extending a [substitution] *) let add_mbid mbid mp resolve s = Umap.add_mbi mbid (mp,resolve) s let add_mp mp1 mp2 resolve s = Umap.add_mp mp1 (mp2,resolve) s diff --git a/kernel/names.ml b/kernel/names.ml index 599e8fb12..6146e1083 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -218,7 +218,7 @@ module KNset = Set.Make(KNord) (i.e. what the user see) and kn2 corresponds to the canonical kernel name i.e. in the environment we have - kn1 \rhd_{\delta}^* kn2 \rhd_{\delta} t *) + {% kn1 \rhd_{\delta}^* kn2 \rhd_{\delta} t %} *) type constant = kernel_name*kernel_name let constant_of_kn kn = (kn,kn) diff --git a/lib/cArray.mli b/lib/cArray.mli index 1738bb618..57eb672c1 100644 --- a/lib/cArray.mli +++ b/lib/cArray.mli @@ -109,7 +109,7 @@ sig (** As [map] but guaranteed to be left-to-right. *) val iter2 : ('a -> 'b -> unit) -> 'a array -> 'b array -> unit - (** Iter on two arrays. Raise [Invalid_argument "Array.iter2" if sizes differ. *) + (** Iter on two arrays. Raise [Invalid_argument "Array.iter2"] if sizes differ. *) val fold_map' : ('a -> 'c -> 'b * 'c) -> 'a array -> 'c -> 'b array * 'c val fold_map : ('a -> 'b -> 'a * 'c) -> 'a -> 'b array -> 'a * 'c array diff --git a/lib/cObj.mli b/lib/cObj.mli index 61c778f1f..3264ca61f 100644 --- a/lib/cObj.mli +++ b/lib/cObj.mli @@ -19,7 +19,7 @@ val size_b : 'a -> int val size_kb : 'a -> int (** Same as [size] in kilobytes. *) -(** {6 Logical size of an OCaml value *) +(** {6 Logical size of an OCaml value.} *) val obj_stats : 'a -> int * int * int (** Return the (logical) value size, the string size, and the maximum depth of |