Metamath Proof Explorer


Theorem difsnen

Description: All decrements of a set are equinumerous. (Contributed by Stefan O'Rear, 19-Feb-2015)

Ref Expression
Assertion difsnen XVAXBXXAXB

Proof

Step Hyp Ref Expression
1 difexg XVXAV
2 enrefg XAVXAXA
3 1 2 syl XVXAXA
4 3 3ad2ant1 XVAXBXXAXA
5 sneq A=BA=B
6 5 difeq2d A=BXA=XB
7 6 breq2d A=BXAXAXAXB
8 4 7 syl5ibcom XVAXBXA=BXAXB
9 8 imp XVAXBXA=BXAXB
10 simpl1 XVAXBXABXV
11 difexg XAVXABV
12 enrefg XABVXABXAB
13 10 1 11 12 4syl XVAXBXABXABXAB
14 dif32 XAB=XBA
15 13 14 breqtrdi XVAXBXABXABXBA
16 simpl3 XVAXBXABBX
17 simpl2 XVAXBXABAX
18 en2sn BXAXBA
19 16 17 18 syl2anc XVAXBXABBA
20 disjdifr XABB=
21 20 a1i XVAXBXABXABB=
22 disjdifr XBAA=
23 22 a1i XVAXBXABXBAA=
24 unen XABXBABAXABB=XBAA=XABBXBAA
25 15 19 21 23 24 syl22anc XVAXBXABXABBXBAA
26 simpr XVAXBXABAB
27 26 necomd XVAXBXABBA
28 eldifsn BXABXBA
29 16 27 28 sylanbrc XVAXBXABBXA
30 difsnid BXAXABB=XA
31 29 30 syl XVAXBXABXABB=XA
32 eldifsn AXBAXAB
33 17 26 32 sylanbrc XVAXBXABAXB
34 difsnid AXBXBAA=XB
35 33 34 syl XVAXBXABXBAA=XB
36 25 31 35 3brtr3d XVAXBXABXAXB
37 9 36 pm2.61dane XVAXBXXAXB