Require Export ZArith.

(* Specifications: *)
Lemma positive_countable: CountableT positive.
Lemma Z_countable: CountableT Z.
Require Export QArith.
Lemma Q_countable: CountableT Q.
Require Export IndexedFamilies.
Lemma countable_union: forall {X A:Type}
(F:IndexedFamily A X), CountableT A ->
(forall a:A, Countable (F a)) ->
Countable (IndexedUnion F).