Definition OWP_HCP_PRG_fun(v : Bvector n) :=
    (b v) :: (f v).Definition B (v : Bvector n)(b : bool) : Comp bool :=
    (A (b :: v)).

(* Specifications: *)
Theorem OWP_HCP_PRG : PRG_Advantage OWP_HCP_PRG_fun A <= (HCP_Advantage f b B).