(** *** [rel_top] *)
(** We used to only have an [RIntro] instance for [⊤%rel], which is enough for proving all goals of the form [⊤%rel x y] but not enough to derive properties of relations in which [⊤%rel] is a component. *)

Lemma rel_top_component_refl:
forall {A} (x: list A),
list_rel ⊤ x x.