Step | Hyp | Ref | Expression |
1 |
|
bitr |
(p e. \. x e. a, b <-> p e. (\ x, b) |` a) -> (p e. (\ x, b) |` a <-> E. x (x e. a /\ p = x, b)) -> (p e. \. x e. a, b <-> E. x (x e. a /\ p = x, b)) |
2 |
|
ellower |
finite ((\ x, b) |` a) -> (p e. lower ((\ x, b) |` a) <-> p e. (\ x, b) |` a) |
3 |
2 |
conv rlam |
finite ((\ x, b) |` a) -> (p e. \. x e. a, b <-> p e. (\ x, b) |` a) |
4 |
|
finlam |
finite a -> finite ((\ x, b) |` a) |
5 |
|
finns |
finite a |
6 |
4, 5 |
ax_mp |
finite ((\ x, b) |` a) |
7 |
3, 6 |
ax_mp |
p e. \. x e. a, b <-> p e. (\ x, b) |` a |
8 |
1, 7 |
ax_mp |
(p e. (\ x, b) |` a <-> E. x (x e. a /\ p = x, b)) -> (p e. \. x e. a, b <-> E. x (x e. a /\ p = x, b)) |
9 |
|
bitr |
(p e. (\ x, b) |` a <-> p e. \ x, b /\ fst p e. a) ->
(p e. \ x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) ->
(p e. (\ x, b) |` a <-> E. x (x e. a /\ p = x, b)) |
10 |
|
elres |
p e. (\ x, b) |` a <-> p e. \ x, b /\ fst p e. a |
11 |
9, 10 |
ax_mp |
(p e. \ x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) -> (p e. (\ x, b) |` a <-> E. x (x e. a /\ p = x, b)) |
12 |
|
bitr |
(p e. \ x, b /\ fst p e. a <-> E. x p = x, b /\ fst p e. a) ->
(E. x p = x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) ->
(p e. \ x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) |
13 |
|
ellam |
p e. \ x, b <-> E. x p = x, b |
14 |
13 |
aneq1i |
p e. \ x, b /\ fst p e. a <-> E. x p = x, b /\ fst p e. a |
15 |
12, 14 |
ax_mp |
(E. x p = x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) -> (p e. \ x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) |
16 |
|
bitr3 |
(E. x (p = x, b /\ fst p e. a) <-> E. x p = x, b /\ fst p e. a) ->
(E. x (p = x, b /\ fst p e. a) <-> E. x (x e. a /\ p = x, b)) ->
(E. x p = x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) |
17 |
|
exan2 |
E. x (p = x, b /\ fst p e. a) <-> E. x p = x, b /\ fst p e. a |
18 |
16, 17 |
ax_mp |
(E. x (p = x, b /\ fst p e. a) <-> E. x (x e. a /\ p = x, b)) -> (E. x p = x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b)) |
19 |
|
bitr |
(p = x, b /\ fst p e. a <-> fst p e. a /\ p = x, b) -> (fst p e. a /\ p = x, b <-> x e. a /\ p = x, b) -> (p = x, b /\ fst p e. a <-> x e. a /\ p = x, b) |
20 |
|
ancomb |
p = x, b /\ fst p e. a <-> fst p e. a /\ p = x, b |
21 |
19, 20 |
ax_mp |
(fst p e. a /\ p = x, b <-> x e. a /\ p = x, b) -> (p = x, b /\ fst p e. a <-> x e. a /\ p = x, b) |
22 |
|
aneq1a |
(p = x, b -> (fst p e. a <-> x e. a)) -> (fst p e. a /\ p = x, b <-> x e. a /\ p = x, b) |
23 |
|
fstpr |
fst (x, b) = x |
24 |
|
fsteq |
p = x, b -> fst p = fst (x, b) |
25 |
23, 24 |
syl6eq |
p = x, b -> fst p = x |
26 |
25 |
eleq1d |
p = x, b -> (fst p e. a <-> x e. a) |
27 |
22, 26 |
ax_mp |
fst p e. a /\ p = x, b <-> x e. a /\ p = x, b |
28 |
21, 27 |
ax_mp |
p = x, b /\ fst p e. a <-> x e. a /\ p = x, b |
29 |
28 |
exeqi |
E. x (p = x, b /\ fst p e. a) <-> E. x (x e. a /\ p = x, b) |
30 |
18, 29 |
ax_mp |
E. x p = x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b) |
31 |
15, 30 |
ax_mp |
p e. \ x, b /\ fst p e. a <-> E. x (x e. a /\ p = x, b) |
32 |
11, 31 |
ax_mp |
p e. (\ x, b) |` a <-> E. x (x e. a /\ p = x, b) |
33 |
8, 32 |
ax_mp |
p e. \. x e. a, b <-> E. x (x e. a /\ p = x, b) |