Proof of Theorem dffun7
| Step | Hyp | Ref
| Expression |
| 1 | | funrel 3525 |
. . 3
⊢ (Fun A
→ Rel A) |
| 2 | | ax-17 969 |
. . . . . 6
⊢ (Fun A
→ ∀yFun A) |
| 3 | | hbeu1 1386 |
. . . . . 6
⊢ (∃!y〈x,
y〉 ∈ A → ∀y∃!y〈x,
y〉 ∈ A) |
| 4 | | funeu2 3530 |
. . . . . . 7
⊢ ((Fun A ⋀ 〈x, y〉
∈ A) → ∃!y〈x,
y〉 ∈ A) |
| 5 | 4 | ex 373 |
. . . . . 6
⊢ (Fun A
→ (〈x, y〉 ∈ A
→ ∃!y〈x, y〉
∈ A)) |
| 6 | 2, 3, 5 | 19.23ad 1064 |
. . . . 5
⊢ (Fun A
→ (∃y〈x, y〉
∈ A → ∃!y〈x,
y〉 ∈ A)) |
| 7 | | visset 1809 |
. . . . . 6
⊢ x
∈ V |
| 8 | 7 | eldm2 3303 |
. . . . 5
⊢ (x
∈ dom A ↔ ∃y〈x,
y〉 ∈ A) |
| 9 | | df-br 2615 |
. . . . . 6
⊢ (xAy ↔ 〈x, y〉
∈ A) |
| 10 | 9 | eubii 1385 |
. . . . 5
⊢ (∃!y xAy ↔
∃!y〈x, y〉
∈ A) |
| 11 | 6, 8, 10 | 3imtr4g 552 |
. . . 4
⊢ (Fun A
→ (x ∈ dom A → ∃!y xAy)) |
| 12 | 11 | r19.21aiv 1710 |
. . 3
⊢ (Fun A
→ ∀x ∈ dom A∃!y
xAy) |
| 13 | 1, 12 | jca 288 |
. 2
⊢ (Fun A
→ (Rel A ⋀ ∀x ∈ dom A∃!y
xAy)) |
| 14 | | eumo 1409 |
. . . . 5
⊢ (∃!y xAy →
∃*y xAy) |
| 15 | 14 | r19.20si 1703 |
. . . 4
⊢ (∀x ∈ dom A∃!y
xAy →
∀x ∈ dom A∃*y
xAy) |
| 16 | 15 | anim2i 335 |
. . 3
⊢ ((Rel A ⋀ ∀x ∈ dom A∃!y
xAy) → (Rel
A ⋀ ∀x ∈ dom A∃*y
xAy)) |
| 17 | | dffun6 3531 |
. . 3
⊢ (Fun A
↔ (Rel A ⋀ ∀x ∈ dom A∃*y
xAy)) |
| 18 | 16, 17 | sylibr 200 |
. 2
⊢ ((Rel A ⋀ ∀x ∈ dom A∃!y
xAy) → Fun
A) |
| 19 | 13, 18 | impbi 157 |
1
⊢ (Fun A
↔ (Rel A ⋀ ∀x ∈ dom A∃!y
xAy)) |