Proof of Theorem funin
| Step | Hyp | Ref
| Expression |
| 1 | | relin1 3257 |
. . 3
⊢ (Rel F
→ Rel (F ∩ G)) |
| 2 | | moan 1420 |
. . . . 5
⊢ (∃*y xFy →
∃*y(〈x, y〉
∈ G ⋀ xFy)) |
| 3 | | ancom 435 |
. . . . . . 7
⊢ ((〈x, y〉
∈ G ⋀ xFy) ↔ (xFy ⋀ 〈x, y〉
∈ G)) |
| 4 | | elin 2203 |
. . . . . . . 8
⊢ (〈x, y〉
∈ (F ∩ G) ↔ (〈x, y〉
∈ F ⋀ 〈x, y〉
∈ G)) |
| 5 | | df-br 2615 |
. . . . . . . 8
⊢ (x(F ∩
G)y
↔ 〈x, y〉 ∈ (F ∩ G)) |
| 6 | | df-br 2615 |
. . . . . . . . 9
⊢ (xFy ↔ 〈x, y〉
∈ F) |
| 7 | 6 | anbi1i 481 |
. . . . . . . 8
⊢ ((xFy ⋀ 〈x, y〉
∈ G) ↔ (〈x, y〉
∈ F ⋀ 〈x, y〉
∈ G)) |
| 8 | 4, 5, 7 | 3bitr4 183 |
. . . . . . 7
⊢ (x(F ∩
G)y
↔ (xFy ⋀
〈x, y〉 ∈ G)) |
| 9 | 3, 8 | bitr4 176 |
. . . . . 6
⊢ ((〈x, y〉
∈ G ⋀ xFy) ↔ x(F ∩
G)y) |
| 10 | 9 | mobii 1403 |
. . . . 5
⊢ (∃*y(〈x,
y〉 ∈ G ⋀ xFy) ↔ ∃*y x(F ∩ G)y) |
| 11 | 2, 10 | sylib 198 |
. . . 4
⊢ (∃*y xFy →
∃*y x(F ∩
G)y) |
| 12 | 11 | 19.20i 990 |
. . 3
⊢ (∀x∃*y
xFy →
∀x∃*y x(F ∩ G)y) |
| 13 | 1, 12 | anim12i 333 |
. 2
⊢ ((Rel F ⋀ ∀x∃*y
xFy) → (Rel
(F ∩ G) ⋀ ∀x∃*y
x(F
∩ G)y)) |
| 14 | | dffunmo 3523 |
. 2
⊢ (Fun F
↔ (Rel F ⋀ ∀x∃*y
xFy)) |
| 15 | | dffunmo 3523 |
. 2
⊢ (Fun (F ∩ G)
↔ (Rel (F ∩ G) ⋀ ∀x∃*y
x(F
∩ G)y)) |
| 16 | 13, 14, 15 | 3imtr4 219 |
1
⊢ (Fun F
→ Fun (F ∩ G)) |