Theorem xpen 9138

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 8957	. . . . 5 ⊢ Rel ≈
2	1	brrelex1i 5711	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐶 ∈ V)
3		endom 8985	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐴 ≼ 𝐵)
4		xpdom1g 9072	. . . 4 ⊢ ((𝐶 ∈ V ∧ 𝐴 ≼ 𝐵) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐶))
5	2, 3, 4	syl2anr 609	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐶))
6	1	brrelex2i 5712	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ∈ V)
7		endom 8985	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐶 ≼ 𝐷)
8		xpdom2g 9071	. . . 4 ⊢ ((𝐵 ∈ V ∧ 𝐶 ≼ 𝐷) → (𝐵 × 𝐶) ≼ (𝐵 × 𝐷))
9	6, 7, 8	syl2an 608	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐶) ≼ (𝐵 × 𝐷))
10		domtr 9013	. . 3 ⊢ (((𝐴 × 𝐶) ≼ (𝐵 × 𝐶) ∧ (𝐵 × 𝐶) ≼ (𝐵 × 𝐷)) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐷))
11	5, 9, 10	syl2anc 596	. 2 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≼ (𝐵 × 𝐷))
12	1	brrelex2i 5712	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ∈ V)
13		ensym 9009	. . . . 5 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ≈ 𝐴)
14		endom 8985	. . . . 5 ⊢ (𝐵 ≈ 𝐴 → 𝐵 ≼ 𝐴)
15	13, 14	syl 18	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐵 ≼ 𝐴)
16		xpdom1g 9072	. . . 4 ⊢ ((𝐷 ∈ V ∧ 𝐵 ≼ 𝐴) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐷))
17	12, 15, 16	syl2anr 609	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐷))
18	1	brrelex1i 5711	. . . 4 ⊢ (𝐴 ≈ 𝐵 → 𝐴 ∈ V)
19		ensym 9009	. . . . 5 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ≈ 𝐶)
20		endom 8985	. . . . 5 ⊢ (𝐷 ≈ 𝐶 → 𝐷 ≼ 𝐶)
21	19, 20	syl 18	. . . 4 ⊢ (𝐶 ≈ 𝐷 → 𝐷 ≼ 𝐶)
22		xpdom2g 9071	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐷 ≼ 𝐶) → (𝐴 × 𝐷) ≼ (𝐴 × 𝐶))
23	18, 21, 22	syl2an 608	. . 3 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐷) ≼ (𝐴 × 𝐶))
24		domtr 9013	. . 3 ⊢ (((𝐵 × 𝐷) ≼ (𝐴 × 𝐷) ∧ (𝐴 × 𝐷) ≼ (𝐴 × 𝐶)) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐶))
25	17, 23, 24	syl2anc 596	. 2 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐵 × 𝐷) ≼ (𝐴 × 𝐶))
26		sbth 9095	. 2 ⊢ (((𝐴 × 𝐶) ≼ (𝐵 × 𝐷) ∧ (𝐵 × 𝐷) ≼ (𝐴 × 𝐶)) → (𝐴 × 𝐶) ≈ (𝐵 × 𝐷))
27	11, 25, 26	syl2anc 596	1 ⊢ ((𝐴 ≈ 𝐵 ∧ 𝐶 ≈ 𝐷) → (𝐴 × 𝐶) ≈ (𝐵 × 𝐷))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∈ wcel 2145  Vcvv 3450   class class class wbr 5103   × cxp 5653   ≈ cen 8949   ≼ cdom 8950

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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7736

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 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-1st 7986  df-2nd 7987  df-er 8696  df-en 8953  df-dom 8954

This theorem is used by:  map2xp  9145  unxpdom2  9230  sucxpdom  9231  xpnum  9956  infxpenlem  10016  infxpidm2  10020  xpdjuen  10182  mapdjuen  10183  pwdjuen  10184  djuxpdom  10188  ackbij1lem5  10225  canthp1lem1  10661  xpnnen  16299  qnnen  16301  rexpen  16316  met2ndci  24748  re2ndc  25027  dyadmbl  25828  opnmblALT  25831  mbfimaopnlem  25883  mblfinlem1  38406