Users' Mathboxes Mathbox for Zhi Wang < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  2oppf Structured version   Visualization version   GIF version

Theorem 2oppf 49951
Description: The double opposite functor is the original functor. Remark 3.42 of [Adamek] p. 39. (Contributed by Zhi Wang, 14-Nov-2025.)
Hypotheses
Ref Expression
oppfrcl.1 (𝜑𝐺𝑅)
oppfrcl.2 Rel 𝑅
oppfrcl.3 𝐺 = ( oppFunc ‘𝐹)
Assertion
Ref Expression
2oppf (𝜑 → ( oppFunc ‘𝐺) = 𝐹)

Proof of Theorem 2oppf
StepHypRef Expression
1 fvex 6901 . . 3 (1st𝐹) ∈ V
2 fvex 6901 . . . 4 (2nd𝐹) ∈ V
32tposex 8265 . . 3 tpos (2nd𝐹) ∈ V
4 oppfvalg 49945 . . 3 (((1st𝐹) ∈ V ∧ tpos (2nd𝐹) ∈ V) → ((1st𝐹) oppFunc tpos (2nd𝐹)) = if((Rel tpos (2nd𝐹) ∧ Rel dom tpos (2nd𝐹)), ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩, ∅))
51, 3, 4mp2an 705 . 2 ((1st𝐹) oppFunc tpos (2nd𝐹)) = if((Rel tpos (2nd𝐹) ∧ Rel dom tpos (2nd𝐹)), ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩, ∅)
6 df-ov 7426 . . 3 ((1st𝐹) oppFunc tpos (2nd𝐹)) = ( oppFunc ‘⟨(1st𝐹), tpos (2nd𝐹)⟩)
7 oppfrcl.1 . . . . . 6 (𝜑𝐺𝑅)
8 oppfrcl.2 . . . . . 6 Rel 𝑅
9 oppfrcl.3 . . . . . 6 𝐺 = ( oppFunc ‘𝐹)
107, 8, 9oppfrcl 49947 . . . . . . 7 (𝜑𝐹 ∈ (V × V))
11 1st2nd2 8034 . . . . . . 7 (𝐹 ∈ (V × V) → 𝐹 = ⟨(1st𝐹), (2nd𝐹)⟩)
1210, 11syl 18 . . . . . 6 (𝜑𝐹 = ⟨(1st𝐹), (2nd𝐹)⟩)
137, 8, 9, 12oppf1st2nd 49950 . . . . 5 (𝜑 → (𝐺 ∈ (V × V) ∧ ((1st𝐺) = (1st𝐹) ∧ (2nd𝐺) = tpos (2nd𝐹))))
14 eqopi 8031 . . . . 5 ((𝐺 ∈ (V × V) ∧ ((1st𝐺) = (1st𝐹) ∧ (2nd𝐺) = tpos (2nd𝐹))) → 𝐺 = ⟨(1st𝐹), tpos (2nd𝐹)⟩)
1513, 14syl 18 . . . 4 (𝜑𝐺 = ⟨(1st𝐹), tpos (2nd𝐹)⟩)
1615fveq2d 6892 . . 3 (𝜑 → ( oppFunc ‘𝐺) = ( oppFunc ‘⟨(1st𝐹), tpos (2nd𝐹)⟩))
176, 16eqtr4id 2820 . 2 (𝜑 → ((1st𝐹) oppFunc tpos (2nd𝐹)) = ( oppFunc ‘𝐺))
187, 8, 9, 12oppfrcl3 49949 . . . . 5 (𝜑 → (Rel (2nd𝐹) ∧ Rel dom (2nd𝐹)))
19 tpostpos2 8252 . . . . 5 ((Rel (2nd𝐹) ∧ Rel dom (2nd𝐹)) → tpos tpos (2nd𝐹) = (2nd𝐹))
2018, 19syl 18 . . . 4 (𝜑 → tpos tpos (2nd𝐹) = (2nd𝐹))
2120opeq2d 4850 . . 3 (𝜑 → ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩ = ⟨(1st𝐹), (2nd𝐹)⟩)
22 0nelrel0 5726 . . . . . . 7 (Rel dom (2nd𝐹) → ¬ ∅ ∈ dom (2nd𝐹))
2318, 22simpl2im 513 . . . . . 6 (𝜑 → ¬ ∅ ∈ dom (2nd𝐹))
24 reldmtpos 8239 . . . . . 6 (Rel dom tpos (2nd𝐹) ↔ ¬ ∅ ∈ dom (2nd𝐹))
2523, 24sylibr 237 . . . . 5 (𝜑 → Rel dom tpos (2nd𝐹))
26 reltpos 8236 . . . . 5 Rel tpos (2nd𝐹)
2725, 26jctil 529 . . . 4 (𝜑 → (Rel tpos (2nd𝐹) ∧ Rel dom tpos (2nd𝐹)))
2827iftrued 4500 . . 3 (𝜑 → if((Rel tpos (2nd𝐹) ∧ Rel dom tpos (2nd𝐹)), ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩, ∅) = ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩)
2921, 28, 123eqtr4d 2811 . 2 (𝜑 → if((Rel tpos (2nd𝐹) ∧ Rel dom tpos (2nd𝐹)), ⟨(1st𝐹), tpos tpos (2nd𝐹)⟩, ∅) = 𝐹)
305, 17, 293eqtr3a 2825 1 (𝜑 → ( oppFunc ‘𝐺) = 𝐹)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wa 401   = wceq 1570  wcel 2146  Vcvv 3458  c0 4289  ifcif 4492  cop 4600   × cxp 5664  dom cdm 5666  Rel wrel 5671  cfv 6543  (class class class)co 7423  1st c1st 7993  2nd c2nd 7994  tpos ctpos 8230   oppFunc coppf 49941
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-fv 6551  df-ov 7426  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996  df-tpos 8231  df-oppf 49942
This theorem is used by:  oppff1  49967  oppff1o  49968  natoppfb  50050  cmddu  50487
  Copyright terms: Public domain W3C validator