(* end semGenRBTreeHeight *)

(* Specifications: *)
(* begin semRBTree *)
Lemma semRBTree : semGen genRBTree <--> [set t | is_redblack t].
(* end semRBTree *)
(* begin insert_preserves_redblack_checker_correct *)
Lemma insert_preserves_redblack_checker_correct:
semChecker (insert_preserves_redblack_checker genRBTree)
<-> insert_preserves_redblack.