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

Theorem ajfval 28744
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 6674 . . . . . . 7 (𝑢 = 𝑈 → (BaseSet‘𝑢) = (BaseSet‘𝑈))
3 ajfval.1 . . . . . . 7 𝑋 = (BaseSet‘𝑈)
42, 3eqtr4di 2791 . . . . . 6 (𝑢 = 𝑈 → (BaseSet‘𝑢) = 𝑋)
54feq2d 6490 . . . . 5 (𝑢 = 𝑈 → (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋⟶(BaseSet‘𝑤)))
64feq3d 6491 . . . . 5 (𝑢 = 𝑈 → (𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ↔ 𝑠:(BaseSet‘𝑤)⟶𝑋))
7 fveq2 6674 . . . . . . . . . 10 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = (·𝑖OLD𝑈))
8 ajfval.3 . . . . . . . . . 10 𝑃 = (·𝑖OLD𝑈)
97, 8eqtr4di 2791 . . . . . . . . 9 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = 𝑃)
109oveqd 7187 . . . . . . . 8 (𝑢 = 𝑈 → (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) = (𝑥𝑃(𝑠𝑦)))
1110eqeq2d 2749 . . . . . . 7 (𝑢 = 𝑈 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
1211ralbidv 3109 . . . . . 6 (𝑢 = 𝑈 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
134, 12raleqbidv 3304 . . . . 5 (𝑢 = 𝑈 → (∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
145, 6, 133anbi123d 1437 . . . 4 (𝑢 = 𝑈 → ((𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦))) ↔ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))))
1514opabbidv 5096 . . 3 (𝑢 = 𝑈 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))})
16 fveq2 6674 . . . . . . 7 (𝑤 = 𝑊 → (BaseSet‘𝑤) = (BaseSet‘𝑊))
17 ajfval.2 . . . . . . 7 𝑌 = (BaseSet‘𝑊)
1816, 17eqtr4di 2791 . . . . . 6 (𝑤 = 𝑊 → (BaseSet‘𝑤) = 𝑌)
1918feq3d 6491 . . . . 5 (𝑤 = 𝑊 → (𝑡:𝑋⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋𝑌))
2018feq2d 6490 . . . . 5 (𝑤 = 𝑊 → (𝑠:(BaseSet‘𝑤)⟶𝑋𝑠:𝑌𝑋))
21 fveq2 6674 . . . . . . . . . 10 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = (·𝑖OLD𝑊))
22 ajfval.4 . . . . . . . . . 10 𝑄 = (·𝑖OLD𝑊)
2321, 22eqtr4di 2791 . . . . . . . . 9 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = 𝑄)
2423oveqd 7187 . . . . . . . 8 (𝑤 = 𝑊 → ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = ((𝑡𝑥)𝑄𝑦))
2524eqeq1d 2740 . . . . . . 7 (𝑤 = 𝑊 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2618, 25raleqbidv 3304 . . . . . 6 (𝑤 = 𝑊 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2726ralbidv 3109 . . . . 5 (𝑤 = 𝑊 → (∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2819, 20, 273anbi123d 1437 . . . 4 (𝑤 = 𝑊 → ((𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))))
2928opabbidv 5096 . . 3 (𝑤 = 𝑊 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
30 df-aj 28685 . . 3 adj = (𝑢 ∈ NrmCVec, 𝑤 ∈ NrmCVec ↦ {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))})
31 ovex 7203 . . . . 5 (𝑌m 𝑋) ∈ V
32 ovex 7203 . . . . 5 (𝑋m 𝑌) ∈ V
3331, 32xpex 7494 . . . 4 ((𝑌m 𝑋) × (𝑋m 𝑌)) ∈ V
3417fvexi 6688 . . . . . . . . . 10 𝑌 ∈ V
353fvexi 6688 . . . . . . . . . 10 𝑋 ∈ V
3634, 35elmap 8481 . . . . . . . . 9 (𝑡 ∈ (𝑌m 𝑋) ↔ 𝑡:𝑋𝑌)
3735, 34elmap 8481 . . . . . . . . 9 (𝑠 ∈ (𝑋m 𝑌) ↔ 𝑠:𝑌𝑋)
3836, 37anbi12i 630 . . . . . . . 8 ((𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋))
3938biimpri 231 . . . . . . 7 ((𝑡:𝑋𝑌𝑠:𝑌𝑋) → (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)))
40393adant3 1133 . . . . . 6 ((𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))) → (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌)))
4140ssopab2i 5405 . . . . 5 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌))}
42 df-xp 5531 . . . . 5 ((𝑌m 𝑋) × (𝑋m 𝑌)) = {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌m 𝑋) ∧ 𝑠 ∈ (𝑋m 𝑌))}
4341, 42sseqtrri 3914 . . . 4 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ ((𝑌m 𝑋) × (𝑋m 𝑌))
4433, 43ssexi 5190 . . 3 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ∈ V
4515, 29, 30, 44ovmpo 7325 . 2 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → (𝑈adj𝑊) = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
461, 45syl5eq 2785 1 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → 𝐴 = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 399  w3a 1088   = wceq 1542  wcel 2114  wral 3053  {copab 5092   × cxp 5523  wf 6335  cfv 6339  (class class class)co 7170  m cmap 8437  NrmCVeccnv 28519  BaseSetcba 28521  ·𝑖OLDcdip 28635  adjcaj 28683
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ral 3058  df-rex 3059  df-rab 3062  df-v 3400  df-sbc 3681  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-op 4523  df-uni 4797  df-br 5031  df-opab 5093  df-id 5429  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-fv 6347  df-ov 7173  df-oprab 7174  df-mpo 7175  df-map 8439  df-aj 28685
This theorem is referenced by:  ajfuni  28794  ajval  28796
  Copyright terms: Public domain W3C validator