Step |
Hyp |
Ref |
Expression |
1 |
|
xpord2.1 |
|- T = { <. x , y >. | ( x e. ( A X. B ) /\ y e. ( A X. B ) /\ ( ( ( 1st ` x ) R ( 1st ` y ) \/ ( 1st ` x ) = ( 1st ` y ) ) /\ ( ( 2nd ` x ) S ( 2nd ` y ) \/ ( 2nd ` x ) = ( 2nd ` y ) ) /\ x =/= y ) ) } |
2 |
|
xpord2ind.1 |
|- R Fr A |
3 |
|
xpord2ind.2 |
|- R Po A |
4 |
|
xpord2ind.3 |
|- R Se A |
5 |
|
xpord2ind.4 |
|- S Fr B |
6 |
|
xpord2ind.5 |
|- S Po B |
7 |
|
xpord2ind.6 |
|- S Se B |
8 |
|
xpord2ind.7 |
|- ( a = c -> ( ph <-> ps ) ) |
9 |
|
xpord2ind.8 |
|- ( b = d -> ( ps <-> ch ) ) |
10 |
|
xpord2ind.9 |
|- ( a = c -> ( th <-> ch ) ) |
11 |
|
xpord2ind.11 |
|- ( a = X -> ( ph <-> ta ) ) |
12 |
|
xpord2ind.12 |
|- ( b = Y -> ( ta <-> et ) ) |
13 |
|
xpord2ind.i |
|- ( ( a e. A /\ b e. B ) -> ( ( A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ch /\ A. c e. Pred ( R , A , a ) ps /\ A. d e. Pred ( S , B , b ) th ) -> ph ) ) |
14 |
2
|
a1i |
|- ( T. -> R Fr A ) |
15 |
5
|
a1i |
|- ( T. -> S Fr B ) |
16 |
1 14 15
|
frxp2 |
|- ( T. -> T Fr ( A X. B ) ) |
17 |
3
|
a1i |
|- ( T. -> R Po A ) |
18 |
6
|
a1i |
|- ( T. -> S Po B ) |
19 |
1 17 18
|
poxp2 |
|- ( T. -> T Po ( A X. B ) ) |
20 |
4
|
a1i |
|- ( T. -> R Se A ) |
21 |
7
|
a1i |
|- ( T. -> S Se B ) |
22 |
1 20 21
|
sexp2 |
|- ( T. -> T Se ( A X. B ) ) |
23 |
16 19 22
|
3jca |
|- ( T. -> ( T Fr ( A X. B ) /\ T Po ( A X. B ) /\ T Se ( A X. B ) ) ) |
24 |
23
|
mptru |
|- ( T Fr ( A X. B ) /\ T Po ( A X. B ) /\ T Se ( A X. B ) ) |
25 |
1
|
xpord2pred |
|- ( ( a e. A /\ b e. B ) -> Pred ( T , ( A X. B ) , <. a , b >. ) = ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) ) |
26 |
25
|
eleq2d |
|- ( ( a e. A /\ b e. B ) -> ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) <-> <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) ) ) |
27 |
26
|
imbi1d |
|- ( ( a e. A /\ b e. B ) -> ( ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) -> ch ) <-> ( <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) -> ch ) ) ) |
28 |
|
eldif |
|- ( <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) <-> ( <. c , d >. e. ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) /\ -. <. c , d >. e. { <. a , b >. } ) ) |
29 |
|
opelxp |
|- ( <. c , d >. e. ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) <-> ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) ) |
30 |
|
opex |
|- <. c , d >. e. _V |
31 |
30
|
elsn |
|- ( <. c , d >. e. { <. a , b >. } <-> <. c , d >. = <. a , b >. ) |
32 |
31
|
notbii |
|- ( -. <. c , d >. e. { <. a , b >. } <-> -. <. c , d >. = <. a , b >. ) |
33 |
|
df-ne |
|- ( <. c , d >. =/= <. a , b >. <-> -. <. c , d >. = <. a , b >. ) |
34 |
|
vex |
|- c e. _V |
35 |
|
vex |
|- d e. _V |
36 |
34 35
|
opthne |
|- ( <. c , d >. =/= <. a , b >. <-> ( c =/= a \/ d =/= b ) ) |
37 |
32 33 36
|
3bitr2i |
|- ( -. <. c , d >. e. { <. a , b >. } <-> ( c =/= a \/ d =/= b ) ) |
38 |
29 37
|
anbi12i |
|- ( ( <. c , d >. e. ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) /\ -. <. c , d >. e. { <. a , b >. } ) <-> ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) /\ ( c =/= a \/ d =/= b ) ) ) |
39 |
28 38
|
bitri |
|- ( <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) <-> ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) /\ ( c =/= a \/ d =/= b ) ) ) |
40 |
39
|
imbi1i |
|- ( ( <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) -> ch ) <-> ( ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) /\ ( c =/= a \/ d =/= b ) ) -> ch ) ) |
41 |
|
impexp |
|- ( ( ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) /\ ( c =/= a \/ d =/= b ) ) -> ch ) <-> ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) -> ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
42 |
40 41
|
bitri |
|- ( ( <. c , d >. e. ( ( ( Pred ( R , A , a ) u. { a } ) X. ( Pred ( S , B , b ) u. { b } ) ) \ { <. a , b >. } ) -> ch ) <-> ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) -> ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
43 |
27 42
|
bitrdi |
|- ( ( a e. A /\ b e. B ) -> ( ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) -> ch ) <-> ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) -> ( ( c =/= a \/ d =/= b ) -> ch ) ) ) ) |
44 |
43
|
2albidv |
|- ( ( a e. A /\ b e. B ) -> ( A. c A. d ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) -> ch ) <-> A. c A. d ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) -> ( ( c =/= a \/ d =/= b ) -> ch ) ) ) ) |
45 |
|
r2al |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) <-> A. c A. d ( ( c e. ( Pred ( R , A , a ) u. { a } ) /\ d e. ( Pred ( S , B , b ) u. { b } ) ) -> ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
46 |
44 45
|
bitr4di |
|- ( ( a e. A /\ b e. B ) -> ( A. c A. d ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) -> ch ) <-> A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
47 |
|
ssun1 |
|- Pred ( R , A , a ) C_ ( Pred ( R , A , a ) u. { a } ) |
48 |
|
ssralv |
|- ( Pred ( R , A , a ) C_ ( Pred ( R , A , a ) u. { a } ) -> ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
49 |
47 48
|
ax-mp |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
50 |
|
ssun1 |
|- Pred ( S , B , b ) C_ ( Pred ( S , B , b ) u. { b } ) |
51 |
|
ssralv |
|- ( Pred ( S , B , b ) C_ ( Pred ( S , B , b ) u. { b } ) -> ( A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
52 |
50 51
|
ax-mp |
|- ( A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
53 |
52
|
ralimi |
|- ( A. c e. Pred ( R , A , a ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
54 |
49 53
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
55 |
|
predpoirr |
|- ( S Po B -> -. b e. Pred ( S , B , b ) ) |
56 |
6 55
|
ax-mp |
|- -. b e. Pred ( S , B , b ) |
57 |
|
eleq1w |
|- ( d = b -> ( d e. Pred ( S , B , b ) <-> b e. Pred ( S , B , b ) ) ) |
58 |
56 57
|
mtbiri |
|- ( d = b -> -. d e. Pred ( S , B , b ) ) |
59 |
58
|
necon2ai |
|- ( d e. Pred ( S , B , b ) -> d =/= b ) |
60 |
59
|
olcd |
|- ( d e. Pred ( S , B , b ) -> ( c =/= a \/ d =/= b ) ) |
61 |
|
pm2.27 |
|- ( ( c =/= a \/ d =/= b ) -> ( ( ( c =/= a \/ d =/= b ) -> ch ) -> ch ) ) |
62 |
60 61
|
syl |
|- ( d e. Pred ( S , B , b ) -> ( ( ( c =/= a \/ d =/= b ) -> ch ) -> ch ) ) |
63 |
62
|
ralimia |
|- ( A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. Pred ( S , B , b ) ch ) |
64 |
63
|
ralimi |
|- ( A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ch ) |
65 |
54 64
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ch ) |
66 |
|
ssun2 |
|- { b } C_ ( Pred ( S , B , b ) u. { b } ) |
67 |
|
ssralv |
|- ( { b } C_ ( Pred ( S , B , b ) u. { b } ) -> ( A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
68 |
66 67
|
ax-mp |
|- ( A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) ) |
69 |
68
|
ralimi |
|- ( A. c e. Pred ( R , A , a ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) ) |
70 |
49 69
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) ) |
71 |
|
vex |
|- b e. _V |
72 |
|
neeq1 |
|- ( d = b -> ( d =/= b <-> b =/= b ) ) |
73 |
72
|
orbi2d |
|- ( d = b -> ( ( c =/= a \/ d =/= b ) <-> ( c =/= a \/ b =/= b ) ) ) |
74 |
9
|
equcoms |
|- ( d = b -> ( ps <-> ch ) ) |
75 |
74
|
bicomd |
|- ( d = b -> ( ch <-> ps ) ) |
76 |
73 75
|
imbi12d |
|- ( d = b -> ( ( ( c =/= a \/ d =/= b ) -> ch ) <-> ( ( c =/= a \/ b =/= b ) -> ps ) ) ) |
77 |
71 76
|
ralsn |
|- ( A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) <-> ( ( c =/= a \/ b =/= b ) -> ps ) ) |
78 |
77
|
ralbii |
|- ( A. c e. Pred ( R , A , a ) A. d e. { b } ( ( c =/= a \/ d =/= b ) -> ch ) <-> A. c e. Pred ( R , A , a ) ( ( c =/= a \/ b =/= b ) -> ps ) ) |
79 |
70 78
|
sylib |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) ( ( c =/= a \/ b =/= b ) -> ps ) ) |
80 |
|
predpoirr |
|- ( R Po A -> -. a e. Pred ( R , A , a ) ) |
81 |
3 80
|
ax-mp |
|- -. a e. Pred ( R , A , a ) |
82 |
|
eleq1w |
|- ( c = a -> ( c e. Pred ( R , A , a ) <-> a e. Pred ( R , A , a ) ) ) |
83 |
81 82
|
mtbiri |
|- ( c = a -> -. c e. Pred ( R , A , a ) ) |
84 |
83
|
necon2ai |
|- ( c e. Pred ( R , A , a ) -> c =/= a ) |
85 |
84
|
orcd |
|- ( c e. Pred ( R , A , a ) -> ( c =/= a \/ b =/= b ) ) |
86 |
|
pm2.27 |
|- ( ( c =/= a \/ b =/= b ) -> ( ( ( c =/= a \/ b =/= b ) -> ps ) -> ps ) ) |
87 |
85 86
|
syl |
|- ( c e. Pred ( R , A , a ) -> ( ( ( c =/= a \/ b =/= b ) -> ps ) -> ps ) ) |
88 |
87
|
ralimia |
|- ( A. c e. Pred ( R , A , a ) ( ( c =/= a \/ b =/= b ) -> ps ) -> A. c e. Pred ( R , A , a ) ps ) |
89 |
79 88
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. Pred ( R , A , a ) ps ) |
90 |
|
ssun2 |
|- { a } C_ ( Pred ( R , A , a ) u. { a } ) |
91 |
|
ssralv |
|- ( { a } C_ ( Pred ( R , A , a ) u. { a } ) -> ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. { a } A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) ) ) |
92 |
90 91
|
ax-mp |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. { a } A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
93 |
52
|
ralimi |
|- ( A. c e. { a } A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. { a } A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
94 |
92 93
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. c e. { a } A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) ) |
95 |
|
vex |
|- a e. _V |
96 |
|
neeq1 |
|- ( c = a -> ( c =/= a <-> a =/= a ) ) |
97 |
96
|
orbi1d |
|- ( c = a -> ( ( c =/= a \/ d =/= b ) <-> ( a =/= a \/ d =/= b ) ) ) |
98 |
10
|
equcoms |
|- ( c = a -> ( th <-> ch ) ) |
99 |
98
|
bicomd |
|- ( c = a -> ( ch <-> th ) ) |
100 |
97 99
|
imbi12d |
|- ( c = a -> ( ( ( c =/= a \/ d =/= b ) -> ch ) <-> ( ( a =/= a \/ d =/= b ) -> th ) ) ) |
101 |
100
|
ralbidv |
|- ( c = a -> ( A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) <-> A. d e. Pred ( S , B , b ) ( ( a =/= a \/ d =/= b ) -> th ) ) ) |
102 |
95 101
|
ralsn |
|- ( A. c e. { a } A. d e. Pred ( S , B , b ) ( ( c =/= a \/ d =/= b ) -> ch ) <-> A. d e. Pred ( S , B , b ) ( ( a =/= a \/ d =/= b ) -> th ) ) |
103 |
94 102
|
sylib |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. Pred ( S , B , b ) ( ( a =/= a \/ d =/= b ) -> th ) ) |
104 |
59
|
olcd |
|- ( d e. Pred ( S , B , b ) -> ( a =/= a \/ d =/= b ) ) |
105 |
|
pm2.27 |
|- ( ( a =/= a \/ d =/= b ) -> ( ( ( a =/= a \/ d =/= b ) -> th ) -> th ) ) |
106 |
104 105
|
syl |
|- ( d e. Pred ( S , B , b ) -> ( ( ( a =/= a \/ d =/= b ) -> th ) -> th ) ) |
107 |
106
|
ralimia |
|- ( A. d e. Pred ( S , B , b ) ( ( a =/= a \/ d =/= b ) -> th ) -> A. d e. Pred ( S , B , b ) th ) |
108 |
103 107
|
syl |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> A. d e. Pred ( S , B , b ) th ) |
109 |
65 89 108
|
3jca |
|- ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> ( A. c e. Pred ( R , A , a ) A. d e. Pred ( S , B , b ) ch /\ A. c e. Pred ( R , A , a ) ps /\ A. d e. Pred ( S , B , b ) th ) ) |
110 |
109 13
|
syl5 |
|- ( ( a e. A /\ b e. B ) -> ( A. c e. ( Pred ( R , A , a ) u. { a } ) A. d e. ( Pred ( S , B , b ) u. { b } ) ( ( c =/= a \/ d =/= b ) -> ch ) -> ph ) ) |
111 |
46 110
|
sylbid |
|- ( ( a e. A /\ b e. B ) -> ( A. c A. d ( <. c , d >. e. Pred ( T , ( A X. B ) , <. a , b >. ) -> ch ) -> ph ) ) |
112 |
111 8 9 11 12
|
frpoins3xpg |
|- ( ( ( T Fr ( A X. B ) /\ T Po ( A X. B ) /\ T Se ( A X. B ) ) /\ ( X e. A /\ Y e. B ) ) -> et ) |
113 |
24 112
|
mpan |
|- ( ( X e. A /\ Y e. B ) -> et ) |