Global Hint Rewrite @compose_id_left @compose_id_right : core.
Global Hint Rewrite <- @compose_assoc : core.
(** [flip] is involutive. *)

(* Specifications: *)
Lemma flip_flip : forall A B C, @flip A B C ∘ flip = id.
(** [uncurry] and [curry] are each others inverses. *)
Lemma curry_uncurry : forall A B C, @curry A B C ∘ uncurry = id.
Lemma uncurry_curry : forall A B C, @uncurry A B C ∘ curry = id.