3 files changed, 4 insertions, 4 deletions

diff --git a/kernel/declareops.ml b/kernel/declareops.ml
index 8943de4049..0a822d6fad 100644
--- a/kernel/declareops.ml
+++ b/kernel/declareops.ml
@@ -147,7 +147,7 @@ let subst_const_body sub cb =
     themselves. But would it really bring substantial gains ? *)
 
 let hcons_rel_decl =
-  RelDecl.map_type Term.hcons_types % RelDecl.map_value Term.hcons_constr % RelDecl.map_name Names.Name.hcons
+  RelDecl.map_name Names.Name.hcons %> RelDecl.map_value Term.hcons_constr %> RelDecl.map_type Term.hcons_types
 
 let hcons_rel_context l = List.smartmap hcons_rel_decl l
 
diff --git a/kernel/names.ml b/kernel/names.ml
index d673c91e86..1313bae7b2 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -89,7 +89,7 @@ struct
     | Anonymous -> true
     | Name _ -> false
 
-  let is_name = not % is_anonymous
+  let is_name = is_anonymous %> not
 
   let compare n1 n2 = match n1, n2 with
     | Anonymous, Anonymous -> 0
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index 8db65e33c9..7a5ac7a39c 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -262,7 +262,7 @@ let record_aux env s_ty s_bo suggested_expr =
     String.concat " "
       (CList.map_filter (fun decl ->
           let id = NamedDecl.get_id decl in
-          if List.exists (Id.equal id % NamedDecl.get_id) in_ty then None
+          if List.exists (NamedDecl.get_id %> Id.equal id) in_ty then None
           else Some (Id.to_string id))
         (keep_hyps env s_bo)) in
   Aux_file.record_in_aux "context_used" (v ^ ";" ^ suggested_expr)
@@ -285,7 +285,7 @@ let build_constant_declaration kn env (def,typ,proj,poly,univs,inline_code,ctx)
   let sort evn l =
     List.filter (fun decl ->
       let id = NamedDecl.get_id decl in
-      List.exists (Names.Id.equal id % NamedDecl.get_id) l)
+      List.exists (NamedDecl.get_id %> Names.Id.equal id) l)
     (named_context env) in
   (* We try to postpone the computation of used section variables *)
   let hyps, def =