Require Export FiniteTypes Relation_Definitions ZArith QArith IndexedFamilies.
FunctionalExtensionality ProofIrrelevance
DependentTypeChoice ClassicalChoice
Arith ArithRing.
Local Close Scope Q_scope.
Set Asymmetric Patterns.
Inductive CountableT (X : Type) : Prop :=
| intro_nat_injection (f : X -> nat) : injective f -> CountableT X.

Lemma countable_product (X Y:Type) :
CountableT X -> CountableT Y -> CountableT (X * Y).