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

Theorem mpt2xopoveq 5878
Description: Value of an operation given by a maps-to rule, where the first argument is a pair and the base set of the second argument is the first component of the first argument. (Contributed by Alexander van der Vekens, 11-Oct-2017.)
Hypothesis
Ref Expression
mpt2xopoveq.f 𝐹 = (𝑥 ∈ V, 𝑦 ∈ (1st𝑥) ↦ {𝑛 ∈ (1st𝑥) ∣ 𝜑})
Assertion
Ref Expression
mpt2xopoveq (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → (⟨𝑉, 𝑊𝐹𝐾) = {𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑})
Distinct variable groups:   𝑛,𝐾,𝑥,𝑦   𝑛,𝑉,𝑥,𝑦   𝑛,𝑊,𝑥,𝑦   𝑛,𝑋,𝑥,𝑦   𝑛,𝑌,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑛)   𝐹(𝑥,𝑦,𝑛)

Proof of Theorem mpt2xopoveq
StepHypRef Expression
1 mpt2xopoveq.f . . 3 𝐹 = (𝑥 ∈ V, 𝑦 ∈ (1st𝑥) ↦ {𝑛 ∈ (1st𝑥) ∣ 𝜑})
21a1i 9 . 2 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → 𝐹 = (𝑥 ∈ V, 𝑦 ∈ (1st𝑥) ↦ {𝑛 ∈ (1st𝑥) ∣ 𝜑}))
3 fveq2 5198 . . . . 5 (𝑥 = ⟨𝑉, 𝑊⟩ → (1st𝑥) = (1st ‘⟨𝑉, 𝑊⟩))
4 op1stg 5797 . . . . . 6 ((𝑉𝑋𝑊𝑌) → (1st ‘⟨𝑉, 𝑊⟩) = 𝑉)
54adantr 270 . . . . 5 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → (1st ‘⟨𝑉, 𝑊⟩) = 𝑉)
63, 5sylan9eqr 2135 . . . 4 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ 𝑥 = ⟨𝑉, 𝑊⟩) → (1st𝑥) = 𝑉)
76adantrr 462 . . 3 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ (𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾)) → (1st𝑥) = 𝑉)
8 sbceq1a 2824 . . . . . 6 (𝑦 = 𝐾 → (𝜑[𝐾 / 𝑦]𝜑))
98adantl 271 . . . . 5 ((𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾) → (𝜑[𝐾 / 𝑦]𝜑))
109adantl 271 . . . 4 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ (𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾)) → (𝜑[𝐾 / 𝑦]𝜑))
11 sbceq1a 2824 . . . . . 6 (𝑥 = ⟨𝑉, 𝑊⟩ → ([𝐾 / 𝑦]𝜑[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑))
1211adantr 270 . . . . 5 ((𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾) → ([𝐾 / 𝑦]𝜑[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑))
1312adantl 271 . . . 4 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ (𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾)) → ([𝐾 / 𝑦]𝜑[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑))
1410, 13bitrd 186 . . 3 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ (𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾)) → (𝜑[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑))
157, 14rabeqbidv 2596 . 2 ((((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) ∧ (𝑥 = ⟨𝑉, 𝑊⟩ ∧ 𝑦 = 𝐾)) → {𝑛 ∈ (1st𝑥) ∣ 𝜑} = {𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑})
16 opexg 3983 . . 3 ((𝑉𝑋𝑊𝑌) → ⟨𝑉, 𝑊⟩ ∈ V)
1716adantr 270 . 2 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → ⟨𝑉, 𝑊⟩ ∈ V)
18 simpr 108 . 2 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → 𝐾𝑉)
19 rabexg 3921 . . 3 (𝑉𝑋 → {𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑} ∈ V)
2019ad2antrr 471 . 2 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → {𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑} ∈ V)
21 equid 1629 . . 3 𝑧 = 𝑧
22 nfvd 1462 . . 3 (𝑧 = 𝑧 → Ⅎ𝑥((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉))
2321, 22ax-mp 7 . 2 𝑥((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉)
24 nfvd 1462 . . 3 (𝑧 = 𝑧 → Ⅎ𝑦((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉))
2521, 24ax-mp 7 . 2 𝑦((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉)
26 nfcv 2219 . 2 𝑦𝑉, 𝑊
27 nfcv 2219 . 2 𝑥𝐾
28 nfsbc1v 2833 . . 3 𝑥[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑
29 nfcv 2219 . . 3 𝑥𝑉
3028, 29nfrabxy 2534 . 2 𝑥{𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑}
31 nfsbc1v 2833 . . . 4 𝑦[𝐾 / 𝑦]𝜑
3226, 31nfsbc 2835 . . 3 𝑦[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑
33 nfcv 2219 . . 3 𝑦𝑉
3432, 33nfrabxy 2534 . 2 𝑦{𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑}
352, 15, 6, 17, 18, 20, 23, 25, 26, 27, 30, 34ovmpt2dxf 5646 1 (((𝑉𝑋𝑊𝑌) ∧ 𝐾𝑉) → (⟨𝑉, 𝑊𝐹𝐾) = {𝑛𝑉[𝑉, 𝑊⟩ / 𝑥][𝐾 / 𝑦]𝜑})
Colors of variables: wff set class
Syntax hints:  wi 4  wa 102  wb 103   = wceq 1284  wnf 1389  wcel 1433  {crab 2352  Vcvv 2601  [wsbc 2815  cop 3401  cfv 4922  (class class class)co 5532  cmpt2 5534  1st c1st 5785
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-sep 3896  ax-pow 3948  ax-pr 3964  ax-un 4188  ax-setind 4280
This theorem depends on definitions:  df-bi 115  df-3an 921  df-tru 1287  df-fal 1290  df-nf 1390  df-sb 1686  df-eu 1944  df-mo 1945  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ne 2246  df-ral 2353  df-rex 2354  df-rab 2357  df-v 2603  df-sbc 2816  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-pw 3384  df-sn 3404  df-pr 3405  df-op 3407  df-uni 3602  df-br 3786  df-opab 3840  df-mpt 3841  df-id 4048  df-xp 4369  df-rel 4370  df-cnv 4371  df-co 4372  df-dm 4373  df-rn 4374  df-iota 4887  df-fun 4924  df-fv 4930  df-ov 5535  df-oprab 5536  df-mpt2 5537  df-1st 5787
This theorem is referenced by:  mpt2xopovel  5879
  Copyright terms: Public domain W3C validator