induction ls; destruct n1; destruct n2; intuition; simpl in *.
omega.
omega.
eapply IHls.
omega.
Qed.

(* Specifications: *)
Theorem G_hybrid_DistSingle_S_eq :
forall i,
Pr[G_hybrid (S i)] == Pr[DistSingle_G (B1 i) B2 c1].