Step | Hyp | Ref | Expression |
1 |
|
bitr4 |
(Dom R C_ A <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) ->
(R C_ Xp A _V <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) ->
(Dom R C_ A <-> R C_ Xp A _V) |
2 |
|
bitr |
(a1 e. Dom R -> a1 e. A <-> E. a2 a1, a2 e. R -> a1 e. A) ->
(E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) ->
(a1 e. Dom R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) |
3 |
|
eldm |
a1 e. Dom R <-> E. a2 a1, a2 e. R |
4 |
3 |
imeq1i |
a1 e. Dom R -> a1 e. A <-> E. a2 a1, a2 e. R -> a1 e. A |
5 |
2, 4 |
ax_mp |
(E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) -> (a1 e. Dom R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) |
6 |
|
bitr4 |
(E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1 e. A)) ->
(A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) <-> A. a2 (a1, a2 e. R -> a1 e. A)) ->
(E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) |
7 |
|
eexb |
E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1 e. A) |
8 |
6, 7 |
ax_mp |
(A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) <-> A. a2 (a1, a2 e. R -> a1 e. A)) -> (E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) |
9 |
|
bitr |
(a1, a2 e. Xp A _V <-> a1 e. A /\ a2 e. _V) -> (a1 e. A /\ a2 e. _V <-> a1 e. A) -> (a1, a2 e. Xp A _V <-> a1 e. A) |
10 |
|
prelxp |
a1, a2 e. Xp A _V <-> a1 e. A /\ a2 e. _V |
11 |
9, 10 |
ax_mp |
(a1 e. A /\ a2 e. _V <-> a1 e. A) -> (a1, a2 e. Xp A _V <-> a1 e. A) |
12 |
|
bian2 |
a2 e. _V -> (a1 e. A /\ a2 e. _V <-> a1 e. A) |
13 |
|
elv |
a2 e. _V |
14 |
12, 13 |
ax_mp |
a1 e. A /\ a2 e. _V <-> a1 e. A |
15 |
11, 14 |
ax_mp |
a1, a2 e. Xp A _V <-> a1 e. A |
16 |
15 |
imeq2i |
a1, a2 e. R -> a1, a2 e. Xp A _V <-> a1, a2 e. R -> a1 e. A |
17 |
16 |
aleqi |
A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) <-> A. a2 (a1, a2 e. R -> a1 e. A) |
18 |
8, 17 |
ax_mp |
E. a2 a1, a2 e. R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) |
19 |
5, 18 |
ax_mp |
a1 e. Dom R -> a1 e. A <-> A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) |
20 |
19 |
aleqi |
A. a1 (a1 e. Dom R -> a1 e. A) <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) |
21 |
20 |
conv subset |
Dom R C_ A <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) |
22 |
1, 21 |
ax_mp |
(R C_ Xp A _V <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V)) -> (Dom R C_ A <-> R C_ Xp A _V) |
23 |
|
ssal2 |
R C_ Xp A _V <-> A. a1 A. a2 (a1, a2 e. R -> a1, a2 e. Xp A _V) |
24 |
22, 23 |
ax_mp |
Dom R C_ A <-> R C_ Xp A _V |