Metamath Proof Explorer


Theorem domunsncan

Description: A singleton cancellation law for dominance. (Contributed by Stefan O'Rear, 19-Feb-2015) (Revised by Stefan O'Rear, 5-May-2015)

Ref Expression
Hypotheses domunsncan.a A V
domunsncan.b B V
Assertion domunsncan ¬ A X ¬ B Y A X B Y X Y

Proof

Step Hyp Ref Expression
1 domunsncan.a A V
2 domunsncan.b B V
3 ssun2 Y B Y
4 reldom Rel
5 4 brrelex2i A X B Y B Y V
6 5 adantl ¬ A X ¬ B Y A X B Y B Y V
7 ssexg Y B Y B Y V Y V
8 3 6 7 sylancr ¬ A X ¬ B Y A X B Y Y V
9 brdomi A X B Y f f : A X 1-1 B Y
10 vex f V
11 10 resex f A X A V
12 simprr ¬ A X ¬ B Y Y V f : A X 1-1 B Y f : A X 1-1 B Y
13 difss A X A A X
14 f1ores f : A X 1-1 B Y A X A A X f A X A : A X A 1-1 onto f A X A
15 12 13 14 sylancl ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X A : A X A 1-1 onto f A X A
16 f1oen3g f A X A V f A X A : A X A 1-1 onto f A X A A X A f A X A
17 11 15 16 sylancr ¬ A X ¬ B Y Y V f : A X 1-1 B Y A X A f A X A
18 df-f1 f : A X 1-1 B Y f : A X B Y Fun f -1
19 imadif Fun f -1 f A X A = f A X f A
20 18 19 simplbiim f : A X 1-1 B Y f A X A = f A X f A
21 20 ad2antll ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X A = f A X f A
22 snex B V
23 simprl ¬ A X ¬ B Y Y V f : A X 1-1 B Y Y V
24 unexg B V Y V B Y V
25 22 23 24 sylancr ¬ A X ¬ B Y Y V f : A X 1-1 B Y B Y V
26 difexg B Y V B Y f A V
27 25 26 syl ¬ A X ¬ B Y Y V f : A X 1-1 B Y B Y f A V
28 f1f f : A X 1-1 B Y f : A X B Y
29 fimass f : A X B Y f A X B Y
30 28 29 syl f : A X 1-1 B Y f A X B Y
31 30 ad2antll ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X B Y
32 31 ssdifd ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X f A B Y f A
33 f1fn f : A X 1-1 B Y f Fn A X
34 33 ad2antll ¬ A X ¬ B Y Y V f : A X 1-1 B Y f Fn A X
35 1 snid A A
36 elun1 A A A A X
37 35 36 ax-mp A A X
38 fnsnfv f Fn A X A A X f A = f A
39 34 37 38 sylancl ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A = f A
40 39 difeq2d ¬ A X ¬ B Y Y V f : A X 1-1 B Y B Y f A = B Y f A
41 32 40 sseqtrrd ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X f A B Y f A
42 ssdomg B Y f A V f A X f A B Y f A f A X f A B Y f A
43 27 41 42 sylc ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X f A B Y f A
44 ffvelrn f : A X B Y A A X f A B Y
45 28 37 44 sylancl f : A X 1-1 B Y f A B Y
46 45 ad2antll ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A B Y
47 2 snid B B
48 elun1 B B B B Y
49 47 48 mp1i ¬ A X ¬ B Y Y V f : A X 1-1 B Y B B Y
50 difsnen B Y V f A B Y B B Y B Y f A B Y B
51 25 46 49 50 syl3anc ¬ A X ¬ B Y Y V f : A X 1-1 B Y B Y f A B Y B
52 domentr f A X f A B Y f A B Y f A B Y B f A X f A B Y B
53 43 51 52 syl2anc ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X f A B Y B
54 21 53 eqbrtrd ¬ A X ¬ B Y Y V f : A X 1-1 B Y f A X A B Y B
55 endomtr A X A f A X A f A X A B Y B A X A B Y B
56 17 54 55 syl2anc ¬ A X ¬ B Y Y V f : A X 1-1 B Y A X A B Y B
57 uncom A X = X A
58 57 difeq1i A X A = X A A
59 difun2 X A A = X A
60 58 59 eqtri A X A = X A
61 difsn ¬ A X X A = X
62 60 61 syl5eq ¬ A X A X A = X
63 62 ad2antrr ¬ A X ¬ B Y Y V f : A X 1-1 B Y A X A = X
64 uncom B Y = Y B
65 64 difeq1i B Y B = Y B B
66 difun2 Y B B = Y B
67 65 66 eqtri B Y B = Y B
68 difsn ¬ B Y Y B = Y
69 67 68 syl5eq ¬ B Y B Y B = Y
70 69 ad2antlr ¬ A X ¬ B Y Y V f : A X 1-1 B Y B Y B = Y
71 56 63 70 3brtr3d ¬ A X ¬ B Y Y V f : A X 1-1 B Y X Y
72 71 expr ¬ A X ¬ B Y Y V f : A X 1-1 B Y X Y
73 72 exlimdv ¬ A X ¬ B Y Y V f f : A X 1-1 B Y X Y
74 9 73 syl5 ¬ A X ¬ B Y Y V A X B Y X Y
75 74 impancom ¬ A X ¬ B Y A X B Y Y V X Y
76 8 75 mpd ¬ A X ¬ B Y A X B Y X Y
77 en2sn A V B V A B
78 1 2 77 mp2an A B
79 endom A B A B
80 78 79 mp1i ¬ A X ¬ B Y X Y A B
81 simpr ¬ A X ¬ B Y X Y X Y
82 incom B Y = Y B
83 disjsn Y B = ¬ B Y
84 83 biimpri ¬ B Y Y B =
85 82 84 syl5eq ¬ B Y B Y =
86 85 ad2antlr ¬ A X ¬ B Y X Y B Y =
87 undom A B X Y B Y = A X B Y
88 80 81 86 87 syl21anc ¬ A X ¬ B Y X Y A X B Y
89 76 88 impbida ¬ A X ¬ B Y A X B Y X Y