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

(* begin semGenRBTreeHeight *)
Lemma semGenRBTreeHeight h c :
semGen (genRBTree_height (h, c)) <--> [set t | is_redblack' t c h ].