HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem oprabvalig 3048
Description: The value of an operation abstraction (weak version).
Hypotheses
Ref Expression
oprabvalig.1 (x = A → (φψ))
oprabvalig.2 (y = B → (ψχ))
oprabvalig.3 (z = C → (χθ))
oprabvalig.4 ((xRyS) → ∃*zφ)
oprabvalig.5 F = {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)}
Assertion
Ref Expression
oprabvalig ((ARBSCD) → (θ → (AFB) = C))
Distinct variable group(s):   x,y,z,A   x,B,y,z   x,C,y,z   x,R,y,z   x,S,y,z   x,D,y,z   ψ,x   χ,x,y   θ,x,y,z

Proof of Theorem oprabvalig
StepHypRef Expression
1 eleq1 1149 . . . . . . . . . . 11 (x = A → (xRAR))
21anbi1d 469 . . . . . . . . . 10 (x = A → ((xRyS) ↔ (ARyS)))
3 oprabvalig.1 . . . . . . . . . 10 (x = A → (φψ))
42, 3anbi12d 476 . . . . . . . . 9 (x = A → (((xRyS) ∧ φ) ↔ ((ARyS) ∧ ψ)))
5 eleq1 1149 . . . . . . . . . . 11 (y = B → (ySBS))
65anbi2d 468 . . . . . . . . . 10 (y = B → ((ARyS) ↔ (ARBS)))
7 oprabvalig.2 . . . . . . . . . 10 (y = B → (ψχ))
86, 7anbi12d 476 . . . . . . . . 9 (y = B → (((ARyS) ∧ ψ) ↔ ((ARBS) ∧ χ)))
9 oprabvalig.3 . . . . . . . . . 10 (z = C → (χθ))
109anbi2d 468 . . . . . . . . 9 (z = C → (((ARBS) ∧ χ) ↔ ((ARBS) ∧ θ)))
114, 8, 10eloprabg 3035 . . . . . . . 8 ((ARBSCD) → (⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ↔ ((ARBS) ∧ θ)))
1211biimpar 325 . . . . . . 7 (((ARBSCD) ∧ ((ARBS) ∧ θ)) → ⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)})
1312exp32 294 . . . . . 6 ((ARBSCD) → ((ARBS) → (θ → ⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)})))
1413com12 13 . . . . 5 ((ARBS) → ((ARBSCD) → (θ → ⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)})))
15143adant3 599 . . . 4 ((ARBSCD) → ((ARBSCD) → (θ → ⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)})))
1615pm2.43i 58 . . 3 ((ARBSCD) → (θ → ⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)}))
17 oprabvalig.4 . . . . . . . 8 ((xRyS) → ∃*zφ)
18 moanimv 1052 . . . . . . . 8 (∃*z((xRyS) ∧ φ) ↔ ((xRyS) → ∃*zφ))
1917, 18mpbir 165 . . . . . . 7 ∃*z((xRyS) ∧ φ)
2019funoprab 3037 . . . . . 6 Fun {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)}
21 funopfvg 2854 . . . . . 6 ((CD ∧ Fun {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)}) → (⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} → ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C))
2220, 21mpan2 519 . . . . 5 (CD → (⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} → ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C))
2322adantl 305 . . . 4 ((BSCD) → (⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} → ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C))
24233adant1 597 . . 3 ((ARBSCD) → (⟨⟨A, B⟩, C⟩ ∈ {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} → ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C))
2516, 24syld 27 . 2 ((ARBSCD) → (θ → ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C))
26 df-opr 3003 . . . 4 (AFB) = (F ‘⟨A, B⟩)
27 oprabvalig.5 . . . . 5 F = {⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)}
2827fveq1i 2833 . . . 4 (F ‘⟨A, B⟩) = ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩)
2926, 28eqtr 1119 . . 3 (AFB) = ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩)
3029cleq1i 1108 . 2 ((AFB) = C ↔ ({⟨⟨x, y⟩, z⟩∣((xRyS) ∧ φ)} ‘⟨A, B⟩) = C)
3125, 30syl6ibr 186 1 ((ARBSCD) → (θ → (AFB) = C))
Colors of variables: wff set class
Syntax hints:   → wi 2   ↔ wb 127   ∧ wa 196   ∧ w3a 581  ∃*wmo 1008   = wceq 1091   ∈ wcel 1092  ⟨cop 1810  Fun wfun 2416   ‘cfv 2422  (class class class)co 3001  {copab2 3002
This theorem is referenced by:  oprabvali 3049  oprabval2g 3050
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-pow 1077
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-3an 583  df-ex 679  df-sb 853  df-eu 1009  df-mo 1010  df-clab 1093  df-cleq 1097  df-clel 1099  df-rex 1206  df-v 1349  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-nul 1708  df-pw 1799  df-sn 1811  df-pr 1812  df-op 1815  df-uni 1920  df-br 2063  df-opab 2098  df-id 2125  df-xp 2424  df-rel 2425  df-cnv 2426  df-co 2427  df-dm 2428  df-rn 2429  df-res 2430  df-ima 2431  df-fun 2432  df-fv 2438  df-opr 3003  df-oprab 3004
metamath.org