MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  disjxiun Structured version   Visualization version   GIF version

Theorem disjxiun 5071
Description: An indexed union of a disjoint collection of disjoint collections is disjoint if each component is disjoint, and the disjoint unions in the collection are also disjoint. Note that 𝐵(𝑦) and 𝐶(𝑥) may have the displayed free variables. (Contributed by Mario Carneiro, 14-Nov-2016.) (Proof shortened by JJ, 27-May-2021.)
Assertion
Ref Expression
disjxiun (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 ↔ (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶)))
Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵   𝑦,𝐶
Allowed substitution hints:   𝐵(𝑦)   𝐶(𝑥)

Proof of Theorem disjxiun
Dummy variables 𝑠 𝑟 𝑢 𝑣 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nfiu1 4959 . . . . . 6 𝑦 𝑦𝐴 𝐵
2 nfcv 2903 . . . . . 6 𝑦𝐶
31, 2nfdisjw 5053 . . . . 5 𝑦Disj 𝑥 𝑦𝐴 𝐵𝐶
4 disjss1 5047 . . . . . 6 (𝐵 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶Disj 𝑥𝐵 𝐶))
5 ssiun2 4979 . . . . . 6 (𝑦𝐴𝐵 𝑦𝐴 𝐵)
64, 5syl11 33 . . . . 5 (Disj 𝑥 𝑦𝐴 𝐵𝐶 → (𝑦𝐴Disj 𝑥𝐵 𝐶))
73, 6ralrimi 3239 . . . 4 (Disj 𝑥 𝑦𝐴 𝐵𝐶 → ∀𝑦𝐴 Disj 𝑥𝐵 𝐶)
87a1i 11 . . 3 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 → ∀𝑦𝐴 Disj 𝑥𝐵 𝐶))
9 simplr 775 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → Disj 𝑥 𝑦𝐴 𝐵𝐶)
10 ssiun2 4979 . . . . . . . . . . . . 13 (𝑢𝐴𝑢 / 𝑦𝐵 𝑢𝐴 𝑢 / 𝑦𝐵)
11 nfcv 2903 . . . . . . . . . . . . . 14 𝑢𝐵
12 nfcsb1v 3856 . . . . . . . . . . . . . 14 𝑦𝑢 / 𝑦𝐵
13 csbeq1a 3846 . . . . . . . . . . . . . 14 (𝑦 = 𝑢𝐵 = 𝑢 / 𝑦𝐵)
1411, 12, 13cbviun 4966 . . . . . . . . . . . . 13 𝑦𝐴 𝐵 = 𝑢𝐴 𝑢 / 𝑦𝐵
1510, 14sseqtrrdi 3957 . . . . . . . . . . . 12 (𝑢𝐴𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
1615adantr 482 . . . . . . . . . . 11 ((𝑢𝐴𝑣𝐴) → 𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
1716ad2antrl 735 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → 𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
18 csbeq1 3835 . . . . . . . . . . . . . 14 (𝑢 = 𝑣𝑢 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
1918sseq1d 3947 . . . . . . . . . . . . 13 (𝑢 = 𝑣 → (𝑢 / 𝑦𝐵 𝑦𝐴 𝐵𝑣 / 𝑦𝐵 𝑦𝐴 𝐵))
2019, 15vtoclga 3521 . . . . . . . . . . . 12 (𝑣𝐴𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2120adantl 483 . . . . . . . . . . 11 ((𝑢𝐴𝑣𝐴) → 𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2221ad2antrl 735 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → 𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2311, 12, 13cbvdisj 5051 . . . . . . . . . . . . . . . 16 (Disj 𝑦𝐴 𝐵Disj 𝑢𝐴 𝑢 / 𝑦𝐵)
2418disjor 5056 . . . . . . . . . . . . . . . 16 (Disj 𝑢𝐴 𝑢 / 𝑦𝐵 ↔ ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
2523, 24sylbb 221 . . . . . . . . . . . . . . 15 (Disj 𝑦𝐴 𝐵 → ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
26 rsp2 3258 . . . . . . . . . . . . . . 15 (∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅) → ((𝑢𝐴𝑣𝐴) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)))
2725, 26syl 17 . . . . . . . . . . . . . 14 (Disj 𝑦𝐴 𝐵 → ((𝑢𝐴𝑣𝐴) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)))
2827imp 408 . . . . . . . . . . . . 13 ((Disj 𝑦𝐴 𝐵 ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
2928ord 871 . . . . . . . . . . . 12 ((Disj 𝑦𝐴 𝐵 ∧ (𝑢𝐴𝑣𝐴)) → (¬ 𝑢 = 𝑣 → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
3029impr 456 . . . . . . . . . . 11 ((Disj 𝑦𝐴 𝐵 ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)
3130adantlr 722 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)
32 disjiun 5062 . . . . . . . . . 10 ((Disj 𝑥 𝑦𝐴 𝐵𝐶 ∧ (𝑢 / 𝑦𝐵 𝑦𝐴 𝐵𝑣 / 𝑦𝐵 𝑦𝐴 𝐵 ∧ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
339, 17, 22, 31, 32syl13anc 1381 . . . . . . . . 9 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
3433expr 458 . . . . . . . 8 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ (𝑢𝐴𝑣𝐴)) → (¬ 𝑢 = 𝑣 → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3534orrd 870 . . . . . . 7 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3635ralrimivva 3184 . . . . . 6 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3718iuneq1d 4951 . . . . . . 7 (𝑢 = 𝑣 𝑥 𝑢 / 𝑦𝐵𝐶 = 𝑥 𝑣 / 𝑦𝐵𝐶)
3837disjor 5056 . . . . . 6 (Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶 ↔ ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3936, 38sylibr 236 . . . . 5 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶)
40 nfcv 2903 . . . . . 6 𝑢 𝑥𝐵 𝐶
4112, 2nfiun 4955 . . . . . 6 𝑦 𝑥 𝑢 / 𝑦𝐵𝐶
4213iuneq1d 4951 . . . . . 6 (𝑦 = 𝑢 𝑥𝐵 𝐶 = 𝑥 𝑢 / 𝑦𝐵𝐶)
4340, 41, 42cbvdisj 5051 . . . . 5 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶)
4439, 43sylibr 236 . . . 4 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → Disj 𝑦𝐴 𝑥𝐵 𝐶)
4544ex 414 . . 3 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶))
468, 45jcad 518 . 2 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 → (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶)))
4714eleq2i 2833 . . . . . . . 8 (𝑟 𝑦𝐴 𝐵𝑟 𝑢𝐴 𝑢 / 𝑦𝐵)
48 eliun 4927 . . . . . . . 8 (𝑟 𝑢𝐴 𝑢 / 𝑦𝐵 ↔ ∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵)
4947, 48bitri 277 . . . . . . 7 (𝑟 𝑦𝐴 𝐵 ↔ ∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵)
50 nfcv 2903 . . . . . . . . . 10 𝑣𝐵
51 nfcsb1v 3856 . . . . . . . . . 10 𝑦𝑣 / 𝑦𝐵
52 csbeq1a 3846 . . . . . . . . . 10 (𝑦 = 𝑣𝐵 = 𝑣 / 𝑦𝐵)
5350, 51, 52cbviun 4966 . . . . . . . . 9 𝑦𝐴 𝐵 = 𝑣𝐴 𝑣 / 𝑦𝐵
5453eleq2i 2833 . . . . . . . 8 (𝑠 𝑦𝐴 𝐵𝑠 𝑣𝐴 𝑣 / 𝑦𝐵)
55 eliun 4927 . . . . . . . 8 (𝑠 𝑣𝐴 𝑣 / 𝑦𝐵 ↔ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵)
5654, 55bitri 277 . . . . . . 7 (𝑠 𝑦𝐴 𝐵 ↔ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵)
5749, 56anbi12i 635 . . . . . 6 ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) ↔ (∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵 ∧ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵))
58 reeanv 3213 . . . . . 6 (∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ↔ (∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵 ∧ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵))
5957, 58bitr4i 280 . . . . 5 ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) ↔ ∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵))
6012, 2nfdisjw 5053 . . . . . . . . . . . . . . . . . 18 𝑦Disj 𝑥 𝑢 / 𝑦𝐵𝐶
6113disjeq1d 5049 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑢 → (Disj 𝑥𝐵 𝐶Disj 𝑥 𝑢 / 𝑦𝐵𝐶))
6260, 61rspc 3549 . . . . . . . . . . . . . . . . 17 (𝑢𝐴 → (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑥 𝑢 / 𝑦𝐵𝐶))
6362impcom 409 . . . . . . . . . . . . . . . 16 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶𝑢𝐴) → Disj 𝑥 𝑢 / 𝑦𝐵𝐶)
64 disjors 5057 . . . . . . . . . . . . . . . 16 (Disj 𝑥 𝑢 / 𝑦𝐵𝐶 ↔ ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6563, 64sylib 220 . . . . . . . . . . . . . . 15 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶𝑢𝐴) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6665ad2ant2r 754 . . . . . . . . . . . . . 14 (((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6766adantr 482 . . . . . . . . . . . . 13 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
68 simplrl 783 . . . . . . . . . . . . . 14 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑟𝑢 / 𝑦𝐵)
69 simplrr 784 . . . . . . . . . . . . . . 15 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑠𝑣 / 𝑦𝐵)
7018adantl 483 . . . . . . . . . . . . . . 15 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑢 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
7169, 70eleqtrrd 2844 . . . . . . . . . . . . . 14 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑠𝑢 / 𝑦𝐵)
7268, 71jca 517 . . . . . . . . . . . . 13 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → (𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵))
73 rsp2 3258 . . . . . . . . . . . . . 14 (∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅) → ((𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
7473imp 408 . . . . . . . . . . . . 13 ((∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵)) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
7567, 72, 74syl2an2r 692 . . . . . . . . . . . 12 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
7675adantlrr 728 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
77 simplrr 784 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → ¬ 𝑟 = 𝑠)
7876, 77orcnd 885 . . . . . . . . . 10 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
79 ssiun2 4979 . . . . . . . . . . . . . 14 (𝑟𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶 𝑟 𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶)
80 nfcv 2903 . . . . . . . . . . . . . . 15 𝑟𝐶
81 nfcsb1v 3856 . . . . . . . . . . . . . . 15 𝑥𝑟 / 𝑥𝐶
82 csbeq1a 3846 . . . . . . . . . . . . . . 15 (𝑥 = 𝑟𝐶 = 𝑟 / 𝑥𝐶)
8380, 81, 82cbviun 4966 . . . . . . . . . . . . . 14 𝑥 𝑢 / 𝑦𝐵𝐶 = 𝑟 𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶
8479, 83sseqtrrdi 3957 . . . . . . . . . . . . 13 (𝑟𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶 𝑥 𝑢 / 𝑦𝐵𝐶)
85 ssiun2 4979 . . . . . . . . . . . . . 14 (𝑠𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶 𝑠 𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶)
86 nfcv 2903 . . . . . . . . . . . . . . 15 𝑠𝐶
87 nfcsb1v 3856 . . . . . . . . . . . . . . 15 𝑥𝑠 / 𝑥𝐶
88 csbeq1a 3846 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠𝐶 = 𝑠 / 𝑥𝐶)
8986, 87, 88cbviun 4966 . . . . . . . . . . . . . 14 𝑥 𝑣 / 𝑦𝐵𝐶 = 𝑠 𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶
9085, 89sseqtrrdi 3957 . . . . . . . . . . . . 13 (𝑠𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶 𝑥 𝑣 / 𝑦𝐵𝐶)
91 ss2in 4175 . . . . . . . . . . . . 13 ((𝑟 / 𝑥𝐶 𝑥 𝑢 / 𝑦𝐵𝐶𝑠 / 𝑥𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
9284, 90, 91syl2an 603 . . . . . . . . . . . 12 ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
9392ad2antrl 735 . . . . . . . . . . 11 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
94 nfcv 2903 . . . . . . . . . . . . . . 15 𝑧 𝑥𝐵 𝐶
95 nfcsb1v 3856 . . . . . . . . . . . . . . . 16 𝑦𝑧 / 𝑦𝐵
9695, 2nfiun 4955 . . . . . . . . . . . . . . 15 𝑦 𝑥 𝑧 / 𝑦𝐵𝐶
97 csbeq1a 3846 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧𝐵 = 𝑧 / 𝑦𝐵)
9897iuneq1d 4951 . . . . . . . . . . . . . . 15 (𝑦 = 𝑧 𝑥𝐵 𝐶 = 𝑥 𝑧 / 𝑦𝐵𝐶)
9994, 96, 98cbvdisj 5051 . . . . . . . . . . . . . 14 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
10099biimpi 218 . . . . . . . . . . . . 13 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
101100ad3antlr 738 . . . . . . . . . . . 12 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
102 simplr 775 . . . . . . . . . . . 12 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑢𝐴𝑣𝐴))
103 id 22 . . . . . . . . . . . 12 (𝑢𝑣𝑢𝑣)
104 csbeq1 3835 . . . . . . . . . . . . . 14 (𝑧 = 𝑢𝑧 / 𝑦𝐵 = 𝑢 / 𝑦𝐵)
105104iuneq1d 4951 . . . . . . . . . . . . 13 (𝑧 = 𝑢 𝑥 𝑧 / 𝑦𝐵𝐶 = 𝑥 𝑢 / 𝑦𝐵𝐶)
106 csbeq1 3835 . . . . . . . . . . . . . 14 (𝑧 = 𝑣𝑧 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
107106iuneq1d 4951 . . . . . . . . . . . . 13 (𝑧 = 𝑣 𝑥 𝑧 / 𝑦𝐵𝐶 = 𝑥 𝑣 / 𝑦𝐵𝐶)
108105, 107disji2 5058 . . . . . . . . . . . 12 ((Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶 ∧ (𝑢𝐴𝑣𝐴) ∧ 𝑢𝑣) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
109101, 102, 103, 108syl2an3an 1431 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢𝑣) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
110 sseq0 4333 . . . . . . . . . . 11 (((𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) ∧ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
11193, 109, 110syl2an2r 692 . . . . . . . . . 10 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢𝑣) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
11278, 111pm2.61dane 3023 . . . . . . . . 9 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
113112expr 458 . . . . . . . 8 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → (¬ 𝑟 = 𝑠 → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
114113orrd 870 . . . . . . 7 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
115114ex 414 . . . . . 6 (((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) → ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
116115rexlimdvva 3198 . . . . 5 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → (∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
11759, 116biimtrid 244 . . . 4 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
118117ralrimivv 3182 . . 3 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → ∀𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
119 disjors 5057 . . 3 (Disj 𝑥 𝑦𝐴 𝐵𝐶 ↔ ∀𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
120118, 119sylibr 236 . 2 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → Disj 𝑥 𝑦𝐴 𝐵𝐶)
12146, 120impbid1 227 1 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 ↔ (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 397  wo 854   = wceq 1548  wcel 2121  wne 2936  wral 3055  wrex 3065  csb 3832  cin 3883  wss 3884  c0 4263   ciun 4923  Disj wdisj 5041
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713
This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-rmo 3346  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-in 3891  df-ss 3901  df-nul 4264  df-iun 4925  df-disj 5042
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator