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

Theorem ptpjpre1 23699
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 6884 . . . . . . . 8 (𝑘 = 𝐼 → (𝑤𝑘) = (𝑤𝐼))
2 fveq2 6884 . . . . . . . . 9 (𝑘 = 𝐼 → (𝐹𝑘) = (𝐹𝐼))
32unieqd 4889 . . . . . . . 8 (𝑘 = 𝐼 (𝐹𝑘) = (𝐹𝐼))
41, 3eleq12d 2863 . . . . . . 7 (𝑘 = 𝐼 → ((𝑤𝑘) ∈ (𝐹𝑘) ↔ (𝑤𝐼) ∈ (𝐹𝐼)))
5 vex 3467 . . . . . . . . . . 11 𝑤 ∈ V
65elixp 8904 . . . . . . . . . 10 (𝑤X𝑘𝐴 (𝐹𝑘) ↔ (𝑤 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘)))
76simprbi 502 . . . . . . . . 9 (𝑤X𝑘𝐴 (𝐹𝑘) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
8 ptpjpre1.1 . . . . . . . . 9 𝑋 = X𝑘𝐴 (𝐹𝑘)
97, 8eleq2s 2887 . . . . . . . 8 (𝑤𝑋 → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
109adantl 486 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → ∀𝑘𝐴 (𝑤𝑘) ∈ (𝐹𝑘))
11 simplrl 788 . . . . . . 7 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → 𝐼𝐴)
124, 10, 11rspcdva 3591 . . . . . 6 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ 𝑤𝑋) → (𝑤𝐼) ∈ (𝐹𝐼))
1312fmpttd 7113 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼))
14 ffn 6708 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)):𝑋 (𝐹𝐼) → (𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋)
15 elpreima 7056 . . . . 5 ((𝑤𝑋 ↦ (𝑤𝐼)) Fn 𝑋 → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
1613, 14, 153syl 19 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈)))
17 fveq1 6883 . . . . . . . . 9 (𝑤 = 𝑧 → (𝑤𝐼) = (𝑧𝐼))
18 eqid 2769 . . . . . . . . 9 (𝑤𝑋 ↦ (𝑤𝐼)) = (𝑤𝑋 ↦ (𝑤𝐼))
19 fvex 6897 . . . . . . . . 9 (𝑧𝐼) ∈ V
2017, 18, 19fvmpt 6992 . . . . . . . 8 (𝑧𝑋 → ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) = (𝑧𝐼))
2120eleq1d 2854 . . . . . . 7 (𝑧𝑋 → (((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈 ↔ (𝑧𝐼) ∈ 𝑈))
2221pm5.32i 584 . . . . . 6 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈))
238eleq2i 2861 . . . . . . . . 9 (𝑧𝑋𝑧X𝑘𝐴 (𝐹𝑘))
24 vex 3467 . . . . . . . . . 10 𝑧 ∈ V
2524elixp 8904 . . . . . . . . 9 (𝑧X𝑘𝐴 (𝐹𝑘) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2623, 25bitri 278 . . . . . . . 8 (𝑧𝑋 ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
2726anbi1i 635 . . . . . . 7 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ ((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈))
28 anass 473 . . . . . . 7 (((𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
2927, 28bitri 278 . . . . . 6 ((𝑧𝑋 ∧ (𝑧𝐼) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
3022, 29bitri 278 . . . . 5 ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
31 simprl 782 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝐼) ∈ 𝑈)
32 fveq2 6884 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → (𝑧𝑘) = (𝑧𝐼))
33 iftrue 4498 . . . . . . . . . . . . . 14 (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = 𝑈)
3432, 33eleq12d 2863 . . . . . . . . . . . . 13 (𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝐼) ∈ 𝑈))
3531, 34syl5ibrcom 250 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
36 simprr 784 . . . . . . . . . . . . 13 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ (𝐹𝑘))
37 iffalse 4501 . . . . . . . . . . . . . 14 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) = (𝐹𝑘))
3837eleq2d 2855 . . . . . . . . . . . . 13 𝑘 = 𝐼 → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧𝑘) ∈ (𝐹𝑘)))
3936, 38syl5ibrcom 250 . . . . . . . . . . . 12 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (¬ 𝑘 = 𝐼 → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4035, 39pm2.61d 181 . . . . . . . . . . 11 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ ((𝑧𝐼) ∈ 𝑈 ∧ (𝑧𝑘) ∈ (𝐹𝑘))) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
4140expr 461 . . . . . . . . . 10 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → ((𝑧𝑘) ∈ (𝐹𝑘) → (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4241ralimdv 3185 . . . . . . . . 9 ((((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) ∧ (𝑧𝐼) ∈ 𝑈) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4342expimpd 458 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (((𝑧𝐼) ∈ 𝑈 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
4443ancomsd 470 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) → ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
45 elssuni 4908 . . . . . . . . . . . . 13 (𝑈 ∈ (𝐹𝐼) → 𝑈 (𝐹𝐼))
4645ad2antll 741 . . . . . . . . . . . 12 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → 𝑈 (𝐹𝐼))
4733, 3sseq12d 3978 . . . . . . . . . . . 12 (𝑘 = 𝐼 → (if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘) ↔ 𝑈 (𝐹𝐼)))
4846, 47syl5ibrcom 250 . . . . . . . . . . 11 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘)))
49 ssid 3967 . . . . . . . . . . . 12 (𝐹𝑘) ⊆ (𝐹𝑘)
5037, 49eqsstrdi 3989 . . . . . . . . . . 11 𝑘 = 𝐼 → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5148, 50pm2.61d1 182 . . . . . . . . . 10 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ⊆ (𝐹𝑘))
5251sseld 3944 . . . . . . . . 9 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝑘) ∈ (𝐹𝑘)))
5352ralimdv 3185 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → ∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘)))
5434rspcv 3586 . . . . . . . . 9 (𝐼𝐴 → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5554ad2antrl 740 . . . . . . . 8 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (𝑧𝐼) ∈ 𝑈))
5653, 55jcad 521 . . . . . . 7 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) → (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)))
5744, 56impbid 215 . . . . . 6 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈) ↔ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
5857anbi2d 641 . . . . 5 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧 Fn 𝐴 ∧ (∀𝑘𝐴 (𝑧𝑘) ∈ (𝐹𝑘) ∧ (𝑧𝐼) ∈ 𝑈)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
5930, 58bitrid 286 . . . 4 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑧𝑋 ∧ ((𝑤𝑋 ↦ (𝑤𝐼))‘𝑧) ∈ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6016, 59bitrd 282 . . 3 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))))
6124elixp 8904 . . 3 (𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)) ↔ (𝑧 Fn 𝐴 ∧ ∀𝑘𝐴 (𝑧𝑘) ∈ if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6260, 61bitr4di 292 . 2 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → (𝑧 ∈ ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) ↔ 𝑧X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘))))
6362eqrdv 2767 1 (((𝐴𝑉𝐹:𝐴⟶Top) ∧ (𝐼𝐴𝑈 ∈ (𝐹𝐼))) → ((𝑤𝑋 ↦ (𝑤𝐼)) “ 𝑈) = X𝑘𝐴 if(𝑘 = 𝐼, 𝑈, (𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400   = wceq 1567  wcel 2149  wral 3085  wss 3913  ifcif 4492   cuni 4876  cmpt 5196  ccnv 5663  cima 5667   Fn wfn 6534  wf 6535  cfv 6539  Xcixp 8897  Topctop 23021
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5273  ax-pr 5407
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5559  df-xp 5670  df-rel 5671  df-cnv 5672  df-co 5673  df-dm 5674  df-rn 5675  df-res 5676  df-ima 5677  df-iota 6495  df-fun 6541  df-fn 6542  df-f 6543  df-fv 6547  df-ixp 8898
This theorem is referenced by:  ptpjpre2  23708  ptbasfi  23709
  Copyright terms: Public domain W3C validator