fact: Definition showDiscards (r : Result) := match r with | Success ns nd _ _ => "Success: number of successes " ++ show (ns-1) ++ newline ++ " number of discards " ++ show nd ++ newline | _ => show r end.
imports: QuickChick(QuickChick Generators) Lia mathcomp(ssreflect ssrnat ssrbool eqtype) QuickChick.RedBlack(redblack) List String Relations Wellfounded Lexicographic_Product Program.Wf FunctionalExtensionality