Theorem xpen 9195

Description: Equinumerosity law for Cartesian product. Proposition 4.22(b) of [Mendelson] p. 254. (Contributed by NM, 24-Jul-2004.) (Proof shortened by Mario Carneiro, 26-Apr-2015.)

Assertion

Ref	Expression
xpen	⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≈ (𝐵 × 𝐷))

Proof of Theorem xpen

Step	Hyp	Ref	Expression
1		relen 9014	. . . . 5 ⊢ Rel ≈
2	1	brrelex1i 5712	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐶 ∈ V)
3		endom 9042	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐴 ≼ 𝐵)
4		xpdom1g 9129	. . . 4 ⊢ ((𝐶 ∈ V ∧ 𝐴 ≼ 𝐵) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐶))
5	2, 3, 4	syl2anr 609	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐶))
6	1	brrelex2i 5713	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ∈ V)
7		endom 9042	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐶 ≼ 𝐷)
8		xpdom2g 9128	. . . 4 ⊢ ((𝐵 ∈ V ∧ 𝐶 ≼ 𝐷) → (𝐵 × 𝐶) ≼ (𝐵 × 𝐷))
9	6, 7, 8	syl2an 608	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐶) ≼ (𝐵 × 𝐷))
10		domtr 9070	. . 3 ⊢ (((𝐴 × 𝐶) ≼ (𝐵 × 𝐶) ∧ (𝐵 × 𝐶) ≼ (𝐵 × 𝐷)) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐷))
11	5, 9, 10	syl2anc 596	. 2 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐷))
12	1	brrelex2i 5713	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ∈ V)
13		ensym 9066	. . . . 5 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ≈ 𝐴)
14		endom 9042	. . . . 5 ⊢ (𝐵 ≈ 𝐴 → 𝐵 ≼ 𝐴)
15	13, 14	syl 18	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ≼ 𝐴)
16		xpdom1g 9129	. . . 4 ⊢ ((𝐷 ∈ V ∧ 𝐵 ≼ 𝐴) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐷))
17	12, 15, 16	syl2anr 609	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐷))
18	1	brrelex1i 5712	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐴 ∈ V)
19		ensym 9066	. . . . 5 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ≈ 𝐶)
20		endom 9042	. . . . 5 ⊢ (𝐷 ≈ 𝐶 → 𝐷 ≼ 𝐶)
21	19, 20	syl 18	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ≼ 𝐶)
22		xpdom2g 9128	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐷 ≼ 𝐶) → (𝐴 × 𝐷) ≼ (𝐴 × 𝐶))
23	18, 21, 22	syl2an 608	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐷) ≼ (𝐴 × 𝐶))
24		domtr 9070	. . 3 ⊢ (((𝐵 × 𝐷) ≼ (𝐴 × 𝐷) ∧ (𝐴 × 𝐷) ≼ (𝐴 × 𝐶)) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐶))
25	17, 23, 24	syl2anc 596	. 2 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐶))
26		sbth 9152	. 2 ⊢ (((𝐴 × 𝐶) ≼ (𝐵 × 𝐷) ∧ (𝐵 × 𝐷) ≼ (𝐴 × 𝐶)) → (𝐴 × 𝐶) ≈ (𝐵 × 𝐷))
27	11, 25, 26	syl2anc 596	1 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≈ (𝐵 × 𝐷))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∈ wcel 2147  Vcvv 3454   class class class wbr 5106   × cxp 5654   ≈ cen 9006   ≼ cdom 9007

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7781

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-br 5107  df-opab 5172  df-mpt 5191  df-id 5551  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-iota 6518  df-fun 6566  df-fn 6567  df-f 6568  df-f1 6569  df-fo 6570  df-f1o 6571  df-fv 6572  df-1st 8033  df-2nd 8034  df-er 8753  df-en 9010  df-dom 9011

This theorem is used by:  map2xp  9202  unxpdom2  9287  sucxpdom  9288  xpnum  10067  infxpenlem  10129  infxpidm2  10133  xpdjuen  10295  mapdjuen  10296  pwdjuen  10297  djuxpdom  10301  ackbij1lem5  10338  canthp1lem1  10774  xpnnen  16420  qnnen  16422  rexpen  16437  met2ndci  24885  re2ndc  25164  dyadmbl  25965  opnmblALT  25968  mbfimaopnlem  26020  mblfinlem1  38836