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

Theorem disjxiun 5099
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 4987 . . . . . 6 𝑦 𝑦𝐴 𝐵
2 nfcv 2926 . . . . . 6 𝑦𝐶
31, 2nfdisjw 5081 . . . . 5 𝑦Disj 𝑥 𝑦𝐴 𝐵𝐶
4 disjss1 5075 . . . . . 6 (𝐵 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶Disj 𝑥𝐵 𝐶))
5 ssiun2 5007 . . . . . 6 (𝑦𝐴𝐵 𝑦𝐴 𝐵)
64, 5syl11 33 . . . . 5 (Disj 𝑥 𝑦𝐴 𝐵𝐶 → (𝑦𝐴Disj 𝑥𝐵 𝐶))
73, 6ralrimi 3262 . . . 4 (Disj 𝑥 𝑦𝐴 𝐵𝐶 → ∀𝑦𝐴 Disj 𝑥𝐵 𝐶)
87a1i 11 . . 3 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 → ∀𝑦𝐴 Disj 𝑥𝐵 𝐶))
9 simplr 778 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → Disj 𝑥 𝑦𝐴 𝐵𝐶)
10 ssiun2 5007 . . . . . . . . . . . . 13 (𝑢𝐴𝑢 / 𝑦𝐵 𝑢𝐴 𝑢 / 𝑦𝐵)
11 nfcv 2926 . . . . . . . . . . . . . 14 𝑢𝐵
12 nfcsb1v 3878 . . . . . . . . . . . . . 14 𝑦𝑢 / 𝑦𝐵
13 csbeq1a 3868 . . . . . . . . . . . . . 14 (𝑦 = 𝑢𝐵 = 𝑢 / 𝑦𝐵)
1411, 12, 13cbviun 4994 . . . . . . . . . . . . 13 𝑦𝐴 𝐵 = 𝑢𝐴 𝑢 / 𝑦𝐵
1510, 14sseqtrrdi 3979 . . . . . . . . . . . 12 (𝑢𝐴𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
1615adantr 484 . . . . . . . . . . 11 ((𝑢𝐴𝑣𝐴) → 𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
1716ad2antrl 738 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → 𝑢 / 𝑦𝐵 𝑦𝐴 𝐵)
18 csbeq1 3857 . . . . . . . . . . . . . 14 (𝑢 = 𝑣𝑢 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
1918sseq1d 3969 . . . . . . . . . . . . 13 (𝑢 = 𝑣 → (𝑢 / 𝑦𝐵 𝑦𝐴 𝐵𝑣 / 𝑦𝐵 𝑦𝐴 𝐵))
2019, 15vtoclga 3543 . . . . . . . . . . . 12 (𝑣𝐴𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2120adantl 485 . . . . . . . . . . 11 ((𝑢𝐴𝑣𝐴) → 𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2221ad2antrl 738 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → 𝑣 / 𝑦𝐵 𝑦𝐴 𝐵)
2311, 12, 13cbvdisj 5079 . . . . . . . . . . . . . . . 16 (Disj 𝑦𝐴 𝐵Disj 𝑢𝐴 𝑢 / 𝑦𝐵)
2418disjor 5084 . . . . . . . . . . . . . . . 16 (Disj 𝑢𝐴 𝑢 / 𝑦𝐵 ↔ ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
2523, 24sylbb 221 . . . . . . . . . . . . . . 15 (Disj 𝑦𝐴 𝐵 → ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
26 rsp2 3281 . . . . . . . . . . . . . . 15 (∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅) → ((𝑢𝐴𝑣𝐴) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)))
2725, 26syl 17 . . . . . . . . . . . . . 14 (Disj 𝑦𝐴 𝐵 → ((𝑢𝐴𝑣𝐴) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)))
2827imp 410 . . . . . . . . . . . . 13 ((Disj 𝑦𝐴 𝐵 ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ∨ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
2928ord 875 . . . . . . . . . . . 12 ((Disj 𝑦𝐴 𝐵 ∧ (𝑢𝐴𝑣𝐴)) → (¬ 𝑢 = 𝑣 → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅))
3029impr 458 . . . . . . . . . . 11 ((Disj 𝑦𝐴 𝐵 ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)
3130adantlr 725 . . . . . . . . . 10 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)
32 disjiun 5090 . . . . . . . . . 10 ((Disj 𝑥 𝑦𝐴 𝐵𝐶 ∧ (𝑢 / 𝑦𝐵 𝑦𝐴 𝐵𝑣 / 𝑦𝐵 𝑦𝐴 𝐵 ∧ (𝑢 / 𝑦𝐵𝑣 / 𝑦𝐵) = ∅)) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
339, 17, 22, 31, 32syl13anc 1393 . . . . . . . . 9 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ ((𝑢𝐴𝑣𝐴) ∧ ¬ 𝑢 = 𝑣)) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
3433expr 460 . . . . . . . 8 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ (𝑢𝐴𝑣𝐴)) → (¬ 𝑢 = 𝑣 → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3534orrd 874 . . . . . . 7 (((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3635ralrimivva 3207 . . . . . 6 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3718iuneq1d 4979 . . . . . . 7 (𝑢 = 𝑣 𝑥 𝑢 / 𝑦𝐵𝐶 = 𝑥 𝑣 / 𝑦𝐵𝐶)
3837disjor 5084 . . . . . 6 (Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶 ↔ ∀𝑢𝐴𝑣𝐴 (𝑢 = 𝑣 ∨ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅))
3936, 38sylibr 236 . . . . 5 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶)
40 nfcv 2926 . . . . . 6 𝑢 𝑥𝐵 𝐶
4112, 2nfiun 4983 . . . . . 6 𝑦 𝑥 𝑢 / 𝑦𝐵𝐶
4213iuneq1d 4979 . . . . . 6 (𝑦 = 𝑢 𝑥𝐵 𝐶 = 𝑥 𝑢 / 𝑦𝐵𝐶)
4340, 41, 42cbvdisj 5079 . . . . 5 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑢𝐴 𝑥 𝑢 / 𝑦𝐵𝐶)
4439, 43sylibr 236 . . . 4 ((Disj 𝑦𝐴 𝐵Disj 𝑥 𝑦𝐴 𝐵𝐶) → Disj 𝑦𝐴 𝑥𝐵 𝐶)
4544ex 416 . . 3 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶))
468, 45jcad 520 . 2 (Disj 𝑦𝐴 𝐵 → (Disj 𝑥 𝑦𝐴 𝐵𝐶 → (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶)))
4714eleq2i 2856 . . . . . . . 8 (𝑟 𝑦𝐴 𝐵𝑟 𝑢𝐴 𝑢 / 𝑦𝐵)
48 eliun 4955 . . . . . . . 8 (𝑟 𝑢𝐴 𝑢 / 𝑦𝐵 ↔ ∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵)
4947, 48bitri 277 . . . . . . 7 (𝑟 𝑦𝐴 𝐵 ↔ ∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵)
50 nfcv 2926 . . . . . . . . . 10 𝑣𝐵
51 nfcsb1v 3878 . . . . . . . . . 10 𝑦𝑣 / 𝑦𝐵
52 csbeq1a 3868 . . . . . . . . . 10 (𝑦 = 𝑣𝐵 = 𝑣 / 𝑦𝐵)
5350, 51, 52cbviun 4994 . . . . . . . . 9 𝑦𝐴 𝐵 = 𝑣𝐴 𝑣 / 𝑦𝐵
5453eleq2i 2856 . . . . . . . 8 (𝑠 𝑦𝐴 𝐵𝑠 𝑣𝐴 𝑣 / 𝑦𝐵)
55 eliun 4955 . . . . . . . 8 (𝑠 𝑣𝐴 𝑣 / 𝑦𝐵 ↔ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵)
5654, 55bitri 277 . . . . . . 7 (𝑠 𝑦𝐴 𝐵 ↔ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵)
5749, 56anbi12i 637 . . . . . 6 ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) ↔ (∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵 ∧ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵))
58 reeanv 3236 . . . . . 6 (∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ↔ (∃𝑢𝐴 𝑟𝑢 / 𝑦𝐵 ∧ ∃𝑣𝐴 𝑠𝑣 / 𝑦𝐵))
5957, 58bitr4i 280 . . . . 5 ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) ↔ ∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵))
6012, 2nfdisjw 5081 . . . . . . . . . . . . . . . . . 18 𝑦Disj 𝑥 𝑢 / 𝑦𝐵𝐶
6113disjeq1d 5077 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑢 → (Disj 𝑥𝐵 𝐶Disj 𝑥 𝑢 / 𝑦𝐵𝐶))
6260, 61rspc 3571 . . . . . . . . . . . . . . . . 17 (𝑢𝐴 → (∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑥 𝑢 / 𝑦𝐵𝐶))
6362impcom 411 . . . . . . . . . . . . . . . 16 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶𝑢𝐴) → Disj 𝑥 𝑢 / 𝑦𝐵𝐶)
64 disjors 5085 . . . . . . . . . . . . . . . 16 (Disj 𝑥 𝑢 / 𝑦𝐵𝐶 ↔ ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6563, 64sylib 220 . . . . . . . . . . . . . . 15 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶𝑢𝐴) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6665ad2ant2r 757 . . . . . . . . . . . . . 14 (((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
6766adantr 484 . . . . . . . . . . . . 13 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → ∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
68 simplrl 786 . . . . . . . . . . . . . 14 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑟𝑢 / 𝑦𝐵)
69 simplrr 787 . . . . . . . . . . . . . . 15 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑠𝑣 / 𝑦𝐵)
7018adantl 485 . . . . . . . . . . . . . . 15 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑢 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
7169, 70eleqtrrd 2867 . . . . . . . . . . . . . 14 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → 𝑠𝑢 / 𝑦𝐵)
7268, 71jca 519 . . . . . . . . . . . . 13 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → (𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵))
73 rsp2 3281 . . . . . . . . . . . . . 14 (∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅) → ((𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
7473imp 410 . . . . . . . . . . . . 13 ((∀𝑟 𝑢 / 𝑦𝐵𝑠 𝑢 / 𝑦𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑢 / 𝑦𝐵)) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
7567, 72, 74syl2an2r 695 . . . . . . . . . . . 12 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) ∧ 𝑢 = 𝑣) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
7675adantlrr 731 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
77 simplrr 787 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → ¬ 𝑟 = 𝑠)
7876, 77orcnd 889 . . . . . . . . . 10 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢 = 𝑣) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
79 ssiun2 5007 . . . . . . . . . . . . . 14 (𝑟𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶 𝑟 𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶)
80 nfcv 2926 . . . . . . . . . . . . . . 15 𝑟𝐶
81 nfcsb1v 3878 . . . . . . . . . . . . . . 15 𝑥𝑟 / 𝑥𝐶
82 csbeq1a 3868 . . . . . . . . . . . . . . 15 (𝑥 = 𝑟𝐶 = 𝑟 / 𝑥𝐶)
8380, 81, 82cbviun 4994 . . . . . . . . . . . . . 14 𝑥 𝑢 / 𝑦𝐵𝐶 = 𝑟 𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶
8479, 83sseqtrrdi 3979 . . . . . . . . . . . . 13 (𝑟𝑢 / 𝑦𝐵𝑟 / 𝑥𝐶 𝑥 𝑢 / 𝑦𝐵𝐶)
85 ssiun2 5007 . . . . . . . . . . . . . 14 (𝑠𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶 𝑠 𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶)
86 nfcv 2926 . . . . . . . . . . . . . . 15 𝑠𝐶
87 nfcsb1v 3878 . . . . . . . . . . . . . . 15 𝑥𝑠 / 𝑥𝐶
88 csbeq1a 3868 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠𝐶 = 𝑠 / 𝑥𝐶)
8986, 87, 88cbviun 4994 . . . . . . . . . . . . . 14 𝑥 𝑣 / 𝑦𝐵𝐶 = 𝑠 𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶
9085, 89sseqtrrdi 3979 . . . . . . . . . . . . 13 (𝑠𝑣 / 𝑦𝐵𝑠 / 𝑥𝐶 𝑥 𝑣 / 𝑦𝐵𝐶)
91 ss2in 4198 . . . . . . . . . . . . 13 ((𝑟 / 𝑥𝐶 𝑥 𝑢 / 𝑦𝐵𝐶𝑠 / 𝑥𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
9284, 90, 91syl2an 605 . . . . . . . . . . . 12 ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
9392ad2antrl 738 . . . . . . . . . . 11 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶))
94 nfcv 2926 . . . . . . . . . . . . . . 15 𝑧 𝑥𝐵 𝐶
95 nfcsb1v 3878 . . . . . . . . . . . . . . . 16 𝑦𝑧 / 𝑦𝐵
9695, 2nfiun 4983 . . . . . . . . . . . . . . 15 𝑦 𝑥 𝑧 / 𝑦𝐵𝐶
97 csbeq1a 3868 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑧𝐵 = 𝑧 / 𝑦𝐵)
9897iuneq1d 4979 . . . . . . . . . . . . . . 15 (𝑦 = 𝑧 𝑥𝐵 𝐶 = 𝑥 𝑧 / 𝑦𝐵𝐶)
9994, 96, 98cbvdisj 5079 . . . . . . . . . . . . . 14 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
10099biimpi 218 . . . . . . . . . . . . 13 (Disj 𝑦𝐴 𝑥𝐵 𝐶Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
101100ad3antlr 741 . . . . . . . . . . . 12 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶)
102 simplr 778 . . . . . . . . . . . 12 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑢𝐴𝑣𝐴))
103 id 22 . . . . . . . . . . . 12 (𝑢𝑣𝑢𝑣)
104 csbeq1 3857 . . . . . . . . . . . . . 14 (𝑧 = 𝑢𝑧 / 𝑦𝐵 = 𝑢 / 𝑦𝐵)
105104iuneq1d 4979 . . . . . . . . . . . . 13 (𝑧 = 𝑢 𝑥 𝑧 / 𝑦𝐵𝐶 = 𝑥 𝑢 / 𝑦𝐵𝐶)
106 csbeq1 3857 . . . . . . . . . . . . . 14 (𝑧 = 𝑣𝑧 / 𝑦𝐵 = 𝑣 / 𝑦𝐵)
107106iuneq1d 4979 . . . . . . . . . . . . 13 (𝑧 = 𝑣 𝑥 𝑧 / 𝑦𝐵𝐶 = 𝑥 𝑣 / 𝑦𝐵𝐶)
108105, 107disji2 5086 . . . . . . . . . . . 12 ((Disj 𝑧𝐴 𝑥 𝑧 / 𝑦𝐵𝐶 ∧ (𝑢𝐴𝑣𝐴) ∧ 𝑢𝑣) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
109101, 102, 103, 108syl2an3an 1443 . . . . . . . . . . 11 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢𝑣) → ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅)
110 sseq0 4359 . . . . . . . . . . 11 (((𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) ⊆ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) ∧ ( 𝑥 𝑢 / 𝑦𝐵𝐶 𝑥 𝑣 / 𝑦𝐵𝐶) = ∅) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
11193, 109, 110syl2an2r 695 . . . . . . . . . 10 (((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) ∧ 𝑢𝑣) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
11278, 111pm2.61dane 3046 . . . . . . . . 9 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) ∧ ¬ 𝑟 = 𝑠)) → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)
113112expr 460 . . . . . . . 8 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → (¬ 𝑟 = 𝑠 → (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
114113orrd 874 . . . . . . 7 ((((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) ∧ (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵)) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
115114ex 416 . . . . . 6 (((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) ∧ (𝑢𝐴𝑣𝐴)) → ((𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
116115rexlimdvva 3221 . . . . 5 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → (∃𝑢𝐴𝑣𝐴 (𝑟𝑢 / 𝑦𝐵𝑠𝑣 / 𝑦𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
11759, 116biimtrid 244 . . . 4 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → ((𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵) → (𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅)))
118117ralrimivv 3205 . . 3 ((∀𝑦𝐴 Disj 𝑥𝐵 𝐶Disj 𝑦𝐴 𝑥𝐵 𝐶) → ∀𝑟 𝑦𝐴 𝐵𝑠 𝑦𝐴 𝐵(𝑟 = 𝑠 ∨ (𝑟 / 𝑥𝐶𝑠 / 𝑥𝐶) = ∅))
119 disjors 5085 . . 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 399  wo 858   = wceq 1562  wcel 2144  wne 2959  wral 3078  wrex 3088  csb 3854  cin 3905  wss 3906  c0 4287   ciun 4951  Disj wdisj 5069
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rmo 3369  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-in 3913  df-ss 3923  df-nul 4288  df-iun 4953  df-disj 5070
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator