fact: Fixpoint gen_base (Γ : env) (t : type) : G term := match t with | N => vars Γ t (bindGen (choose (0,10)) (fun n => returnGen (Const n))) | Arrow t1 t2 => bindGen (gen_base (t1::Γ) t2) (fun e => returnGen (Abs t1 e)) end.
imports: mathcomp(ssreflect ssrbool eqtype) Arith List String Lia QuickChick(QuickChick)