pply comp_spec_eq_refl.

  Qed.

  Fixpoint arrayLookup_f (A B C : Set)(eqd : EqDec B)(ls : list ((A * B) * C))(a : B) :=
    match ls with
      | nil => None
      |

(* Specifications: *)
unfold randomFunc_mem, F_randomFunc. Theorem arrayLookup_f_equiv : forall (A B C : Set) (eqdb : EqDec B) (x1 : list (B * C)) (x2 : list (A * B * C)) (a : B), list_pred (fun c0 d =>
ret b. Theorem arrayLookup_f_equiv : forall (A B C : Set) (eqdb : EqDec B) (x1 : list (B * C)) (x2 : list (A * B * C)) (a : B), list_pred (fun c0 d =>