Proof of Theorem dffunmof
| Step | Hyp | Ref
| Expression |
| 1 | | dffun3 2675 |
. 2
⊢ (Fun A
↔ (Rel A ∧ ∀w∃u∀v(wAv →
v = u))) |
| 2 | | ax-17 925 |
. . . . . . 7
⊢ (z
∈ w → ∀y z ∈
w) |
| 3 | | dffunmof.2 |
. . . . . . 7
⊢ (z
∈ A → ∀y z ∈
A) |
| 4 | | ax-17 925 |
. . . . . . 7
⊢ (z
∈ v → ∀y z ∈
v) |
| 5 | 2, 3, 4 | hbbr 2095 |
. . . . . 6
⊢ (wAv → ∀y wAv) |
| 6 | | ax-17 925 |
. . . . . 6
⊢ (wAy → ∀v wAy) |
| 7 | | breq2 2066 |
. . . . . 6
⊢ (v =
y → (wAv ↔ wAy)) |
| 8 | 5, 6, 7 | cbvmo 1034 |
. . . . 5
⊢ (∃*v wAv ↔
∃*y wAy) |
| 9 | 8 | bial 695 |
. . . 4
⊢ (∀w∃*v
wAv ↔
∀w∃*y wAy) |
| 10 | | ax-17 925 |
. . . . . 6
⊢ (wAv → ∀u wAv) |
| 11 | 10 | mo2 1026 |
. . . . 5
⊢ (∃*v wAv ↔
∃u∀v(wAv →
v = u)) |
| 12 | 11 | bial 695 |
. . . 4
⊢ (∀w∃*v
wAv ↔
∀w∃u∀v(wAv →
v = u)) |
| 13 | | ax-17 925 |
. . . . . . 7
⊢ (z
∈ w → ∀x z ∈
w) |
| 14 | | dffunmof.1 |
. . . . . . 7
⊢ (z
∈ A → ∀x z ∈
A) |
| 15 | | ax-17 925 |
. . . . . . 7
⊢ (z
∈ y → ∀x z ∈
y) |
| 16 | 13, 14, 15 | hbbr 2095 |
. . . . . 6
⊢ (wAy → ∀x wAy) |
| 17 | 16 | hbmo 1033 |
. . . . 5
⊢ (∃*y wAy →
∀x∃*y wAy) |
| 18 | | ax-17 925 |
. . . . 5
⊢ (∃*y xAy →
∀w∃*y xAy) |
| 19 | | ax-17 925 |
. . . . . 6
⊢ (w =
x → ∀y w = x) |
| 20 | | breq1 2065 |
. . . . . 6
⊢ (w =
x → (wAy ↔ xAy)) |
| 21 | 19, 20 | bimod 1030 |
. . . . 5
⊢ (w =
x → (∃*y wAy ↔
∃*y xAy)) |
| 22 | 17, 18, 21 | cbval 848 |
. . . 4
⊢ (∀w∃*y
wAy ↔
∀x∃*y xAy) |
| 23 | 9, 12, 22 | 3bitr3r 157 |
. . 3
⊢ (∀x∃*y
xAy ↔
∀w∃u∀v(wAv →
v = u)) |
| 24 | 23 | anbi2i 367 |
. 2
⊢ ((Rel A ∧ ∀x∃*y
xAy) ↔ (Rel
A ∧ ∀w∃u∀v(wAv →
v = u))) |
| 25 | 1, 24 | bitr4 154 |
1
⊢ (Fun A
↔ (Rel A ∧ ∀x∃*y
xAy)) |