diff --git a/src/core/CCSeq.mli b/src/core/CCSeq.mli
index 210a60e6..b08b5e4a 100644
--- a/src/core/CCSeq.mli
+++ b/src/core/CCSeq.mli
@@ -39,14 +39,14 @@ val repeat : ?n:int -> 'a -> 'a t
     then [x] is repeated forever. *)
 
 val forever : (unit -> 'a) -> 'a t
-(** [forever f] corresponds to the infinit sequence containing all the [f ()].
+(** [forever f] corresponds to the infinite sequence containing all the [f ()].
     @since 3.10 *)
 
 val cycle : 'a t -> 'a t
 (** Cycle through the iterator infinitely. The iterator shouldn't be empty. *)
 
 val iterate : ('a -> 'a) -> 'a -> 'a t
-(** [iterate f a] corresponds to the infinit sequence containing [a], [f a], [f (f a)],
+(** [iterate f a] corresponds to the infinite sequence containing [a], [f a], [f (f a)],
     ...]
     @since 3.10 *)
 
@@ -173,7 +173,7 @@ val scan : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a t
 
 val flat_map : ('a -> 'b t) -> 'a t -> 'b t
 val concat_map : ('a -> 'b t) -> 'a t -> 'b t
-(** Aliass of {!flat_map}
+(** Alias of {!flat_map}
     @since 3.10 *)
 
 val filter_map : ('a -> 'b option) -> 'a t -> 'b t
@@ -195,7 +195,7 @@ val ( --^ ) : int -> int -> int t
 (** {2 Operations on two Collections} *)
 
 val fold2 : ('acc -> 'a -> 'b -> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
-(** Fold on two collections at once. Stop at soon as one of them ends. *)
+(** Fold on two collections at once. Stop as soon as one of them ends. *)
 
 val fold_left2 : ('acc -> 'a -> 'b -> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
 (** Alias for {!fold2}.