Missing QCheck.Shrink.bool

[jmid]

I noticed that QCheck.Shrink is missing a bool combinator.

This should be probably shrink true to false like QCheck2:

qcheck/src/core/QCheck2.ml

Lines 313 to 317 in dd5feb4

	let bool : bool t = fun st ->
	let false_gen = Tree.pure false in
	if RS.bool st
	then Tree.Tree (true, Seq.return false_gen)
	else false_gen

Finally the bool arbitrary could be extended to use it.

[c-cube]

👍 I noticed the same thing last week :)