(** ** Insertion *)
(** The next lemmas combine simultaneous results about rbt and arbt. A first solution here: statement with [if ... then ... else] *)
Definition ifred s (A B:Prop) := rcase (fun _ _ _ => A) (fun _ => B) s.

Lemma ins_arb x s n : rbt n s -> arbt n (ins x s).
#[global]
Instance add_rb x s : Rbt s -> Rbt (add x s).