#[export] Instance Rle_Transitive : Transitive Rle | 10 := Rle_trans.

(** *** Same theorems with disjunctions instead of sumbools *)
(* TODO: add this to [Init/Specif.v] ? *)
Lemma Private_sumbool_to_or {A B : Prop} : {A} + {B} -> A \/ B.
Definition f_equal_R := (f_equal (A:=R)).