Definition bool_eq_dec : eq_dec bool.Definition coin_flip : Comp bool.Definition Rat_to_nums (r : Rat) : nat * nat :=
  match r with
  | RatIntro numerator (exist _ denominator _) => (numerator, denominator)
  end.(* uniform distribution.  *)

Definition uniform_comp(l : nat): Comp (Bvector l) := Rnd l.Definition uniform_dist (l : nat) := evalDist (uniform_comp l).Definition sampleBV1 := Vector.cons _ false _ (Vector.cons _ true _ (Vector.nil _)).Definition sampleBV2 := Vector.cons _ false _ (Vector.cons _ true _ (Vector.nil _)).#[export] Instance bool_eqb : EqDec bool :=
  {
    eqb := Bool.eqb;
    eqb_leibniz := eqb_true_iff
  }.

(* Specifications: *)
Lemma Bv12Equiv : eqb_vector bool_eqb sampleBV1 sampleBV2 = true.
Lemma Bv12Equiv : eqb_vector bool_eqb sampleBV1 sampleBV2 = true.