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

Theorem ptpjpre1 23837
Description: The preimage of a projection function can be expressed as an indexed cartesian product. (Contributed by Mario Carneiro, 6-Feb-2015.)
Hypothesis
Ref Expression
ptpjpre1.1 𝑋 = X𝑘𝐴 (𝐹𝑘)
Assertion
Ref Expression
ptpjpre1 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) = X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
Distinct variable groups:   𝑤,𝑘,𝐴   𝑘,𝐹,𝑤   𝑘,𝐼,𝑤   𝑈,𝑘,𝑤   𝑘,𝑉,𝑤   𝑤,𝑋
Allowed substitution hint:   𝑋(𝑘)

Proof of Theorem ptpjpre1
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6874 . . . . . . . 8 (𝑘 = 𝐼 → (𝑤𝑘) = (𝑤𝐼))
2 fveq2 6874 . . . . . . . . 9 (𝑘 = 𝐼 → (𝐹𝑘) = (𝐹𝐼))
32unieqd 4880 . . . . . . . 8 (𝑘 = 𝐼 (𝐹𝑘) = (𝐹𝐼))
41, 3eleq12d 2854 . . . . . . 7 (𝑘 = 𝐼 → ((𝑤𝑘) ∈ (𝐹𝑘) ↔ (𝑤𝐼) ∈ (𝐹𝐼)))
5 vex 3454 . . . . . . . . . . 11 𝑤 ∈ V
65elixp 8911 . . . . . . . . . 10 (𝑤X𝑘𝐴 (𝐹𝑘) ↔ (𝑤 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘)))
76simprbi 503 . . . . . . . . 9 (𝑤X𝑘𝐴 (𝐹𝑘) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
8 ptpjpre1.1 . . . . . . . . 9 𝑋 = X𝑘𝐴 (𝐹𝑘)
97, 8eleq2s 2878 . . . . . . . 8 (𝑤𝑋 → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
109adantl 487 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
11 simplrl 789 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → 𝐼𝐴)
124, 10, 11rspcdva 3577 . . . . . 6 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → (𝑤𝐼) ∈ (𝐹𝐼))
1312fmpttd 7104 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼))
14 ffn 6698 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼) → (𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋)
15 elpreima 7046 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋 → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
1613, 14, 153syl 19 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
17 fveq1 6873 . . . . . . . . 9 (𝑤 = 𝑧 → (𝑤𝐼) = (𝑧𝐼))
18 eqid 2760 . . . . . . . . 9 (𝑤𝑋 ↦ (𝑤𝐼)) = (𝑤𝑋 ↦ (𝑤𝐼))
19 fvex 6887 . . . . . . . . 9 (𝑧𝐼) ∈ V
2017, 18, 19fvmpt 6982 . . . . . . . 8 (𝑧𝑋 → ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) = (𝑧𝐼))
2120eleq1d 2845 . . . . . . 7 (𝑧𝑋 → (((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈 ↔ (𝑧𝐼) ∈ 𝑈))
2221pm5.32i 585 . . . . . 6 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈))
238eleq2i 2852 . . . . . . . . 9 (𝑧𝑋𝑧X𝑘𝐴 (𝐹𝑘))
24 vex 3454 . . . . . . . . . 10 𝑧 ∈ V
2524elixp 8911 . . . . . . . . 9 (𝑧X𝑘𝐴 (𝐹𝑘) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2623, 25bitri 278 . . . . . . . 8 (𝑧𝑋 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2726anbi1i 636 . . . . . . 7 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ ((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈))
28 anass 474 . . . . . . 7 (((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
2927, 28bitri 278 . . . . . 6 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
3022, 29bitri 278 . . . . 5 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
31 simprl 783 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝐼) ∈ 𝑈)
32 fveq2 6874 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → (𝑧𝑘) = (𝑧𝐼))
33 iftrue 4488 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = 𝑈)
3432, 33eleq12d 2854 . . . . . . . . . . . . 13 (𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝐼) ∈ 𝑈))
3531, 34syl5ibrcom 250 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
36 simprr 785 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ (𝐹𝑘))
37 iffalse 4491 . . . . . . . . . . . . . 14 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = (𝐹𝑘))
3837eleq2d 2846 . . . . . . . . . . . . 13 𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝑘) ∈ (𝐹𝑘)))
3936, 38syl5ibrcom 250 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (¬ 𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4035, 39pm2.61d 181 . . . . . . . . . . 11 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
4140expr 462 . . . . . . . . . 10 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → ((𝑧𝑘) ∈ (𝐹𝑘) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4241ralimdv 3176 . . . . . . . . 9 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4342expimpd 459 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (((𝑧𝐼) ∈ 𝑈 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4443ancomsd 471 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
45 elssuni 4899 . . . . . . . . . . . . 13 (𝑈 ∈ (𝐹𝐼) → 𝑈 (𝐹𝐼))
4645ad2antll 742 . . . . . . . . . . . 12 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → 𝑈 (𝐹𝐼))
4733, 3sseq12d 3964 . . . . . . . . . . . 12 (𝑘 = 𝐼 → (if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘) ↔ 𝑈 (𝐹𝐼)))
4846, 47syl5ibrcom 250 . . . . . . . . . . 11 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘)))
49 ssid 3953 . . . . . . . . . . . 12 (𝐹𝑘) ⊆ (𝐹𝑘)
5037, 49eqsstrdi 3975 . . . . . . . . . . 11 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5148, 50pm2.61d1 182 . . . . . . . . . 10 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5251sseld 3930 . . . . . . . . 9 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝑘) ∈ (𝐹𝑘)))
5352ralimdv 3176 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
5434rspcv 3572 . . . . . . . . 9 (𝐼𝐴 → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5554ad2antrl 741 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5653, 55jcad 522 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
5744, 56impbid 215 . . . . . 6 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
5857anbi2d 642 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
5930, 58bitrid 286 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6016, 59bitrd 282 . . 3 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6124elixp 8911 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6260, 61bitr4di 292 . 2 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6362eqrdv 2758 1 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) = X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401   = wceq 1570  wcel 2145  wral 3076  wss 3899  ifcif 4482   cuni 4867  cmpt 5186  ccnv 5647  cima 5651   Fn wfn 6523  wf 6524  cfv 6528  Xcixp 8904  Topctop 23158
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5249  ax-nul 5260  ax-pr 5391
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-fv 6536  df-ixp 8905
This theorem is used by:  ptpjpre2  23846  ptbasfi  23847
  Copyright terms: Public domain W3C validator