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

Theorem ajfval 28181
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 6409 . . . . . . 7 (𝑢 = 𝑈 → (BaseSet‘𝑢) = (BaseSet‘𝑈))
3 ajfval.1 . . . . . . 7 𝑋 = (BaseSet‘𝑈)
42, 3syl6eqr 2849 . . . . . 6 (𝑢 = 𝑈 → (BaseSet‘𝑢) = 𝑋)
54feq2d 6240 . . . . 5 (𝑢 = 𝑈 → (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋⟶(BaseSet‘𝑤)))
64feq3d 6241 . . . . 5 (𝑢 = 𝑈 → (𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ↔ 𝑠:(BaseSet‘𝑤)⟶𝑋))
7 fveq2 6409 . . . . . . . . . 10 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = (·𝑖OLD𝑈))
8 ajfval.3 . . . . . . . . . 10 𝑃 = (·𝑖OLD𝑈)
97, 8syl6eqr 2849 . . . . . . . . 9 (𝑢 = 𝑈 → (·𝑖OLD𝑢) = 𝑃)
109oveqd 6893 . . . . . . . 8 (𝑢 = 𝑈 → (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) = (𝑥𝑃(𝑠𝑦)))
1110eqeq2d 2807 . . . . . . 7 (𝑢 = 𝑈 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
1211ralbidv 3165 . . . . . 6 (𝑢 = 𝑈 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
134, 12raleqbidv 3333 . . . . 5 (𝑢 = 𝑈 → (∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))))
145, 6, 133anbi123d 1561 . . . 4 (𝑢 = 𝑈 → ((𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦))) ↔ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))))
1514opabbidv 4907 . . 3 (𝑢 = 𝑈 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))})
16 fveq2 6409 . . . . . . 7 (𝑤 = 𝑊 → (BaseSet‘𝑤) = (BaseSet‘𝑊))
17 ajfval.2 . . . . . . 7 𝑌 = (BaseSet‘𝑊)
1816, 17syl6eqr 2849 . . . . . 6 (𝑤 = 𝑊 → (BaseSet‘𝑤) = 𝑌)
1918feq3d 6241 . . . . 5 (𝑤 = 𝑊 → (𝑡:𝑋⟶(BaseSet‘𝑤) ↔ 𝑡:𝑋𝑌))
2018feq2d 6240 . . . . 5 (𝑤 = 𝑊 → (𝑠:(BaseSet‘𝑤)⟶𝑋𝑠:𝑌𝑋))
21 fveq2 6409 . . . . . . . . . 10 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = (·𝑖OLD𝑊))
22 ajfval.4 . . . . . . . . . 10 𝑄 = (·𝑖OLD𝑊)
2321, 22syl6eqr 2849 . . . . . . . . 9 (𝑤 = 𝑊 → (·𝑖OLD𝑤) = 𝑄)
2423oveqd 6893 . . . . . . . 8 (𝑤 = 𝑊 → ((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = ((𝑡𝑥)𝑄𝑦))
2524eqeq1d 2799 . . . . . . 7 (𝑤 = 𝑊 → (((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2618, 25raleqbidv 3333 . . . . . 6 (𝑤 = 𝑊 → (∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2726ralbidv 3165 . . . . 5 (𝑤 = 𝑊 → (∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)) ↔ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))))
2819, 20, 273anbi123d 1561 . . . 4 (𝑤 = 𝑊 → ((𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦))) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))))
2928opabbidv 4907 . . 3 (𝑤 = 𝑊 → {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶𝑋 ∧ ∀𝑥𝑋𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥𝑃(𝑠𝑦)))} = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
30 df-aj 28122 . . 3 adj = (𝑢 ∈ NrmCVec, 𝑤 ∈ NrmCVec ↦ {⟨𝑡, 𝑠⟩ ∣ (𝑡:(BaseSet‘𝑢)⟶(BaseSet‘𝑤) ∧ 𝑠:(BaseSet‘𝑤)⟶(BaseSet‘𝑢) ∧ ∀𝑥 ∈ (BaseSet‘𝑢)∀𝑦 ∈ (BaseSet‘𝑤)((𝑡𝑥)(·𝑖OLD𝑤)𝑦) = (𝑥(·𝑖OLD𝑢)(𝑠𝑦)))})
31 ovex 6908 . . . . 5 (𝑌𝑚 𝑋) ∈ V
32 ovex 6908 . . . . 5 (𝑋𝑚 𝑌) ∈ V
3331, 32xpex 7194 . . . 4 ((𝑌𝑚 𝑋) × (𝑋𝑚 𝑌)) ∈ V
3417fvexi 6423 . . . . . . . . . 10 𝑌 ∈ V
353fvexi 6423 . . . . . . . . . 10 𝑋 ∈ V
3634, 35elmap 8122 . . . . . . . . 9 (𝑡 ∈ (𝑌𝑚 𝑋) ↔ 𝑡:𝑋𝑌)
3735, 34elmap 8122 . . . . . . . . 9 (𝑠 ∈ (𝑋𝑚 𝑌) ↔ 𝑠:𝑌𝑋)
3836, 37anbi12i 621 . . . . . . . 8 ((𝑡 ∈ (𝑌𝑚 𝑋) ∧ 𝑠 ∈ (𝑋𝑚 𝑌)) ↔ (𝑡:𝑋𝑌𝑠:𝑌𝑋))
3938biimpri 220 . . . . . . 7 ((𝑡:𝑋𝑌𝑠:𝑌𝑋) → (𝑡 ∈ (𝑌𝑚 𝑋) ∧ 𝑠 ∈ (𝑋𝑚 𝑌)))
40393adant3 1163 . . . . . 6 ((𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦))) → (𝑡 ∈ (𝑌𝑚 𝑋) ∧ 𝑠 ∈ (𝑋𝑚 𝑌)))
4140ssopab2i 5197 . . . . 5 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌𝑚 𝑋) ∧ 𝑠 ∈ (𝑋𝑚 𝑌))}
42 df-xp 5316 . . . . 5 ((𝑌𝑚 𝑋) × (𝑋𝑚 𝑌)) = {⟨𝑡, 𝑠⟩ ∣ (𝑡 ∈ (𝑌𝑚 𝑋) ∧ 𝑠 ∈ (𝑋𝑚 𝑌))}
4341, 42sseqtr4i 3832 . . . 4 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ⊆ ((𝑌𝑚 𝑋) × (𝑋𝑚 𝑌))
4433, 43ssexi 4996 . . 3 {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))} ∈ V
4515, 29, 30, 44ovmpt2 7028 . 2 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → (𝑈adj𝑊) = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
461, 45syl5eq 2843 1 ((𝑈 ∈ NrmCVec ∧ 𝑊 ∈ NrmCVec) → 𝐴 = {⟨𝑡, 𝑠⟩ ∣ (𝑡:𝑋𝑌𝑠:𝑌𝑋 ∧ ∀𝑥𝑋𝑦𝑌 ((𝑡𝑥)𝑄𝑦) = (𝑥𝑃(𝑠𝑦)))})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 385  w3a 1108   = wceq 1653  wcel 2157  wral 3087  {copab 4903   × cxp 5308  wf 6095  cfv 6099  (class class class)co 6876  𝑚 cmap 8093  NrmCVeccnv 27956  BaseSetcba 27958  ·𝑖OLDcdip 28072  adjcaj 28120
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2354  ax-ext 2775  ax-sep 4973  ax-nul 4981  ax-pow 5033  ax-pr 5095  ax-un 7181
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2590  df-eu 2607  df-clab 2784  df-cleq 2790  df-clel 2793  df-nfc 2928  df-ral 3092  df-rex 3093  df-rab 3096  df-v 3385  df-sbc 3632  df-dif 3770  df-un 3772  df-in 3774  df-ss 3781  df-nul 4114  df-if 4276  df-pw 4349  df-sn 4367  df-pr 4369  df-op 4373  df-uni 4627  df-br 4842  df-opab 4904  df-id 5218  df-xp 5316  df-rel 5317  df-cnv 5318  df-co 5319  df-dm 5320  df-rn 5321  df-iota 6062  df-fun 6101  df-fn 6102  df-f 6103  df-fv 6107  df-ov 6879  df-oprab 6880  df-mpt2 6881  df-map 8095  df-aj 28122
This theorem is referenced by:  ajfuni  28232  ajval  28234
  Copyright terms: Public domain W3C validator