Metamath Proof Explorer


Theorem xpfir

Description: The components of a nonempty finite Cartesian product are finite. (Contributed by Paul Chapman, 11-Apr-2009) (Proof shortened by Mario Carneiro, 29-Apr-2015)

Ref Expression
Assertion xpfir ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ∈ Fin ∧ B ∈ Fin

Proof

Step Hyp Ref Expression
1 xpexr2 ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ∈ V ∧ B ∈ V
2 1 simpld ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ∈ V
3 1 simprd ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B ∈ V
4 xpnz ⊢ A ≠ ∅ ∧ B ≠ ∅ ↔ A × B ≠ ∅
5 4 bilanri ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ≠ ∅ ∧ B ≠ ∅
6 5 simprd ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B ≠ ∅
7 xpdom3 ⊢ A ∈ V ∧ B ∈ V ∧ B ≠ ∅ → A ≼ A × B
8 2 3 6 7 syl3anc ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ≼ A × B
9 domfi ⊢ A × B ∈ Fin ∧ A ≼ A × B → A ∈ Fin
10 8 9 syldan ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ∈ Fin
11 5 simpld ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ≠ ∅
12 xpdom3 ⊢ B ∈ V ∧ A ∈ V ∧ A ≠ ∅ → B ≼ B × A
13 3 2 11 12 syl3anc ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B ≼ B × A
14 xpcomeng ⊢ B ∈ V ∧ A ∈ V → B × A ≈ A × B
15 3 2 14 syl2anc ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B × A ≈ A × B
16 domentr ⊢ B ≼ B × A ∧ B × A ≈ A × B → B ≼ A × B
17 13 15 16 syl2anc ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B ≼ A × B
18 domfi ⊢ A × B ∈ Fin ∧ B ≼ A × B → B ∈ Fin
19 17 18 syldan ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → B ∈ Fin
20 10 19 jca ⊢ A × B ∈ Fin ∧ A × B ≠ ∅ → A ∈ Fin ∧ B ∈ Fin