NFE Home New Foundations Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  NFE Home  >  Th. List  >  ins2kexg GIF version

Theorem ins2kexg 4306
Description: Ins2k preserves sethood. (Contributed by SF, 14-Jan-2015.)
Assertion
Ref Expression
ins2kexg (A VIns2k A V)

Proof of Theorem ins2kexg
Dummy variables x y z w t are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ins2keq 4219 . . 3 (x = AIns2k x = Ins2k A)
21eleq1d 2419 . 2 (x = A → ( Ins2k x V ↔ Ins2k A V))
3 ax-ins2 4085 . . 3 yzwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x)
4 inss1 3476 . . . . . . . 8 ((11c ×k (V ×k V)) ∩ y) (11c ×k (V ×k V))
5 ins2kss 4280 . . . . . . . 8 Ins2k x (11c ×k (V ×k V))
64, 5insklem 4305 . . . . . . 7 (((11c ×k (V ×k V)) ∩ y) = Ins2k xzwt(⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ ⟪{{z}}, ⟪w, t⟫⟫ Ins2k x))
7 vex 2863 . . . . . . . . . . . . . 14 z V
87snel1c 4141 . . . . . . . . . . . . 13 {z} 1c
9 snelpw1 4147 . . . . . . . . . . . . 13 ({{z}} 11c ↔ {z} 1c)
108, 9mpbir 200 . . . . . . . . . . . 12 {{z}} 11c
11 vex 2863 . . . . . . . . . . . . 13 w V
12 vex 2863 . . . . . . . . . . . . 13 t V
1311, 12opkelxpk 4249 . . . . . . . . . . . . 13 (⟪w, t (V ×k V) ↔ (w V t V))
1411, 12, 13mpbir2an 886 . . . . . . . . . . . 12 w, t (V ×k V)
15 snex 4112 . . . . . . . . . . . . 13 {{z}} V
16 opkex 4114 . . . . . . . . . . . . 13 w, t V
1715, 16opkelxpk 4249 . . . . . . . . . . . 12 (⟪{{z}}, ⟪w, t⟫⟫ (11c ×k (V ×k V)) ↔ ({{z}} 11c w, t (V ×k V)))
1810, 14, 17mpbir2an 886 . . . . . . . . . . 11 ⟪{{z}}, ⟪w, t⟫⟫ (11c ×k (V ×k V))
19 elin 3220 . . . . . . . . . . 11 (⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ (⟪{{z}}, ⟪w, t⟫⟫ (11c ×k (V ×k V)) ⟪{{z}}, ⟪w, t⟫⟫ y))
2018, 19mpbiran 884 . . . . . . . . . 10 (⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ ⟪{{z}}, ⟪w, t⟫⟫ y)
217, 11, 12otkelins2k 4256 . . . . . . . . . 10 (⟪{{z}}, ⟪w, t⟫⟫ Ins2k x ↔ ⟪z, t x)
2220, 21bibi12i 306 . . . . . . . . 9 ((⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ ⟪{{z}}, ⟪w, t⟫⟫ Ins2k x) ↔ (⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x))
2322albii 1566 . . . . . . . 8 (t(⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ ⟪{{z}}, ⟪w, t⟫⟫ Ins2k x) ↔ t(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x))
24232albii 1567 . . . . . . 7 (zwt(⟪{{z}}, ⟪w, t⟫⟫ ((11c ×k (V ×k V)) ∩ y) ↔ ⟪{{z}}, ⟪w, t⟫⟫ Ins2k x) ↔ zwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x))
256, 24bitri 240 . . . . . 6 (((11c ×k (V ×k V)) ∩ y) = Ins2k xzwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x))
2625biimpri 197 . . . . 5 (zwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x) → ((11c ×k (V ×k V)) ∩ y) = Ins2k x)
27 1cex 4143 . . . . . . . 8 1c V
2827pw1ex 4304 . . . . . . 7 11c V
29 vvex 4110 . . . . . . . 8 V V
3029, 29xpkex 4290 . . . . . . 7 (V ×k V) V
3128, 30xpkex 4290 . . . . . 6 (11c ×k (V ×k V)) V
32 vex 2863 . . . . . 6 y V
3331, 32inex 4106 . . . . 5 ((11c ×k (V ×k V)) ∩ y) V
3426, 33syl6eqelr 2442 . . . 4 (zwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x) → Ins2k x V)
3534exlimiv 1634 . . 3 (yzwt(⟪{{z}}, ⟪w, t⟫⟫ y ↔ ⟪z, t x) → Ins2k x V)
363, 35ax-mp 5 . 2 Ins2k x V
372, 36vtoclg 2915 1 (A VIns2k A V)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 176  wal 1540  wex 1541   = wceq 1642   wcel 1710  Vcvv 2860  cin 3209  {csn 3738  copk 4058  1cc1c 4135  1cpw1 4136   ×k cxpk 4175   Ins2k cins2k 4177
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1925  ax-ext 2334  ax-nin 4079  ax-xp 4080  ax-cnv 4081  ax-1c 4082  ax-si 4084  ax-ins2 4085  ax-typlower 4087  ax-sn 4088
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-nan 1288  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-clab 2340  df-cleq 2346  df-clel 2349  df-nfc 2479  df-ne 2519  df-ral 2620  df-rex 2621  df-v 2862  df-nin 3212  df-compl 3213  df-in 3214  df-un 3215  df-dif 3216  df-ss 3260  df-nul 3552  df-pw 3725  df-sn 3742  df-pr 3743  df-opk 4059  df-1c 4137  df-pw1 4138  df-xpk 4186  df-cnvk 4187  df-ins2k 4188  df-imak 4190  df-p6 4192  df-sik 4193
This theorem is referenced by:  ins2kex  4308  cokexg  4310
  Copyright terms: Public domain W3C validator