(* Picks A_i for i\in I *)
 
(** - so, given an index set $I$ and an indexing function $f$ mapping 
 this set to the part_set (powerset) of X,  (ie. $f(i) = A_i\ (\in (part\_set A))$,) 
 then (indexed_intersection f) will be $\bigcap_{i\in I} A_i$. *)

Definition indexed_intersection : part_set A.

Lemma empty_indexed_intersection_gives_full_set : forall (A : Setoid) (f : MAP (empty A) (part_set A)), Equal (indexed_intersection f) (full A).