QuickChick上下文转发

Question

我对QuickChick测试框架有疑问。 假设我有一个这样的类型：

Inductive f := f1 (x : Z) (range : x < 20 /\ 0 < x).

还有两个这样的功能：

Definition boundaries' (t : bool) :=
  if t 
  then (1, 10)%Z 
  else (10, 19)%Z .

Program Definition binary_gen (t : G bool) : G (f) :=
  bindGen ((fmap boundaries') t) (fun '(m_min, m_max) =>
    bindGen (choose (m_min, m_max)) (fun (x : Z) =>
        returnGen (f1 x _))).

当我想证明缺少的证明对象时，我具有以下上下文：

t : G bool
z, z0, x : Z
============================
x < 20 /\ 0 < x

问题在于，在使用bindGen时，我失去了之前的内容，因此我需要证明当前的目标。

问题是，如何使用bindGen转发上下文，或者是否有解决此问题的解决方法？

Answer 1

There is a bindGen' combinator：

Definition bindGen' : forall {A B : Type} (g : G A), 
                       (forall (a : A), (a \in semGen g) -> G B) -> G B.