intuition.
unfold randomFunc_mem in *.
destruct (arrayLookup _ c0 (a, b0)).
repeat simp_in_support.
simpl in *.
remember (split c0) as z.
destruct z.
simpl in *.
eapply funcCollision_true_cons; eauto.
repeat simp_in_support.
simpl in *.
remember (split c0) as z.
destruct z.
simpl in *.
eapply funcCollision_true_cons; eauto.
Qed.

(* Specifications: *)
Theorem F_randomFunc_wf :
forall x y z,
well_formed_comp (F_randomFunc x y z).
Theorem F_randomFunc_wf :
forall x y z,
well_formed_comp (F_randomFunc x y z).