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 *)

(* begin semRBTree *)
Lemma semRBTree : semGen genRBTree <--> [set t | is_redblack t].