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

Theorem enq0ref 7382
Description: The equivalence relation for nonnegative fractions is reflexive. Lemma for enq0er 7384. (Contributed by Jim Kingdon, 14-Nov-2019.)
Assertion
Ref Expression
enq0ref (𝑓 ∈ (ω × N) ↔ 𝑓 ~Q0 𝑓)

Proof of Theorem enq0ref
Dummy variables 𝑢 𝑣 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elxpi 4625 . . . . . 6 (𝑓 ∈ (ω × N) → ∃𝑧𝑤(𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)))
2 elxpi 4625 . . . . . 6 (𝑓 ∈ (ω × N) → ∃𝑣𝑢(𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N)))
3 ee4anv 1927 . . . . . 6 (∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) ↔ (∃𝑧𝑤(𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ ∃𝑣𝑢(𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))))
41, 2, 3sylanbrc 415 . . . . 5 (𝑓 ∈ (ω × N) → ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))))
5 eqtr2 2189 . . . . . . . . . . . 12 ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) → ⟨𝑧, 𝑤⟩ = ⟨𝑣, 𝑢⟩)
6 vex 2733 . . . . . . . . . . . . 13 𝑧 ∈ V
7 vex 2733 . . . . . . . . . . . . 13 𝑤 ∈ V
86, 7opth 4220 . . . . . . . . . . . 12 (⟨𝑧, 𝑤⟩ = ⟨𝑣, 𝑢⟩ ↔ (𝑧 = 𝑣𝑤 = 𝑢))
95, 8sylib 121 . . . . . . . . . . 11 ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) → (𝑧 = 𝑣𝑤 = 𝑢))
10 oveq1 5857 . . . . . . . . . . . 12 (𝑧 = 𝑣 → (𝑧 ·o 𝑢) = (𝑣 ·o 𝑢))
11 oveq2 5858 . . . . . . . . . . . . 13 (𝑢 = 𝑤 → (𝑣 ·o 𝑢) = (𝑣 ·o 𝑤))
1211equcoms 1701 . . . . . . . . . . . 12 (𝑤 = 𝑢 → (𝑣 ·o 𝑢) = (𝑣 ·o 𝑤))
1310, 12sylan9eq 2223 . . . . . . . . . . 11 ((𝑧 = 𝑣𝑤 = 𝑢) → (𝑧 ·o 𝑢) = (𝑣 ·o 𝑤))
149, 13syl 14 . . . . . . . . . 10 ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) → (𝑧 ·o 𝑢) = (𝑣 ·o 𝑤))
1514ancli 321 . . . . . . . . 9 ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) → ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑣 ·o 𝑤)))
1615ad2ant2r 506 . . . . . . . 8 (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑣 ·o 𝑤)))
17 pinn 7258 . . . . . . . . . . . . . 14 (𝑤N𝑤 ∈ ω)
18 nnmcom 6465 . . . . . . . . . . . . . 14 ((𝑣 ∈ ω ∧ 𝑤 ∈ ω) → (𝑣 ·o 𝑤) = (𝑤 ·o 𝑣))
1917, 18sylan2 284 . . . . . . . . . . . . 13 ((𝑣 ∈ ω ∧ 𝑤N) → (𝑣 ·o 𝑤) = (𝑤 ·o 𝑣))
2019eqeq2d 2182 . . . . . . . . . . . 12 ((𝑣 ∈ ω ∧ 𝑤N) → ((𝑧 ·o 𝑢) = (𝑣 ·o 𝑤) ↔ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
2120ancoms 266 . . . . . . . . . . 11 ((𝑤N𝑣 ∈ ω) → ((𝑧 ·o 𝑢) = (𝑣 ·o 𝑤) ↔ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
2221ad2ant2lr 507 . . . . . . . . . 10 (((𝑧 ∈ ω ∧ 𝑤N) ∧ (𝑣 ∈ ω ∧ 𝑢N)) → ((𝑧 ·o 𝑢) = (𝑣 ·o 𝑤) ↔ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
2322ad2ant2l 505 . . . . . . . . 9 (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → ((𝑧 ·o 𝑢) = (𝑣 ·o 𝑤) ↔ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
2423anbi2d 461 . . . . . . . 8 (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑣 ·o 𝑤)) ↔ ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
2516, 24mpbid 146 . . . . . . 7 (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
26252eximi 1594 . . . . . 6 (∃𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → ∃𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
27262eximi 1594 . . . . 5 (∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ (𝑧 ∈ ω ∧ 𝑤N)) ∧ (𝑓 = ⟨𝑣, 𝑢⟩ ∧ (𝑣 ∈ ω ∧ 𝑢N))) → ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
284, 27syl 14 . . . 4 (𝑓 ∈ (ω × N) → ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))
2928ancli 321 . . 3 (𝑓 ∈ (ω × N) → (𝑓 ∈ (ω × N) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
30 vex 2733 . . . . 5 𝑓 ∈ V
31 eleq1 2233 . . . . . . 7 (𝑥 = 𝑓 → (𝑥 ∈ (ω × N) ↔ 𝑓 ∈ (ω × N)))
3231anbi1d 462 . . . . . 6 (𝑥 = 𝑓 → ((𝑥 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ↔ (𝑓 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N))))
33 eqeq1 2177 . . . . . . . . 9 (𝑥 = 𝑓 → (𝑥 = ⟨𝑧, 𝑤⟩ ↔ 𝑓 = ⟨𝑧, 𝑤⟩))
3433anbi1d 462 . . . . . . . 8 (𝑥 = 𝑓 → ((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩)))
3534anbi1d 462 . . . . . . 7 (𝑥 = 𝑓 → (((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)) ↔ ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
36354exbidv 1863 . . . . . 6 (𝑥 = 𝑓 → (∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)) ↔ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
3732, 36anbi12d 470 . . . . 5 (𝑥 = 𝑓 → (((𝑥 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))) ↔ ((𝑓 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))))
38 eleq1 2233 . . . . . . 7 (𝑦 = 𝑓 → (𝑦 ∈ (ω × N) ↔ 𝑓 ∈ (ω × N)))
3938anbi2d 461 . . . . . 6 (𝑦 = 𝑓 → ((𝑓 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ↔ (𝑓 ∈ (ω × N) ∧ 𝑓 ∈ (ω × N))))
40 eqeq1 2177 . . . . . . . . 9 (𝑦 = 𝑓 → (𝑦 = ⟨𝑣, 𝑢⟩ ↔ 𝑓 = ⟨𝑣, 𝑢⟩))
4140anbi2d 461 . . . . . . . 8 (𝑦 = 𝑓 → ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩)))
4241anbi1d 462 . . . . . . 7 (𝑦 = 𝑓 → (((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)) ↔ ((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
43424exbidv 1863 . . . . . 6 (𝑦 = 𝑓 → (∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)) ↔ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
4439, 43anbi12d 470 . . . . 5 (𝑦 = 𝑓 → (((𝑓 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))) ↔ ((𝑓 ∈ (ω × N) ∧ 𝑓 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))))
45 df-enq0 7373 . . . . 5 ~Q0 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ω × N) ∧ 𝑦 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣)))}
4630, 30, 37, 44, 45brab 4255 . . . 4 (𝑓 ~Q0 𝑓 ↔ ((𝑓 ∈ (ω × N) ∧ 𝑓 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
47 anidm 394 . . . . 5 ((𝑓 ∈ (ω × N) ∧ 𝑓 ∈ (ω × N)) ↔ 𝑓 ∈ (ω × N))
4847anbi1i 455 . . . 4 (((𝑓 ∈ (ω × N) ∧ 𝑓 ∈ (ω × N)) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))) ↔ (𝑓 ∈ (ω × N) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
4946, 48bitri 183 . . 3 (𝑓 ~Q0 𝑓 ↔ (𝑓 ∈ (ω × N) ∧ ∃𝑧𝑤𝑣𝑢((𝑓 = ⟨𝑧, 𝑤⟩ ∧ 𝑓 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 ·o 𝑢) = (𝑤 ·o 𝑣))))
5029, 49sylibr 133 . 2 (𝑓 ∈ (ω × N) → 𝑓 ~Q0 𝑓)
5149simplbi 272 . 2 (𝑓 ~Q0 𝑓𝑓 ∈ (ω × N))
5250, 51impbii 125 1 (𝑓 ∈ (ω × N) ↔ 𝑓 ~Q0 𝑓)
Colors of variables: wff set class
Syntax hints:  wa 103  wb 104   = wceq 1348  wex 1485  wcel 2141  cop 3584   class class class wbr 3987  ωcom 4572   × cxp 4607  (class class class)co 5850   ·o comu 6390  Ncnpi 7221   ~Q0 ceq0 7235
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 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4102  ax-sep 4105  ax-nul 4113  ax-pow 4158  ax-pr 4192  ax-un 4416  ax-setind 4519  ax-iinf 4570
This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-reu 2455  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-pw 3566  df-sn 3587  df-pr 3588  df-op 3590  df-uni 3795  df-int 3830  df-iun 3873  df-br 3988  df-opab 4049  df-mpt 4050  df-tr 4086  df-id 4276  df-iord 4349  df-on 4351  df-suc 4354  df-iom 4573  df-xp 4615  df-rel 4616  df-cnv 4617  df-co 4618  df-dm 4619  df-rn 4620  df-res 4621  df-ima 4622  df-iota 5158  df-fun 5198  df-fn 5199  df-f 5200  df-f1 5201  df-fo 5202  df-f1o 5203  df-fv 5204  df-ov 5853  df-oprab 5854  df-mpo 5855  df-1st 6116  df-2nd 6117  df-recs 6281  df-irdg 6346  df-oadd 6396  df-omul 6397  df-ni 7253  df-enq0 7373
This theorem is referenced by:  enq0er  7384
  Copyright terms: Public domain W3C validator