From QuickChick.RedBlack Require Import redblack testing.
(* end is_redblackP *)
(* end semColor *)
Instance genRBTree_heightMonotonic p :
SizeMonotonic (genRBTree_height p).
Instance genRBTreeMonotonic : SizeMonotonic genRBTree.
(* end semGenRBTreeHeight *)
(* end semRBTree *)

(* begin insert_preserves_redblack_checker_correct *)
Lemma insert_preserves_redblack_checker_correct:
semChecker (insert_preserves_redblack_checker genRBTree)
<-> insert_preserves_redblack.