ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ovi3 Structured version   GIF version

Theorem ovi3 5579
Description: The value of an operation class abstraction. Special case. (Contributed by NM, 28-May-1995.) (Revised by Mario Carneiro, 29-Dec-2014.)
Hypotheses
Ref Expression
ovi3.1 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → 𝑆 (𝐻 × 𝐻))
ovi3.2 (((w = A v = B) (u = 𝐶 f = 𝐷)) → 𝑅 = 𝑆)
ovi3.3 𝐹 = {⟨⟨x, y⟩, z⟩ ∣ ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))}
Assertion
Ref Expression
ovi3 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆)
Distinct variable groups:   u,f,v,w,x,y,z,A   B,f,u,v,w,x,y,z   x,𝑅,y,z   𝐶,f,u,v,w,y,z   𝐷,f,u,v,w,y,z   f,𝐻,u,v,w,x,y,z   𝑆,f,u,v,w,z
Allowed substitution hints:   𝐶(x)   𝐷(x)   𝑅(w,v,u,f)   𝑆(x,y)   𝐹(x,y,z,w,v,u,f)

Proof of Theorem ovi3
StepHypRef Expression
1 ovi3.1 . . . 4 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → 𝑆 (𝐻 × 𝐻))
2 elex 2560 . . . 4 (𝑆 (𝐻 × 𝐻) → 𝑆 V)
31, 2syl 14 . . 3 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → 𝑆 V)
4 isset 2555 . . 3 (𝑆 V ↔ z z = 𝑆)
53, 4sylib 127 . 2 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → z z = 𝑆)
6 nfv 1418 . . 3 z((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻))
7 nfcv 2175 . . . . 5 zA, B
8 ovi3.3 . . . . . 6 𝐹 = {⟨⟨x, y⟩, z⟩ ∣ ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))}
9 nfoprab3 5498 . . . . . 6 z{⟨⟨x, y⟩, z⟩ ∣ ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))}
108, 9nfcxfr 2172 . . . . 5 z𝐹
11 nfcv 2175 . . . . 5 z𝐶, 𝐷
127, 10, 11nfov 5478 . . . 4 z(⟨A, B𝐹𝐶, 𝐷⟩)
1312nfeq1 2184 . . 3 z(⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆
14 ovi3.2 . . . . . . 7 (((w = A v = B) (u = 𝐶 f = 𝐷)) → 𝑅 = 𝑆)
1514eqeq2d 2048 . . . . . 6 (((w = A v = B) (u = 𝐶 f = 𝐷)) → (z = 𝑅z = 𝑆))
1615copsex4g 3975 . . . . 5 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅) ↔ z = 𝑆))
17 opelxpi 4319 . . . . . 6 ((A 𝐻 B 𝐻) → ⟨A, B (𝐻 × 𝐻))
18 opelxpi 4319 . . . . . 6 ((𝐶 𝐻 𝐷 𝐻) → ⟨𝐶, 𝐷 (𝐻 × 𝐻))
19 nfcv 2175 . . . . . . 7 xA, B
20 nfcv 2175 . . . . . . 7 yA, B
21 nfcv 2175 . . . . . . 7 y𝐶, 𝐷
22 nfv 1418 . . . . . . . 8 xwvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅)
23 nfoprab1 5496 . . . . . . . . . . 11 x{⟨⟨x, y⟩, z⟩ ∣ ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))}
248, 23nfcxfr 2172 . . . . . . . . . 10 x𝐹
25 nfcv 2175 . . . . . . . . . 10 xy
2619, 24, 25nfov 5478 . . . . . . . . 9 x(⟨A, B𝐹y)
2726nfeq1 2184 . . . . . . . 8 x(⟨A, B𝐹y) = z
2822, 27nfim 1461 . . . . . . 7 x(wvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹y) = z)
29 nfv 1418 . . . . . . . 8 ywvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅)
30 nfoprab2 5497 . . . . . . . . . . 11 y{⟨⟨x, y⟩, z⟩ ∣ ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))}
318, 30nfcxfr 2172 . . . . . . . . . 10 y𝐹
3220, 31, 21nfov 5478 . . . . . . . . 9 y(⟨A, B𝐹𝐶, 𝐷⟩)
3332nfeq1 2184 . . . . . . . 8 y(⟨A, B𝐹𝐶, 𝐷⟩) = z
3429, 33nfim 1461 . . . . . . 7 y(wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹𝐶, 𝐷⟩) = z)
35 eqeq1 2043 . . . . . . . . . . 11 (x = ⟨A, B⟩ → (x = ⟨w, v⟩ ↔ ⟨A, B⟩ = ⟨w, v⟩))
3635anbi1d 438 . . . . . . . . . 10 (x = ⟨A, B⟩ → ((x = ⟨w, v y = ⟨u, f⟩) ↔ (⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩)))
3736anbi1d 438 . . . . . . . . 9 (x = ⟨A, B⟩ → (((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ ((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅)))
38374exbidv 1747 . . . . . . . 8 (x = ⟨A, B⟩ → (wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ wvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅)))
39 oveq1 5462 . . . . . . . . 9 (x = ⟨A, B⟩ → (x𝐹y) = (⟨A, B𝐹y))
4039eqeq1d 2045 . . . . . . . 8 (x = ⟨A, B⟩ → ((x𝐹y) = z ↔ (⟨A, B𝐹y) = z))
4138, 40imbi12d 223 . . . . . . 7 (x = ⟨A, B⟩ → ((wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) → (x𝐹y) = z) ↔ (wvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹y) = z)))
42 eqeq1 2043 . . . . . . . . . . 11 (y = ⟨𝐶, 𝐷⟩ → (y = ⟨u, f⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨u, f⟩))
4342anbi2d 437 . . . . . . . . . 10 (y = ⟨𝐶, 𝐷⟩ → ((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) ↔ (⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩)))
4443anbi1d 438 . . . . . . . . 9 (y = ⟨𝐶, 𝐷⟩ → (((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ ((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅)))
45444exbidv 1747 . . . . . . . 8 (y = ⟨𝐶, 𝐷⟩ → (wvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅)))
46 oveq2 5463 . . . . . . . . 9 (y = ⟨𝐶, 𝐷⟩ → (⟨A, B𝐹y) = (⟨A, B𝐹𝐶, 𝐷⟩))
4746eqeq1d 2045 . . . . . . . 8 (y = ⟨𝐶, 𝐷⟩ → ((⟨A, B𝐹y) = z ↔ (⟨A, B𝐹𝐶, 𝐷⟩) = z))
4845, 47imbi12d 223 . . . . . . 7 (y = ⟨𝐶, 𝐷⟩ → ((wvuf((⟨A, B⟩ = ⟨w, v y = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹y) = z) ↔ (wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹𝐶, 𝐷⟩) = z)))
49 moeq 2710 . . . . . . . . . . . 12 ∃*z z = 𝑅
5049mosubop 4349 . . . . . . . . . . 11 ∃*zuf(y = ⟨u, f z = 𝑅)
5150mosubop 4349 . . . . . . . . . 10 ∃*zwv(x = ⟨w, v uf(y = ⟨u, f z = 𝑅))
52 anass 381 . . . . . . . . . . . . . 14 (((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ (x = ⟨w, v (y = ⟨u, f z = 𝑅)))
53522exbii 1494 . . . . . . . . . . . . 13 (uf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ uf(x = ⟨w, v (y = ⟨u, f z = 𝑅)))
54 19.42vv 1785 . . . . . . . . . . . . 13 (uf(x = ⟨w, v (y = ⟨u, f z = 𝑅)) ↔ (x = ⟨w, v uf(y = ⟨u, f z = 𝑅)))
5553, 54bitri 173 . . . . . . . . . . . 12 (uf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ (x = ⟨w, v uf(y = ⟨u, f z = 𝑅)))
56552exbii 1494 . . . . . . . . . . 11 (wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ wv(x = ⟨w, v uf(y = ⟨u, f z = 𝑅)))
5756mobii 1934 . . . . . . . . . 10 (∃*zwvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) ↔ ∃*zwv(x = ⟨w, v uf(y = ⟨u, f z = 𝑅)))
5851, 57mpbir 134 . . . . . . . . 9 ∃*zwvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅)
5958a1i 9 . . . . . . . 8 ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) → ∃*zwvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅))
6059, 8ovidi 5561 . . . . . . 7 ((x (𝐻 × 𝐻) y (𝐻 × 𝐻)) → (wvuf((x = ⟨w, v y = ⟨u, f⟩) z = 𝑅) → (x𝐹y) = z))
6119, 20, 21, 28, 34, 41, 48, 60vtocl2gaf 2614 . . . . . 6 ((⟨A, B (𝐻 × 𝐻) 𝐶, 𝐷 (𝐻 × 𝐻)) → (wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹𝐶, 𝐷⟩) = z))
6217, 18, 61syl2an 273 . . . . 5 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (wvuf((⟨A, B⟩ = ⟨w, v𝐶, 𝐷⟩ = ⟨u, f⟩) z = 𝑅) → (⟨A, B𝐹𝐶, 𝐷⟩) = z))
6316, 62sylbird 159 . . . 4 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (z = 𝑆 → (⟨A, B𝐹𝐶, 𝐷⟩) = z))
64 eqeq2 2046 . . . 4 (z = 𝑆 → ((⟨A, B𝐹𝐶, 𝐷⟩) = z ↔ (⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆))
6563, 64mpbidi 140 . . 3 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (z = 𝑆 → (⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆))
666, 13, 65exlimd 1485 . 2 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (z z = 𝑆 → (⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆))
675, 66mpd 13 1 (((A 𝐻 B 𝐻) (𝐶 𝐻 𝐷 𝐻)) → (⟨A, B𝐹𝐶, 𝐷⟩) = 𝑆)
Colors of variables: wff set class
Syntax hints:  wi 4   wa 97   = wceq 1242  wex 1378   wcel 1390  ∃*wmo 1898  Vcvv 2551  cop 3370   × cxp 4286  (class class class)co 5455  {coprab 5456
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 629  ax-5 1333  ax-7 1334  ax-gen 1335  ax-ie1 1379  ax-ie2 1380  ax-8 1392  ax-10 1393  ax-11 1394  ax-i12 1395  ax-bnd 1396  ax-4 1397  ax-14 1402  ax-17 1416  ax-i9 1420  ax-ial 1424  ax-i5r 1425  ax-ext 2019  ax-sep 3866  ax-pow 3918  ax-pr 3935  ax-setind 4220
This theorem depends on definitions:  df-bi 110  df-3an 886  df-tru 1245  df-fal 1248  df-nf 1347  df-sb 1643  df-eu 1900  df-mo 1901  df-clab 2024  df-cleq 2030  df-clel 2033  df-nfc 2164  df-ne 2203  df-ral 2305  df-rex 2306  df-v 2553  df-sbc 2759  df-dif 2914  df-un 2916  df-in 2918  df-ss 2925  df-pw 3353  df-sn 3373  df-pr 3374  df-op 3376  df-uni 3572  df-br 3756  df-opab 3810  df-id 4021  df-xp 4294  df-rel 4295  df-cnv 4296  df-co 4297  df-dm 4298  df-iota 4810  df-fun 4847  df-fv 4853  df-ov 5458  df-oprab 5459
This theorem is referenced by:  oviec  6148  addcnsr  6691  mulcnsr  6692
  Copyright terms: Public domain W3C validator