Definition GenSizedSuchThateq_manual {A} (y_ : A) :=
  let fix aux_arb (size : nat) (y_0 : A) {struct size} : G (option A) :=
      match size with
      | 0   => backtrack [(1, returnGen (Some y_0))]
      | S _ => backtrack [(1, returnGen (Some y_0))]
      end
  in aux_arb^~ y_.

(* Specifications: *)
Theorem GenSizedSuchThateq_proof A (n : A) : GenSizedSuchThateq_manual n = @arbitrarySizeST _ (fun x => eq x n) _.