Step |
Hyp |
Ref |
Expression |
1 |
|
oveq1 |
|- ( a = c -> ( a +no b ) = ( c +no b ) ) |
2 |
|
oveq2 |
|- ( a = c -> ( b +no a ) = ( b +no c ) ) |
3 |
1 2
|
eqeq12d |
|- ( a = c -> ( ( a +no b ) = ( b +no a ) <-> ( c +no b ) = ( b +no c ) ) ) |
4 |
|
oveq2 |
|- ( b = d -> ( c +no b ) = ( c +no d ) ) |
5 |
|
oveq1 |
|- ( b = d -> ( b +no c ) = ( d +no c ) ) |
6 |
4 5
|
eqeq12d |
|- ( b = d -> ( ( c +no b ) = ( b +no c ) <-> ( c +no d ) = ( d +no c ) ) ) |
7 |
|
oveq1 |
|- ( a = c -> ( a +no d ) = ( c +no d ) ) |
8 |
|
oveq2 |
|- ( a = c -> ( d +no a ) = ( d +no c ) ) |
9 |
7 8
|
eqeq12d |
|- ( a = c -> ( ( a +no d ) = ( d +no a ) <-> ( c +no d ) = ( d +no c ) ) ) |
10 |
|
oveq1 |
|- ( a = A -> ( a +no b ) = ( A +no b ) ) |
11 |
|
oveq2 |
|- ( a = A -> ( b +no a ) = ( b +no A ) ) |
12 |
10 11
|
eqeq12d |
|- ( a = A -> ( ( a +no b ) = ( b +no a ) <-> ( A +no b ) = ( b +no A ) ) ) |
13 |
|
oveq2 |
|- ( b = B -> ( A +no b ) = ( A +no B ) ) |
14 |
|
oveq1 |
|- ( b = B -> ( b +no A ) = ( B +no A ) ) |
15 |
13 14
|
eqeq12d |
|- ( b = B -> ( ( A +no b ) = ( b +no A ) <-> ( A +no B ) = ( B +no A ) ) ) |
16 |
|
eleq1 |
|- ( ( a +no d ) = ( d +no a ) -> ( ( a +no d ) e. x <-> ( d +no a ) e. x ) ) |
17 |
16
|
ralimi |
|- ( A. d e. b ( a +no d ) = ( d +no a ) -> A. d e. b ( ( a +no d ) e. x <-> ( d +no a ) e. x ) ) |
18 |
|
ralbi |
|- ( A. d e. b ( ( a +no d ) e. x <-> ( d +no a ) e. x ) -> ( A. d e. b ( a +no d ) e. x <-> A. d e. b ( d +no a ) e. x ) ) |
19 |
17 18
|
syl |
|- ( A. d e. b ( a +no d ) = ( d +no a ) -> ( A. d e. b ( a +no d ) e. x <-> A. d e. b ( d +no a ) e. x ) ) |
20 |
19
|
3ad2ant3 |
|- ( ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) -> ( A. d e. b ( a +no d ) e. x <-> A. d e. b ( d +no a ) e. x ) ) |
21 |
20
|
adantl |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( A. d e. b ( a +no d ) e. x <-> A. d e. b ( d +no a ) e. x ) ) |
22 |
|
eleq1 |
|- ( ( c +no b ) = ( b +no c ) -> ( ( c +no b ) e. x <-> ( b +no c ) e. x ) ) |
23 |
22
|
ralimi |
|- ( A. c e. a ( c +no b ) = ( b +no c ) -> A. c e. a ( ( c +no b ) e. x <-> ( b +no c ) e. x ) ) |
24 |
|
ralbi |
|- ( A. c e. a ( ( c +no b ) e. x <-> ( b +no c ) e. x ) -> ( A. c e. a ( c +no b ) e. x <-> A. c e. a ( b +no c ) e. x ) ) |
25 |
23 24
|
syl |
|- ( A. c e. a ( c +no b ) = ( b +no c ) -> ( A. c e. a ( c +no b ) e. x <-> A. c e. a ( b +no c ) e. x ) ) |
26 |
25
|
3ad2ant2 |
|- ( ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) -> ( A. c e. a ( c +no b ) e. x <-> A. c e. a ( b +no c ) e. x ) ) |
27 |
26
|
adantl |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( A. c e. a ( c +no b ) e. x <-> A. c e. a ( b +no c ) e. x ) ) |
28 |
21 27
|
anbi12d |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) <-> ( A. d e. b ( d +no a ) e. x /\ A. c e. a ( b +no c ) e. x ) ) ) |
29 |
28
|
biancomd |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) <-> ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) ) ) |
30 |
29
|
rabbidv |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> { x e. On | ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) } = { x e. On | ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) } ) |
31 |
30
|
inteqd |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> |^| { x e. On | ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) } = |^| { x e. On | ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) } ) |
32 |
|
naddov2 |
|- ( ( a e. On /\ b e. On ) -> ( a +no b ) = |^| { x e. On | ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) } ) |
33 |
32
|
adantr |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( a +no b ) = |^| { x e. On | ( A. d e. b ( a +no d ) e. x /\ A. c e. a ( c +no b ) e. x ) } ) |
34 |
|
naddov2 |
|- ( ( b e. On /\ a e. On ) -> ( b +no a ) = |^| { x e. On | ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) } ) |
35 |
34
|
ancoms |
|- ( ( a e. On /\ b e. On ) -> ( b +no a ) = |^| { x e. On | ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) } ) |
36 |
35
|
adantr |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( b +no a ) = |^| { x e. On | ( A. c e. a ( b +no c ) e. x /\ A. d e. b ( d +no a ) e. x ) } ) |
37 |
31 33 36
|
3eqtr4d |
|- ( ( ( a e. On /\ b e. On ) /\ ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) ) -> ( a +no b ) = ( b +no a ) ) |
38 |
37
|
ex |
|- ( ( a e. On /\ b e. On ) -> ( ( A. c e. a A. d e. b ( c +no d ) = ( d +no c ) /\ A. c e. a ( c +no b ) = ( b +no c ) /\ A. d e. b ( a +no d ) = ( d +no a ) ) -> ( a +no b ) = ( b +no a ) ) ) |
39 |
3 6 9 12 15 38
|
on2ind |
|- ( ( A e. On /\ B e. On ) -> ( A +no B ) = ( B +no A ) ) |