Proof of Theorem f1oprg
Step | Hyp | Ref
| Expression |
1 | | f1osng 6757 |
. . . . 5
⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → {〈𝐴, 𝐵〉}:{𝐴}–1-1-onto→{𝐵}) |
2 | 1 | ad2antrr 723 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → {〈𝐴, 𝐵〉}:{𝐴}–1-1-onto→{𝐵}) |
3 | | f1osng 6757 |
. . . . 5
⊢ ((𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌) → {〈𝐶, 𝐷〉}:{𝐶}–1-1-onto→{𝐷}) |
4 | 3 | ad2antlr 724 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → {〈𝐶, 𝐷〉}:{𝐶}–1-1-onto→{𝐷}) |
5 | | disjsn2 4648 |
. . . . 5
⊢ (𝐴 ≠ 𝐶 → ({𝐴} ∩ {𝐶}) = ∅) |
6 | 5 | ad2antrl 725 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({𝐴} ∩ {𝐶}) = ∅) |
7 | | disjsn2 4648 |
. . . . 5
⊢ (𝐵 ≠ 𝐷 → ({𝐵} ∩ {𝐷}) = ∅) |
8 | 7 | ad2antll 726 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({𝐵} ∩ {𝐷}) = ∅) |
9 | | f1oun 6735 |
. . . 4
⊢
((({〈𝐴, 𝐵〉}:{𝐴}–1-1-onto→{𝐵} ∧ {〈𝐶, 𝐷〉}:{𝐶}–1-1-onto→{𝐷}) ∧ (({𝐴} ∩ {𝐶}) = ∅ ∧ ({𝐵} ∩ {𝐷}) = ∅)) → ({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}):({𝐴} ∪ {𝐶})–1-1-onto→({𝐵} ∪ {𝐷})) |
10 | 2, 4, 6, 8, 9 | syl22anc 836 |
. . 3
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}):({𝐴} ∪ {𝐶})–1-1-onto→({𝐵} ∪ {𝐷})) |
11 | | df-pr 4564 |
. . . . . 6
⊢
{〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉} = ({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}) |
12 | 11 | eqcomi 2747 |
. . . . 5
⊢
({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}) = {〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉} |
13 | 12 | a1i 11 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}) = {〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉}) |
14 | | df-pr 4564 |
. . . . . 6
⊢ {𝐴, 𝐶} = ({𝐴} ∪ {𝐶}) |
15 | 14 | eqcomi 2747 |
. . . . 5
⊢ ({𝐴} ∪ {𝐶}) = {𝐴, 𝐶} |
16 | 15 | a1i 11 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({𝐴} ∪ {𝐶}) = {𝐴, 𝐶}) |
17 | | df-pr 4564 |
. . . . . 6
⊢ {𝐵, 𝐷} = ({𝐵} ∪ {𝐷}) |
18 | 17 | eqcomi 2747 |
. . . . 5
⊢ ({𝐵} ∪ {𝐷}) = {𝐵, 𝐷} |
19 | 18 | a1i 11 |
. . . 4
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → ({𝐵} ∪ {𝐷}) = {𝐵, 𝐷}) |
20 | 13, 16, 19 | f1oeq123d 6710 |
. . 3
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → (({〈𝐴, 𝐵〉} ∪ {〈𝐶, 𝐷〉}):({𝐴} ∪ {𝐶})–1-1-onto→({𝐵} ∪ {𝐷}) ↔ {〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉}:{𝐴, 𝐶}–1-1-onto→{𝐵, 𝐷})) |
21 | 10, 20 | mpbid 231 |
. 2
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) ∧ (𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷)) → {〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉}:{𝐴, 𝐶}–1-1-onto→{𝐵, 𝐷}) |
22 | 21 | ex 413 |
1
⊢ (((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) ∧ (𝐶 ∈ 𝑋 ∧ 𝐷 ∈ 𝑌)) → ((𝐴 ≠ 𝐶 ∧ 𝐵 ≠ 𝐷) → {〈𝐴, 𝐵〉, 〈𝐶, 𝐷〉}:{𝐴, 𝐶}–1-1-onto→{𝐵, 𝐷})) |