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

Theorem boxcutc 8504
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 4102 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) → 𝑧X𝑘𝐴 𝐵)
21adantl 484 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵))) → 𝑧X𝑘𝐴 𝐵)
3 sseq1 3991 . . . . . 6 ((𝐵𝐶) = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → ((𝐵𝐶) ⊆ 𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
4 sseq1 3991 . . . . . 6 (𝐵 = if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) → (𝐵𝐵 ↔ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵))
5 difss 4107 . . . . . 6 (𝐵𝐶) ⊆ 𝐵
6 ssid 3988 . . . . . 6 𝐵𝐵
73, 4, 5, 6keephyp 4535 . . . . 5 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
87rgenw 3150 . . . 4 𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵
9 ss2ixp 8473 . . . 4 (∀𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ 𝐵X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
108, 9mp1i 13 . . 3 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ⊆ X𝑘𝐴 𝐵)
1110sselda 3966 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)) → 𝑧X𝑘𝐴 𝐵)
12 ixpfn 8466 . . . . . . . . 9 (𝑧X𝑘𝐴 𝐵𝑧 Fn 𝐴)
1312adantl 484 . . . . . . . 8 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑧 Fn 𝐴)
1413biantrurd 535 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))))
15 vex 3497 . . . . . . . 8 𝑧 ∈ V
1615elixp 8467 . . . . . . 7 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1714, 16syl6rbbr 292 . . . . . 6 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
1817notbid 320 . . . . 5 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)))
19 rexnal 3238 . . . . . 6 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵))
20 eleq2 2901 . . . . . . . . . 10 ((𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
21 eleq2 2901 . . . . . . . . . 10 (𝑚 / 𝑘𝐵 = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) → ((𝑧𝑚) ∈ 𝑚 / 𝑘𝐵 ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
22 eleq2 2901 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐶 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
23 eleq2 2901 . . . . . . . . . . . . . . . . . . 19 (𝑙 / 𝑘𝐵 = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
24 simpl 485 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → 𝑋𝐴)
2515elixp 8467 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑧X𝑘𝐴 𝐵 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵))
2625simprbi 499 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑧X𝑘𝐴 𝐵 → ∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵)
27 nfv 1911 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑙(𝑧𝑘) ∈ 𝐵
28 nfcsb1v 3906 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑘𝑙 / 𝑘𝐵
2928nfel2 2996 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑘(𝑧𝑙) ∈ 𝑙 / 𝑘𝐵
30 fveq2 6669 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙 → (𝑧𝑘) = (𝑧𝑙))
31 csbeq1a 3896 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑘 = 𝑙𝐵 = 𝑙 / 𝑘𝐵)
3230, 31eleq12d 2907 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵))
3327, 29, 32cbvralw 3441 . . . . . . . . . . . . . . . . . . . . . . . . 25 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
3426, 33sylib 220 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑧X𝑘𝐴 𝐵 → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
35 fveq2 6669 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋 → (𝑧𝑙) = (𝑧𝑋))
36 csbeq1 3885 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑙 = 𝑋𝑙 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
3735, 36eleq12d 2907 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐵 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵))
3837rspcva 3620 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑋𝐴 ∧ ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
3924, 34, 38syl2an 597 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐵)
40 neldif 4105 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑧𝑋) ∈ 𝑋 / 𝑘𝐵 ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4139, 40sylan 582 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
4241adantr 483 . . . . . . . . . . . . . . . . . . . . 21 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
43 csbeq1 3885 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 = 𝑋𝑙 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
4435, 43eleq12d 2907 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ 𝑙 / 𝑘𝐶 ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
4542, 44syl5ibrcom 249 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑙 = 𝑋 → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶))
4645imp 409 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐶)
4734ad2antlr 725 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4847r19.21bi 3208 . . . . . . . . . . . . . . . . . . . 20 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
4948adantr 483 . . . . . . . . . . . . . . . . . . 19 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) ∧ ¬ 𝑙 = 𝑋) → (𝑧𝑙) ∈ 𝑙 / 𝑘𝐵)
5022, 23, 46, 49ifbothda 4503 . . . . . . . . . . . . . . . . . 18 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) ∧ 𝑙𝐴) → (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
5150ralrimiva 3182 . . . . . . . . . . . . . . . . 17 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ¬ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)) → ∀𝑙𝐴 (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
52 dfral2 3237 . . . . . . . . . . . . . . . . 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 6669 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑧𝑚) = (𝑧𝑋))
59 csbeq1 3885 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐵 = 𝑋 / 𝑘𝐵)
60 csbeq1 3885 . . . . . . . . . . . . . 14 (𝑚 = 𝑋𝑚 / 𝑘𝐶 = 𝑋 / 𝑘𝐶)
6159, 60difeq12d 4099 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
6258, 61eleq12d 2907 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
6357, 62syl5ibrcom 249 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑚 = 𝑋 → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)))
6463imp 409 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ 𝑚 = 𝑋) → (𝑧𝑚) ∈ (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
65 nfv 1911 . . . . . . . . . . . . . . 15 𝑚(𝑧𝑘) ∈ 𝐵
66 nfcsb1v 3906 . . . . . . . . . . . . . . . 16 𝑘𝑚 / 𝑘𝐵
6766nfel2 2996 . . . . . . . . . . . . . . 15 𝑘(𝑧𝑚) ∈ 𝑚 / 𝑘𝐵
68 fveq2 6669 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚 → (𝑧𝑘) = (𝑧𝑚))
69 csbeq1a 3896 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑚𝐵 = 𝑚 / 𝑘𝐵)
7068, 69eleq12d 2907 . . . . . . . . . . . . . . 15 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ 𝐵 ↔ (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵))
7165, 67, 70cbvralw 3441 . . . . . . . . . . . . . 14 (∀𝑘𝐴 (𝑧𝑘) ∈ 𝐵 ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7226, 71sylib 220 . . . . . . . . . . . . 13 (𝑧X𝑘𝐴 𝐵 → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7372ad2antlr 725 . . . . . . . . . . . 12 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7473r19.21bi 3208 . . . . . . . . . . 11 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7574adantr 483 . . . . . . . . . 10 ((((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) ∧ ¬ 𝑚 = 𝑋) → (𝑧𝑚) ∈ 𝑚 / 𝑘𝐵)
7620, 21, 64, 75ifbothda 4503 . . . . . . . . 9 (((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) ∧ 𝑚𝐴) → (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
7776ralrimiva 3182 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)) → ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
78 simpll 765 . . . . . . . . 9 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → 𝑋𝐴)
79 iftrue 4472 . . . . . . . . . . . . . 14 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
8079, 61eqtrd 2856 . . . . . . . . . . . . 13 (𝑚 = 𝑋 → if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) = (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8158, 80eleq12d 2907 . . . . . . . . . . . 12 (𝑚 = 𝑋 → ((𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶)))
8281rspcva 3620 . . . . . . . . . . 11 ((𝑋𝐴 ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8378, 82sylan 582 . . . . . . . . . 10 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → (𝑧𝑋) ∈ (𝑋 / 𝑘𝐵𝑋 / 𝑘𝐶))
8483eldifbd 3948 . . . . . . . . 9 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶)
85 iftrue 4472 . . . . . . . . . . . . 13 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑙 / 𝑘𝐶)
8685, 43eqtrd 2856 . . . . . . . . . . . 12 (𝑙 = 𝑋 → if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) = 𝑋 / 𝑘𝐶)
8735, 86eleq12d 2907 . . . . . . . . . . 11 (𝑙 = 𝑋 → ((𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8887notbid 320 . . . . . . . . . 10 (𝑙 = 𝑋 → (¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶))
8988rspcev 3622 . . . . . . . . 9 ((𝑋𝐴 ∧ ¬ (𝑧𝑋) ∈ 𝑋 / 𝑘𝐶) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9078, 84, 89syl2an2r 683 . . . . . . . 8 ((((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) ∧ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)) → ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
9177, 90impbida 799 . . . . . . 7 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵) ↔ ∀𝑚𝐴 (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
92 nfv 1911 . . . . . . . 8 𝑙 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵)
93 nfv 1911 . . . . . . . . . . 11 𝑘 𝑙 = 𝑋
94 nfcsb1v 3906 . . . . . . . . . . 11 𝑘𝑙 / 𝑘𝐶
9593, 94, 28nfif 4495 . . . . . . . . . 10 𝑘if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9695nfel2 2996 . . . . . . . . 9 𝑘(𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
9796nfn 1853 . . . . . . . 8 𝑘 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)
98 eqeq1 2825 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝑘 = 𝑋𝑙 = 𝑋))
99 csbeq1a 3896 . . . . . . . . . . 11 (𝑘 = 𝑙𝐶 = 𝑙 / 𝑘𝐶)
10098, 99, 31ifbieq12d 4493 . . . . . . . . . 10 (𝑘 = 𝑙 → if(𝑘 = 𝑋, 𝐶, 𝐵) = if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
10130, 100eleq12d 2907 . . . . . . . . 9 (𝑘 = 𝑙 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
102101notbid 320 . . . . . . . 8 (𝑘 = 𝑙 → (¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵)))
10392, 97, 102cbvrexw 3442 . . . . . . 7 (∃𝑘𝐴 ¬ (𝑧𝑘) ∈ if(𝑘 = 𝑋, 𝐶, 𝐵) ↔ ∃𝑙𝐴 ¬ (𝑧𝑙) ∈ if(𝑙 = 𝑋, 𝑙 / 𝑘𝐶, 𝑙 / 𝑘𝐵))
104 nfv 1911 . . . . . . . 8 𝑚(𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)
105 nfv 1911 . . . . . . . . . 10 𝑘 𝑚 = 𝑋
106 nfcsb1v 3906 . . . . . . . . . . 11 𝑘𝑚 / 𝑘𝐶
10766, 106nfdif 4101 . . . . . . . . . 10 𝑘(𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶)
108105, 107, 66nfif 4495 . . . . . . . . 9 𝑘if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
109108nfel2 2996 . . . . . . . 8 𝑘(𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)
110 eqeq1 2825 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝑘 = 𝑋𝑚 = 𝑋))
111 csbeq1a 3896 . . . . . . . . . . 11 (𝑘 = 𝑚𝐶 = 𝑚 / 𝑘𝐶)
11269, 111difeq12d 4099 . . . . . . . . . 10 (𝑘 = 𝑚 → (𝐵𝐶) = (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶))
113110, 112, 69ifbieq12d 4493 . . . . . . . . 9 (𝑘 = 𝑚 → if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) = if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵))
11468, 113eleq12d 2907 . . . . . . . 8 (𝑘 = 𝑚 → ((𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧𝑚) ∈ if(𝑚 = 𝑋, (𝑚 / 𝑘𝐵𝑚 / 𝑘𝐶), 𝑚 / 𝑘𝐵)))
115104, 109, 114cbvralw 3441 . . . . . . 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 3945 . . 3 (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ (𝑧X𝑘𝐴 𝐵 ∧ ¬ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)))
12415elixp 8467 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
125122, 123, 1243bitr4g 316 . 2 (((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) ∧ 𝑧X𝑘𝐴 𝐵) → (𝑧 ∈ (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵)))
1262, 11, 125eqrdav 2820 1 ((𝑋𝐴 ∧ ∀𝑘𝐴 𝐶𝐵) → (X𝑘𝐴 𝐵X𝑘𝐴 if(𝑘 = 𝑋, 𝐶, 𝐵)) = X𝑘𝐴 if(𝑘 = 𝑋, (𝐵𝐶), 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398   = wceq 1533  wcel 2110  wral 3138  wrex 3139  csb 3882  cdif 3932  wss 3935  ifcif 4466   Fn wfn 6349  cfv 6354  Xcixp 8460
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-nul 4291  df-if 4467  df-sn 4567  df-pr 4569  df-op 4573  df-uni 4838  df-br 5066  df-opab 5128  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-iota 6313  df-fun 6356  df-fn 6357  df-fv 6362  df-ixp 8461
This theorem is referenced by:  ptcld  22220
  Copyright terms: Public domain W3C validator