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

Theorem boxcutc 8508
Description: The relative complement of a box set restricted on one axis. (Contributed by Stefan O'Rear, 22-Feb-2015.)
Assertion
Ref Expression
boxcutc ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) = X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))
Distinct variable groups:   𝐴,𝑘   𝑘,𝑋
Allowed substitution hints:   𝐵(𝑘)   𝐶(𝑘)

Proof of Theorem boxcutc
Dummy variables 𝑙 𝑚 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eldifi 4106 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) → 𝑧X𝑘𝐴 𝐵)
21adantl 484 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵))) → 𝑧X𝑘𝐴 𝐵)
3 sseq1 3995 . . . . . 6 ((𝐵𝐶) = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → ((𝐵𝐶) ⊆ 𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
4 sseq1 3995 . . . . . 6 (𝐵 = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → (𝐵𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
5 difss 4111 . . . . . 6 (𝐵𝐶) ⊆ 𝐵
6 ssid 3992 . . . . . 6 𝐵𝐵
73, 4, 5, 6keephyp 4539 . . . . 5 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
87rgenw 3153 . . . 4 𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
9 ss2ixp 8477 . . . 4 (∀𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
108, 9mp1i 13 . . 3 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
1110sselda 3970 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)) → 𝑧X𝑘𝐴 𝐵)
12 ixpfn 8470 . . . . . . . . 9 (𝑧X𝑘𝐴 𝐵𝑧 Fn 𝐴)
1312adantl 484 . . . . . . . 8 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑧 Fn 𝐴)
1413biantrurd 535 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))))
15 vex 3500 . . . . . . . 8 𝑧 ∈ V
1615elixp 8471 . . . . . . 7 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1714, 16syl6rbbr 292 . . . . . 6 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1817notbid 320 . . . . 5 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
19 rexnal 3241 . . . . . 6 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))
20 eleq2 2904 . . . . . . . . . 10 ((𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
21 eleq2 2904 . . . . . . . . . 10 (𝑚 / 𝑘𝐵 = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ 𝑚 / 𝑘𝐵 ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
22 eleq2 2904 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐶 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
23 eleq2 2904 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐵 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
24 simpl 485 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → 𝑋𝐴)
2515elixp 8471 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑧X𝑘𝐴 𝐵 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵))
2625simprbi 499 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑧X𝑘𝐴 𝐵 → ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵)
27 nfv 1914 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑙(𝑧𝑘) ∈ 𝐵
28 nfcsb1v 3910 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑘𝑙 / 𝑘𝐵
2928nfel2 2999 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑘(𝑧𝑙) ∈ 𝑙 / 𝑘𝐵
30 fveq2 6673 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙 → (𝑧𝑘) = (𝑧𝑙))
31 csbeq1a 3900 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙𝐵 = 𝑙 / 𝑘𝐵)
3230, 31eleq12d 2910 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵))
3327, 29, 32cbvralw 3444 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
3426, 33sylib 220 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑧X𝑘𝐴 𝐵 → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
35 fveq2 6673 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋 → (𝑧𝑙) = (𝑧𝑋))
36 csbeq1 3889 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋𝑙 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
3735, 36eleq12d 2910 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵))
3837rspcva 3624 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
3924, 34, 38syl2an 597 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
40 neldif 4109 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑧𝑋) ∈ 𝑋 / 𝑘𝐵 ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4139, 40sylan 582 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4241adantr 483 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
43 csbeq1 3889 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 = 𝑋𝑙 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
4435, 43eleq12d 2910 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
4542, 44syl5ibrcom 249 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑙 = 𝑋 → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶))
4645imp 409 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶)
4734ad2antlr 725 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4847r19.21bi 3211 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4948adantr 483 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ ¬ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
5022, 23, 46, 49ifbothda 4507 . . . . . . . . . . . . . . . . . 18 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
5150ralrimiva 3185 . . . . . . . . . . . . . . . . 17 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
52 dfral2 3240 . . . . . . . . . . . . . . . . 17 (∀𝑙𝐴 (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ¬ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
5351, 52sylib 220 . . . . . . . . . . . . . . . 16 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ¬ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
5453ex 415 . . . . . . . . . . . . . . 15 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶) → ¬ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
5554con4d 115 . . . . . . . . . . . . . 14 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
5655imp 409 . . . . . . . . . . . . 13 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
5756adantr 483 . . . . . . . . . . . 12 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
58 fveq2 6673 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑧𝑚) = (𝑧𝑋))
59 csbeq1 3889 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
60 csbeq1 3889 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
6159, 60difeq12d 4103 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
6258, 61eleq12d 2910 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
6357, 62syl5ibrcom 249 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑚 = 𝑋 → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)))
6463imp 409 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ 𝑚 = 𝑋) → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
65 nfv 1914 . . . . . . . . . . . . . . 15 𝑚(𝑧𝑘) ∈ 𝐵
66 nfcsb1v 3910 . . . . . . . . . . . . . . . 16 𝑘𝑚 / 𝑘𝐵
6766nfel2 2999 . . . . . . . . . . . . . . 15 𝑘(𝑧𝑚) ∈ 𝑚 / 𝑘𝐵
68 fveq2 6673 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚 → (𝑧𝑘) = (𝑧𝑚))
69 csbeq1a 3900 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚𝐵 = 𝑚 / 𝑘𝐵)
7068, 69eleq12d 2910 . . . . . . . . . . . . . . 15 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵))
7165, 67, 70cbvralw 3444 . . . . . . . . . . . . . 14 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7226, 71sylib 220 . . . . . . . . . . . . 13 (𝑧X𝑘𝐴 𝐵 → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7372ad2antlr 725 . . . . . . . . . . . 12 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7473r19.21bi 3211 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7574adantr 483 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ ¬ 𝑚 = 𝑋) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7620, 21, 64, 75ifbothda 4507 . . . . . . . . 9 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
7776ralrimiva 3185 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
78 simpll 765 . . . . . . . . 9 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑋𝐴)
79 iftrue 4476 . . . . . . . . . . . . . 14 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
8079, 61eqtrd 2859 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8158, 80eleq12d 2910 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
8281rspcva 3624 . . . . . . . . . . 11 ((𝑋𝐴 ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8378, 82sylan 582 . . . . . . . . . 10 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8483eldifbd 3952 . . . . . . . . 9 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
85 iftrue 4476 . . . . . . . . . . . . 13 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑙 / 𝑘𝐶)
8685, 43eqtrd 2859 . . . . . . . . . . . 12 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑋 / 𝑘𝐶)
8735, 86eleq12d 2910 . . . . . . . . . . 11 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8887notbid 320 . . . . . . . . . 10 (𝑙 = 𝑋 → (¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8988rspcev 3626 . . . . . . . . 9 ((𝑋𝐴 ∧ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9078, 84, 89syl2an2r 683 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9177, 90impbida 799 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
92 nfv 1914 . . . . . . . 8 𝑙 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)
93 nfv 1914 . . . . . . . . . . 11 𝑘 𝑙 = 𝑋
94 nfcsb1v 3910 . . . . . . . . . . 11 𝑘𝑙 / 𝑘𝐶
9593, 94, 28nfif 4499 . . . . . . . . . 10 𝑘if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9695nfel2 2999 . . . . . . . . 9 𝑘(𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9796nfn 1856 . . . . . . . 8 𝑘 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
98 eqeq1 2828 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝑘 = 𝑋𝑙 = 𝑋))
99 csbeq1a 3900 . . . . . . . . . . 11 (𝑘 = 𝑙𝐶 = 𝑙 / 𝑘𝐶)
10098, 99, 31ifbieq12d 4497 . . . . . . . . . 10 (𝑘 = 𝑙 → if(𝑘 = 𝑋, 𝐶, 𝐵) = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
10130, 100eleq12d 2910 . . . . . . . . 9 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
102101notbid 320 . . . . . . . 8 (𝑘 = 𝑙 → (¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
10392, 97, 102cbvrexw 3445 . . . . . . 7 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
104 nfv 1914 . . . . . . . 8 𝑚(𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)
105 nfv 1914 . . . . . . . . . 10 𝑘 𝑚 = 𝑋
106 nfcsb1v 3910 . . . . . . . . . . 11 𝑘𝑚 / 𝑘𝐶
10766, 106nfdif 4105 . . . . . . . . . 10 𝑘(𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)
108105, 107, 66nfif 4499 . . . . . . . . 9 𝑘if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
109108nfel2 2999 . . . . . . . 8 𝑘(𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
110 eqeq1 2828 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝑘 = 𝑋𝑚 = 𝑋))
111 csbeq1a 3900 . . . . . . . . . . 11 (𝑘 = 𝑚𝐶 = 𝑚 / 𝑘𝐶)
11269, 111difeq12d 4103 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝐵𝐶) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
113110, 112, 69ifbieq12d 4497 . . . . . . . . 9 (𝑘 = 𝑚 → if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
11468, 113eleq12d 2910 . . . . . . . 8 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
115104, 109, 114cbvralw 3444 . . . . . . 7 (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
11691, 103, 1153bitr4g 316 . . . . . 6 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
11719, 116syl5bbr 287 . . . . 5 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
11818, 117bitrd 281 . . . 4 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
119 ibar 531 . . . . 5 (𝑧X𝑘𝐴 𝐵 → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵))))
120119adantl 484 . . . 4 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵))))
12113biantrurd 535 . . . 4 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))))
122118, 120, 1213bitr3d 311 . . 3 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → ((𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))))
123 eldif 3949 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ (𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)))
12415elixp 8471 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
125122, 123, 1243bitr4g 316 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
1262, 11, 125eqrdav 2823 1 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) = X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398   = wceq 1536  wcel 2113  wral 3141  wrex 3142  csb 3886  cdif 3936  wss 3939  ifcif 4470   Fn wfn 6353  cfv 6358  Xcixp 8464
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ral 3146  df-rex 3147  df-rab 3150  df-v 3499  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-nul 4295  df-if 4471  df-sn 4571  df-pr 4573  df-op 4577  df-uni 4842  df-br 5070  df-opab 5132  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-iota 6317  df-fun 6360  df-fn 6361  df-fv 6366  df-ixp 8465
This theorem is referenced by:  ptcld  22224
  Copyright terms: Public domain W3C validator