Module ClauseUniverseFinite : CLAUSE_UNIVERSE_FINITE.
Implicit Arguments Finite.
Implicit Arguments Union.
Implicit Arguments Intersection.
Implicit Arguments Im.
Implicit Arguments In.
Implicit Arguments Add.
Implicit Arguments Subtract.
Implicit Arguments Singleton.
Implicit Arguments injective.
Implicit Arguments Included.
Implicit Arguments Power_set.
Ltac inv H := inversion H; clear H; subst.
Definition pures_bound2 n pi2 :=
pures_bound n (fst pi2) /\ pures_bound n (snd pi2).

Lemma Power_set_finite:
forall U (F: Ensemble U), Finite F -> Finite (Power_set F).