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

Theorem oviec 6501
Description: Express an operation on equivalence classes of ordered pairs in terms of equivalence class of operations on ordered pairs. See iset.mm for additional comments describing the hypotheses. (Unnecessary distinct variable restrictions were removed by David Abernethy, 4-Jun-2013.) (Contributed by NM, 6-Aug-1995.) (Revised by Mario Carneiro, 4-Jun-2013.)
Hypotheses
Ref Expression
oviec.1 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → 𝐻 ∈ (𝑆 × 𝑆))
oviec.2 (((𝑎𝑆𝑏𝑆) ∧ (𝑔𝑆𝑆)) → 𝐾 ∈ (𝑆 × 𝑆))
oviec.3 (((𝑐𝑆𝑑𝑆) ∧ (𝑡𝑆𝑠𝑆)) → 𝐿 ∈ (𝑆 × 𝑆))
oviec.4 ∈ V
oviec.5 Er (𝑆 × 𝑆)
oviec.7 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}
oviec.8 (((𝑧 = 𝑎𝑤 = 𝑏) ∧ (𝑣 = 𝑐𝑢 = 𝑑)) → (𝜑𝜓))
oviec.9 (((𝑧 = 𝑔𝑤 = ) ∧ (𝑣 = 𝑡𝑢 = 𝑠)) → (𝜑𝜒))
oviec.10 + = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑤𝑣𝑢𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝐽))}
oviec.11 (((𝑤 = 𝑎𝑣 = 𝑏) ∧ (𝑢 = 𝑔𝑓 = )) → 𝐽 = 𝐾)
oviec.12 (((𝑤 = 𝑐𝑣 = 𝑑) ∧ (𝑢 = 𝑡𝑓 = 𝑠)) → 𝐽 = 𝐿)
oviec.13 (((𝑤 = 𝐴𝑣 = 𝐵) ∧ (𝑢 = 𝐶𝑓 = 𝐷)) → 𝐽 = 𝐻)
oviec.14 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥𝑄𝑦𝑄) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] ))}
oviec.15 𝑄 = ((𝑆 × 𝑆) / )
oviec.16 ((((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) ∧ ((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((𝜓𝜒) → 𝐾 𝐿))
Assertion
Ref Expression
oviec (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → ([⟨𝐴, 𝐵⟩] [⟨𝐶, 𝐷⟩] ) = [𝐻] )
Distinct variable groups:   𝑎,𝑏,𝑐,𝑑,𝑓,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧,𝐶   𝐷,𝑎,𝑏,𝑐,𝑑,𝑓,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝑥,𝐽,𝑦,𝑧   𝑔,𝑎,,𝐴,𝑏,𝑐,𝑑,𝑓,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝜒,𝑢,𝑣,𝑤,𝑧   𝑓,𝐻,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝐵,𝑎,𝑏,𝑐,𝑑,𝑓,𝑔,,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝑓,𝐾,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝜓,𝑢,𝑣,𝑤,𝑧   𝑓,𝐿,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝜑,𝑥,𝑦   𝑠,𝑎,𝑡,𝑆,𝑏,𝑐,𝑑,𝑓,𝑔,,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   + ,𝑎,𝑏,𝑐,𝑑,𝑔,,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑎,𝑏,𝑐,𝑑,𝑔,,𝑠,𝑡,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑧,𝑤,𝑣,𝑢,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝜓(𝑥,𝑦,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝜒(𝑥,𝑦,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝐴(𝑡,𝑠)   𝐵(𝑡,𝑠)   𝐶(𝑡,𝑔,,𝑠)   𝐷(𝑡,𝑔,,𝑠)   + (𝑤,𝑣,𝑢,𝑓)   (𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝑄(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   (𝑤,𝑣,𝑢,𝑓)   𝐻(𝑡,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝐽(𝑤,𝑣,𝑢,𝑡,𝑓,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝐾(𝑡,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)   𝐿(𝑡,𝑔,,𝑠,𝑎,𝑏,𝑐,𝑑)

Proof of Theorem oviec
StepHypRef Expression
1 oviec.4 . . 3 ∈ V
2 oviec.5 . . 3 Er (𝑆 × 𝑆)
3 oviec.16 . . . 4 ((((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) ∧ ((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((𝜓𝜒) → 𝐾 𝐿))
4 oviec.8 . . . . . 6 (((𝑧 = 𝑎𝑤 = 𝑏) ∧ (𝑣 = 𝑐𝑢 = 𝑑)) → (𝜑𝜓))
5 oviec.7 . . . . . 6 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}
64, 5opbrop 4586 . . . . 5 (((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) → (⟨𝑎, 𝑏𝑐, 𝑑⟩ ↔ 𝜓))
7 oviec.9 . . . . . 6 (((𝑧 = 𝑔𝑤 = ) ∧ (𝑣 = 𝑡𝑢 = 𝑠)) → (𝜑𝜒))
87, 5opbrop 4586 . . . . 5 (((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆)) → (⟨𝑔, 𝑡, 𝑠⟩ ↔ 𝜒))
96, 8bi2anan9 578 . . . 4 ((((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) ∧ ((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((⟨𝑎, 𝑏𝑐, 𝑑⟩ ∧ ⟨𝑔, 𝑡, 𝑠⟩) ↔ (𝜓𝜒)))
10 oviec.2 . . . . . . 7 (((𝑎𝑆𝑏𝑆) ∧ (𝑔𝑆𝑆)) → 𝐾 ∈ (𝑆 × 𝑆))
11 oviec.11 . . . . . . 7 (((𝑤 = 𝑎𝑣 = 𝑏) ∧ (𝑢 = 𝑔𝑓 = )) → 𝐽 = 𝐾)
12 oviec.10 . . . . . . 7 + = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑤𝑣𝑢𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝐽))}
1310, 11, 12ovi3 5873 . . . . . 6 (((𝑎𝑆𝑏𝑆) ∧ (𝑔𝑆𝑆)) → (⟨𝑎, 𝑏+𝑔, ⟩) = 𝐾)
14 oviec.3 . . . . . . 7 (((𝑐𝑆𝑑𝑆) ∧ (𝑡𝑆𝑠𝑆)) → 𝐿 ∈ (𝑆 × 𝑆))
15 oviec.12 . . . . . . 7 (((𝑤 = 𝑐𝑣 = 𝑑) ∧ (𝑢 = 𝑡𝑓 = 𝑠)) → 𝐽 = 𝐿)
1614, 15, 12ovi3 5873 . . . . . 6 (((𝑐𝑆𝑑𝑆) ∧ (𝑡𝑆𝑠𝑆)) → (⟨𝑐, 𝑑+𝑡, 𝑠⟩) = 𝐿)
1713, 16breqan12d 3913 . . . . 5 ((((𝑎𝑆𝑏𝑆) ∧ (𝑔𝑆𝑆)) ∧ ((𝑐𝑆𝑑𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((⟨𝑎, 𝑏+𝑔, ⟩) (⟨𝑐, 𝑑+𝑡, 𝑠⟩) ↔ 𝐾 𝐿))
1817an4s 560 . . . 4 ((((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) ∧ ((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((⟨𝑎, 𝑏+𝑔, ⟩) (⟨𝑐, 𝑑+𝑡, 𝑠⟩) ↔ 𝐾 𝐿))
193, 9, 183imtr4d 202 . . 3 ((((𝑎𝑆𝑏𝑆) ∧ (𝑐𝑆𝑑𝑆)) ∧ ((𝑔𝑆𝑆) ∧ (𝑡𝑆𝑠𝑆))) → ((⟨𝑎, 𝑏𝑐, 𝑑⟩ ∧ ⟨𝑔, 𝑡, 𝑠⟩) → (⟨𝑎, 𝑏+𝑔, ⟩) (⟨𝑐, 𝑑+𝑡, 𝑠⟩)))
20 oviec.14 . . . 4 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥𝑄𝑦𝑄) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] ))}
21 oviec.15 . . . . . . . 8 𝑄 = ((𝑆 × 𝑆) / )
2221eleq2i 2182 . . . . . . 7 (𝑥𝑄𝑥 ∈ ((𝑆 × 𝑆) / ))
2321eleq2i 2182 . . . . . . 7 (𝑦𝑄𝑦 ∈ ((𝑆 × 𝑆) / ))
2422, 23anbi12i 453 . . . . . 6 ((𝑥𝑄𝑦𝑄) ↔ (𝑥 ∈ ((𝑆 × 𝑆) / ) ∧ 𝑦 ∈ ((𝑆 × 𝑆) / )))
2524anbi1i 451 . . . . 5 (((𝑥𝑄𝑦𝑄) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] )) ↔ ((𝑥 ∈ ((𝑆 × 𝑆) / ) ∧ 𝑦 ∈ ((𝑆 × 𝑆) / )) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] )))
2625oprabbii 5792 . . . 4 {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥𝑄𝑦𝑄) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] ))} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((𝑆 × 𝑆) / ) ∧ 𝑦 ∈ ((𝑆 × 𝑆) / )) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] ))}
2720, 26eqtri 2136 . . 3 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ ((𝑆 × 𝑆) / ) ∧ 𝑦 ∈ ((𝑆 × 𝑆) / )) ∧ ∃𝑎𝑏𝑐𝑑((𝑥 = [⟨𝑎, 𝑏⟩] 𝑦 = [⟨𝑐, 𝑑⟩] ) ∧ 𝑧 = [(⟨𝑎, 𝑏+𝑐, 𝑑⟩)] ))}
281, 2, 19, 27th3q 6500 . 2 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → ([⟨𝐴, 𝐵⟩] [⟨𝐶, 𝐷⟩] ) = [(⟨𝐴, 𝐵+𝐶, 𝐷⟩)] )
29 oviec.1 . . . 4 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → 𝐻 ∈ (𝑆 × 𝑆))
30 oviec.13 . . . 4 (((𝑤 = 𝐴𝑣 = 𝐵) ∧ (𝑢 = 𝐶𝑓 = 𝐷)) → 𝐽 = 𝐻)
3129, 30, 12ovi3 5873 . . 3 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → (⟨𝐴, 𝐵+𝐶, 𝐷⟩) = 𝐻)
3231eceq1d 6431 . 2 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → [(⟨𝐴, 𝐵+𝐶, 𝐷⟩)] = [𝐻] )
3328, 32eqtrd 2148 1 (((𝐴𝑆𝐵𝑆) ∧ (𝐶𝑆𝐷𝑆)) → ([⟨𝐴, 𝐵⟩] [⟨𝐶, 𝐷⟩] ) = [𝐻] )
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104   = wceq 1314  wex 1451  wcel 1463  Vcvv 2658  cop 3498   class class class wbr 3897  {copab 3956   × cxp 4505  (class class class)co 5740  {coprab 5741   Er wer 6392  [cec 6393   / cqs 6394
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-sep 4014  ax-pow 4066  ax-pr 4099  ax-un 4323  ax-setind 4420
This theorem depends on definitions:  df-bi 116  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ne 2284  df-ral 2396  df-rex 2397  df-v 2660  df-sbc 2881  df-dif 3041  df-un 3043  df-in 3045  df-ss 3052  df-pw 3480  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-br 3898  df-opab 3958  df-id 4183  df-xp 4513  df-rel 4514  df-cnv 4515  df-co 4516  df-dm 4517  df-rn 4518  df-res 4519  df-ima 4520  df-iota 5056  df-fun 5093  df-fv 5099  df-ov 5743  df-oprab 5744  df-er 6395  df-ec 6397  df-qs 6401
This theorem is referenced by:  addpipqqs  7142  mulpipqqs  7145
  Copyright terms: Public domain W3C validator