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

Theorem boxcutc 8507
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 4105 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) → 𝑧X𝑘𝐴 𝐵)
21adantl 484 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵))) → 𝑧X𝑘𝐴 𝐵)
3 sseq1 3994 . . . . . 6 ((𝐵𝐶) = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → ((𝐵𝐶) ⊆ 𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
4 sseq1 3994 . . . . . 6 (𝐵 = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → (𝐵𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
5 difss 4110 . . . . . 6 (𝐵𝐶) ⊆ 𝐵
6 ssid 3991 . . . . . 6 𝐵𝐵
73, 4, 5, 6keephyp 4538 . . . . 5 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
87rgenw 3152 . . . 4 𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
9 ss2ixp 8476 . . . 4 (∀𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
108, 9mp1i 13 . . 3 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
1110sselda 3969 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)) → 𝑧X𝑘𝐴 𝐵)
12 ixpfn 8469 . . . . . . . . 9 (𝑧X𝑘𝐴 𝐵𝑧 Fn 𝐴)
1312adantl 484 . . . . . . . 8 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑧 Fn 𝐴)
1413biantrurd 535 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))))
15 vex 3499 . . . . . . . 8 𝑧 ∈ V
1615elixp 8470 . . . . . . 7 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1714, 16syl6rbbr 292 . . . . . 6 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1817notbid 320 . . . . 5 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
19 rexnal 3240 . . . . . 6 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))
20 eleq2 2903 . . . . . . . . . 10 ((𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
21 eleq2 2903 . . . . . . . . . 10 (𝑚 / 𝑘𝐵 = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ 𝑚 / 𝑘𝐵 ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
22 eleq2 2903 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐶 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
23 eleq2 2903 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐵 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
24 simpl 485 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → 𝑋𝐴)
2515elixp 8470 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑧X𝑘𝐴 𝐵 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵))
2625simprbi 499 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑧X𝑘𝐴 𝐵 → ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵)
27 nfv 1915 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑙(𝑧𝑘) ∈ 𝐵
28 nfcsb1v 3909 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑘𝑙 / 𝑘𝐵
2928nfel2 2998 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑘(𝑧𝑙) ∈ 𝑙 / 𝑘𝐵
30 fveq2 6672 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙 → (𝑧𝑘) = (𝑧𝑙))
31 csbeq1a 3899 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙𝐵 = 𝑙 / 𝑘𝐵)
3230, 31eleq12d 2909 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵))
3327, 29, 32cbvralw 3443 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
3426, 33sylib 220 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑧X𝑘𝐴 𝐵 → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
35 fveq2 6672 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋 → (𝑧𝑙) = (𝑧𝑋))
36 csbeq1 3888 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋𝑙 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
3735, 36eleq12d 2909 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵))
3837rspcva 3623 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
3924, 34, 38syl2an 597 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
40 neldif 4108 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑧𝑋) ∈ 𝑋 / 𝑘𝐵 ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4139, 40sylan 582 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4241adantr 483 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
43 csbeq1 3888 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 = 𝑋𝑙 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
4435, 43eleq12d 2909 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
4542, 44syl5ibrcom 249 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑙 = 𝑋 → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶))
4645imp 409 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶)
4734ad2antlr 725 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4847r19.21bi 3210 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4948adantr 483 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ ¬ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
5022, 23, 46, 49ifbothda 4506 . . . . . . . . . . . . . . . . . 18 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
5150ralrimiva 3184 . . . . . . . . . . . . . . . . 17 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
52 dfral2 3239 . . . . . . . . . . . . . . . . 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 6672 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑧𝑚) = (𝑧𝑋))
59 csbeq1 3888 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
60 csbeq1 3888 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
6159, 60difeq12d 4102 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
6258, 61eleq12d 2909 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
6357, 62syl5ibrcom 249 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑚 = 𝑋 → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)))
6463imp 409 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ 𝑚 = 𝑋) → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
65 nfv 1915 . . . . . . . . . . . . . . 15 𝑚(𝑧𝑘) ∈ 𝐵
66 nfcsb1v 3909 . . . . . . . . . . . . . . . 16 𝑘𝑚 / 𝑘𝐵
6766nfel2 2998 . . . . . . . . . . . . . . 15 𝑘(𝑧𝑚) ∈ 𝑚 / 𝑘𝐵
68 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚 → (𝑧𝑘) = (𝑧𝑚))
69 csbeq1a 3899 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚𝐵 = 𝑚 / 𝑘𝐵)
7068, 69eleq12d 2909 . . . . . . . . . . . . . . 15 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵))
7165, 67, 70cbvralw 3443 . . . . . . . . . . . . . 14 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7226, 71sylib 220 . . . . . . . . . . . . 13 (𝑧X𝑘𝐴 𝐵 → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7372ad2antlr 725 . . . . . . . . . . . 12 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7473r19.21bi 3210 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7574adantr 483 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ ¬ 𝑚 = 𝑋) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7620, 21, 64, 75ifbothda 4506 . . . . . . . . 9 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
7776ralrimiva 3184 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
78 simpll 765 . . . . . . . . 9 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑋𝐴)
79 iftrue 4475 . . . . . . . . . . . . . 14 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
8079, 61eqtrd 2858 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8158, 80eleq12d 2909 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
8281rspcva 3623 . . . . . . . . . . 11 ((𝑋𝐴 ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8378, 82sylan 582 . . . . . . . . . 10 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8483eldifbd 3951 . . . . . . . . 9 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
85 iftrue 4475 . . . . . . . . . . . . 13 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑙 / 𝑘𝐶)
8685, 43eqtrd 2858 . . . . . . . . . . . 12 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑋 / 𝑘𝐶)
8735, 86eleq12d 2909 . . . . . . . . . . 11 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8887notbid 320 . . . . . . . . . 10 (𝑙 = 𝑋 → (¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8988rspcev 3625 . . . . . . . . 9 ((𝑋𝐴 ∧ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9078, 84, 89syl2an2r 683 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9177, 90impbida 799 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
92 nfv 1915 . . . . . . . 8 𝑙 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)
93 nfv 1915 . . . . . . . . . . 11 𝑘 𝑙 = 𝑋
94 nfcsb1v 3909 . . . . . . . . . . 11 𝑘𝑙 / 𝑘𝐶
9593, 94, 28nfif 4498 . . . . . . . . . 10 𝑘if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9695nfel2 2998 . . . . . . . . 9 𝑘(𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9796nfn 1857 . . . . . . . 8 𝑘 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
98 eqeq1 2827 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝑘 = 𝑋𝑙 = 𝑋))
99 csbeq1a 3899 . . . . . . . . . . 11 (𝑘 = 𝑙𝐶 = 𝑙 / 𝑘𝐶)
10098, 99, 31ifbieq12d 4496 . . . . . . . . . 10 (𝑘 = 𝑙 → if(𝑘 = 𝑋, 𝐶, 𝐵) = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
10130, 100eleq12d 2909 . . . . . . . . 9 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
102101notbid 320 . . . . . . . 8 (𝑘 = 𝑙 → (¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
10392, 97, 102cbvrexw 3444 . . . . . . 7 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
104 nfv 1915 . . . . . . . 8 𝑚(𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)
105 nfv 1915 . . . . . . . . . 10 𝑘 𝑚 = 𝑋
106 nfcsb1v 3909 . . . . . . . . . . 11 𝑘𝑚 / 𝑘𝐶
10766, 106nfdif 4104 . . . . . . . . . 10 𝑘(𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)
108105, 107, 66nfif 4498 . . . . . . . . 9 𝑘if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
109108nfel2 2998 . . . . . . . 8 𝑘(𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
110 eqeq1 2827 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝑘 = 𝑋𝑚 = 𝑋))
111 csbeq1a 3899 . . . . . . . . . . 11 (𝑘 = 𝑚𝐶 = 𝑚 / 𝑘𝐶)
11269, 111difeq12d 4102 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝐵𝐶) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
113110, 112, 69ifbieq12d 4496 . . . . . . . . 9 (𝑘 = 𝑚 → if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
11468, 113eleq12d 2909 . . . . . . . 8 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
115104, 109, 114cbvralw 3443 . . . . . . 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 3948 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ (𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)))
12415elixp 8470 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
125122, 123, 1243bitr4g 316 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
1262, 11, 125eqrdav 2822 1 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) = X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398   = wceq 1537  wcel 2114  wral 3140  wrex 3141  csb 3885  cdif 3935  wss 3938  ifcif 4469   Fn wfn 6352  cfv 6357  Xcixp 8463
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ral 3145  df-rex 3146  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-br 5069  df-opab 5131  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-iota 6316  df-fun 6359  df-fn 6360  df-fv 6365  df-ixp 8464
This theorem is referenced by:  ptcld  22223
  Copyright terms: Public domain W3C validator