end. Theorem randomFunc_mem_spec : forall (D R : Set)(eqdd : EqDec D)(eqdr : EqDec R)(RndR : Comp R) (x1 x2 : list (D * R)) a, (forall z, arrayLookup _ x1 z = arrayLookup _ x2 z) -> comp_spec (fun y1 y2 => fst y1 = fst y2 /\ (forall x, arrayLookup _ (snd y1) x = arrayLookup _ (snd y2)