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

Theorem ptpjpre1 23633
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 6869 . . . . . . . 8 (𝑘 = 𝐼 → (𝑤𝑘) = (𝑤𝐼))
2 fveq2 6869 . . . . . . . . 9 (𝑘 = 𝐼 → (𝐹𝑘) = (𝐹𝐼))
32unieqd 4880 . . . . . . . 8 (𝑘 = 𝐼 (𝐹𝑘) = (𝐹𝐼))
41, 3eleq12d 2858 . . . . . . 7 (𝑘 = 𝐼 → ((𝑤𝑘) ∈ (𝐹𝑘) ↔ (𝑤𝐼) ∈ (𝐹𝐼)))
5 vex 3460 . . . . . . . . . . 11 𝑤 ∈ V
65elixp 8888 . . . . . . . . . 10 (𝑤X𝑘𝐴 (𝐹𝑘) ↔ (𝑤 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘)))
76simprbi 501 . . . . . . . . 9 (𝑤X𝑘𝐴 (𝐹𝑘) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
8 ptpjpre1.1 . . . . . . . . 9 𝑋 = X𝑘𝐴 (𝐹𝑘)
97, 8eleq2s 2882 . . . . . . . 8 (𝑤𝑋 → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
109adantl 485 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
11 simplrl 786 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → 𝐼𝐴)
124, 10, 11rspcdva 3584 . . . . . 6 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → (𝑤𝐼) ∈ (𝐹𝐼))
1312fmpttd 7098 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼))
14 ffn 6693 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼) → (𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋)
15 elpreima 7041 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋 → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
1613, 14, 153syl 18 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
17 fveq1 6868 . . . . . . . . 9 (𝑤 = 𝑧 → (𝑤𝐼) = (𝑧𝐼))
18 eqid 2764 . . . . . . . . 9 (𝑤𝑋 ↦ (𝑤𝐼)) = (𝑤𝑋 ↦ (𝑤𝐼))
19 fvex 6882 . . . . . . . . 9 (𝑧𝐼) ∈ V
2017, 18, 19fvmpt 6977 . . . . . . . 8 (𝑧𝑋 → ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) = (𝑧𝐼))
2120eleq1d 2849 . . . . . . 7 (𝑧𝑋 → (((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈 ↔ (𝑧𝐼) ∈ 𝑈))
2221pm5.32i 582 . . . . . 6 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈))
238eleq2i 2856 . . . . . . . . 9 (𝑧𝑋𝑧X𝑘𝐴 (𝐹𝑘))
24 vex 3460 . . . . . . . . . 10 𝑧 ∈ V
2524elixp 8888 . . . . . . . . 9 (𝑧X𝑘𝐴 (𝐹𝑘) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2623, 25bitri 277 . . . . . . . 8 (𝑧𝑋 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2726anbi1i 633 . . . . . . 7 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ ((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈))
28 anass 472 . . . . . . 7 (((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
2927, 28bitri 277 . . . . . 6 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
3022, 29bitri 277 . . . . 5 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
31 simprl 780 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝐼) ∈ 𝑈)
32 fveq2 6869 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → (𝑧𝑘) = (𝑧𝐼))
33 iftrue 4488 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = 𝑈)
3432, 33eleq12d 2858 . . . . . . . . . . . . 13 (𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝐼) ∈ 𝑈))
3531, 34syl5ibrcom 249 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
36 simprr 782 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ (𝐹𝑘))
37 iffalse 4491 . . . . . . . . . . . . . 14 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = (𝐹𝑘))
3837eleq2d 2850 . . . . . . . . . . . . 13 𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝑘) ∈ (𝐹𝑘)))
3936, 38syl5ibrcom 249 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (¬ 𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4035, 39pm2.61d 180 . . . . . . . . . . 11 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
4140expr 460 . . . . . . . . . 10 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → ((𝑧𝑘) ∈ (𝐹𝑘) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4241ralimdv 3178 . . . . . . . . 9 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4342expimpd 457 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (((𝑧𝐼) ∈ 𝑈 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4443ancomsd 469 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
45 elssuni 4899 . . . . . . . . . . . . 13 (𝑈 ∈ (𝐹𝐼) → 𝑈 (𝐹𝐼))
4645ad2antll 739 . . . . . . . . . . . 12 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → 𝑈 (𝐹𝐼))
4733, 3sseq12d 3971 . . . . . . . . . . . 12 (𝑘 = 𝐼 → (if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘) ↔ 𝑈 (𝐹𝐼)))
4846, 47syl5ibrcom 249 . . . . . . . . . . 11 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘)))
49 ssid 3960 . . . . . . . . . . . 12 (𝐹𝑘) ⊆ (𝐹𝑘)
5037, 49eqsstrdi 3982 . . . . . . . . . . 11 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5148, 50pm2.61d1 181 . . . . . . . . . 10 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5251sseld 3937 . . . . . . . . 9 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝑘) ∈ (𝐹𝑘)))
5352ralimdv 3178 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
5434rspcv 3579 . . . . . . . . 9 (𝐼𝐴 → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5554ad2antrl 738 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5653, 55jcad 520 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
5744, 56impbid 214 . . . . . 6 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
5857anbi2d 639 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
5930, 58bitrid 285 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6016, 59bitrd 281 . . 3 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6124elixp 8888 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6260, 61bitr4di 291 . 2 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6362eqrdv 2762 1 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) = X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399   = wceq 1562  wcel 2144  wral 3078  wss 3906  ifcif 4482   cuni 4867  cmpt 5183  ccnv 5648  cima 5652   Fn wfn 6518  wf 6519  cfv 6523  Xcixp 8881  Topctop 22955
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  ax-sep 5248  ax-nul 5258  ax-pr 5392
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-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rab 3417  df-v 3458  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5103  df-opab 5165  df-mpt 5184  df-id 5544  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-fv 6531  df-ixp 8882
This theorem is referenced by:  ptpjpre2  23642  ptbasfi  23643
  Copyright terms: Public domain W3C validator