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

Theorem ajfval 29751
Description: The adjoint function. (Contributed by NM, 25-Jan-2008.) (Revised by Mario Carneiro, 16-Nov-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
ajfval.1 𝑋 = (BaseSet‘𝑈)
ajfval.2 𝑌 = (BaseSet‘𝑊)
ajfval.3 𝑃 = (·𝑖OLD𝑈)
ajfval.4 𝑄 = (·𝑖OLD𝑊)
ajfval.5 𝐴 = (𝑈adj𝑊)
Assertion
Ref Expression
ajfval ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → 𝐴 = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑈   𝑊,𝑠,𝑡,𝑥,𝑦   𝑋,𝑠,𝑡,𝑥   𝑌,𝑠,𝑡,𝑦
Allowed substitution hints:   𝐴(𝑥,𝑦,𝑡,𝑠)   𝑃(𝑥,𝑦,𝑡,𝑠)   𝑄(𝑥,𝑦,𝑡,𝑠)   𝑋(𝑦)   𝑌(𝑥)

Proof of Theorem ajfval
Dummy variables 𝑤 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ajfval.5 . 2 𝐴 = (𝑈adj𝑊)
2 fveq2 6842 . . . . . . 7 (𝑢 = 𝑈 → (BaseSet‘𝑢) = (BaseSet‘𝑈))
3 ajfval.1 . . . . . . 7 𝑋 = (BaseSet‘𝑈)
42, 3eqtr4di 2794 . . . . . 6 (𝑢 = 𝑈 → (BaseSet‘𝑢) = 𝑋)
54feq2d 6654 . . . . 5 (𝑢 = 𝑈 → (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋⟶(BaseSet‘𝑤)))
64feq3d 6655 . . . . 5 (𝑢 = 𝑈 → (𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ↔ 𝑠:(BaseSet‘𝑤)⟶𝑋))
7 fveq2 6842 . . . . . . . . . 10 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = (·𝑖OLD𝑈))
8 ajfval.3 . . . . . . . . . 10 𝑃 = (·𝑖OLD𝑈)
97, 8eqtr4di 2794 . . . . . . . . 9 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = 𝑃)
109oveqd 7374 . . . . . . . 8 (𝑢 = 𝑈 → (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) = (𝑥𝑃(𝑠𝑦)))
1110eqeq2d 2747 . . . . . . 7 (𝑢 = 𝑈 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
1211ralbidv 3174 . . . . . 6 (𝑢 = 𝑈 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
134, 12raleqbidv 3319 . . . . 5 (𝑢 = 𝑈 → (∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
145, 6, 133anbi123d 1436 . . . 4 (𝑢 = 𝑈 → ((𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦))) ↔ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))))
1514opabbidv 5171 . . 3 (𝑢 = 𝑈 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))})
16 fveq2 6842 . . . . . . 7 (𝑤 = 𝑊 → (BaseSet‘𝑤) = (BaseSet‘𝑊))
17 ajfval.2 . . . . . . 7 𝑌 = (BaseSet‘𝑊)
1816, 17eqtr4di 2794 . . . . . 6 (𝑤 = 𝑊 → (BaseSet‘𝑤) = 𝑌)
1918feq3d 6655 . . . . 5 (𝑤 = 𝑊 → (𝑡:𝑋⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋𝑌))
2018feq2d 6654 . . . . 5 (𝑤 = 𝑊 → (𝑠:(BaseSet‘𝑤)⟶𝑋𝑠:𝑌𝑋))
21 fveq2 6842 . . . . . . . . . 10 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = (·𝑖OLD𝑊))
22 ajfval.4 . . . . . . . . . 10 𝑄 = (·𝑖OLD𝑊)
2321, 22eqtr4di 2794 . . . . . . . . 9 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = 𝑄)
2423oveqd 7374 . . . . . . . 8 (𝑤 = 𝑊 → ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = ((𝑡𝑥)𝑄𝑦))
2524eqeq1d 2738 . . . . . . 7 (𝑤 = 𝑊 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2618, 25raleqbidv 3319 . . . . . 6 (𝑤 = 𝑊 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2726ralbidv 3174 . . . . 5 (𝑤 = 𝑊 → (∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2819, 20, 273anbi123d 1436 . . . 4 (𝑤 = 𝑊 → ((𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))))
2928opabbidv 5171 . . 3 (𝑤 = 𝑊 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
30 df-aj 29692 . . 3 adj = (𝑢 ∈ NrmCVec, 𝑤 ∈ NrmCVec ↦ {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))})
31 ovex 7390 . . . . 5 (𝑌m 𝑋) ∈ V
32 ovex 7390 . . . . 5 (𝑋m 𝑌) ∈ V
3331, 32xpex 7687 . . . 4 ((𝑌m 𝑋) × (𝑋m 𝑌)) ∈ V
3417fvexi 6856 . . . . . . . . . 10 𝑌 ∈ V
353fvexi 6856 . . . . . . . . . 10 𝑋 ∈ V
3634, 35elmap 8809 . . . . . . . . 9 (𝑡 ∈ (𝑌m 𝑋) ↔ 𝑡:𝑋𝑌)
3735, 34elmap 8809 . . . . . . . . 9 (𝑠 ∈ (𝑋m 𝑌) ↔ 𝑠:𝑌𝑋)
3836, 37anbi12i 627 . . . . . . . 8 ((𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋))
3938biimpri 227 . . . . . . 7 ((𝑡:𝑋𝑌𝑠:𝑌𝑋) → (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)))
40393adant3 1132 . . . . . 6 ((𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))) → (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)))
4140ssopab2i 5507 . . . . 5 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌))}
42 df-xp 5639 . . . . 5 ((𝑌m 𝑋) × (𝑋m 𝑌)) = {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌))}
4341, 42sseqtrri 3981 . . . 4 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ ((𝑌m 𝑋) × (𝑋m 𝑌))
4433, 43ssexi 5279 . . 3 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ∈ V
4515, 29, 30, 44ovmpo 7515 . 2 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → (𝑈adj𝑊) = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
461, 45eqtrid 2788 1 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → 𝐴 = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1087   = wceq 1541  wcel 2106  wral 3064  {copab 5167   × cxp 5631  wf 6492  cfv 6496  (class class class)co 7357  m cmap 8765  NrmCVeccnv 29526  BaseSetcba 29528  ·𝑖OLDcdip 29642  adjcaj 29690
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-rab 3408  df-v 3447  df-sbc 3740  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-br 5106  df-opab 5168  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-fv 6504  df-ov 7360  df-oprab 7361  df-mpo 7362  df-map 8767  df-aj 29692
This theorem is referenced by:  ajfuni  29801  ajval  29803
  Copyright terms: Public domain W3C validator