fact: Fixpoint vary_stack (s : Stack) (isLow : bool) : G Stack := match s with | a :: s' => if isLow then liftGen2 Cons (vary a) (vary_stack s' isLow) else liftGen2 Cons gen_atom (vary_stack s' isLow) | (x@l) ::: s' => match l with | L => liftGen (RetCons (x@l)) (vary_stack s' true) | H => liftGen2 RetCons (vary (x@l)) (vary_stack s' false) end | Mty => returnGen Mty end.
imports: QuickChick(QuickChick) ZArith List QuickChick.ifcbasic(Machine)