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

Theorem ncfinraiselem2 4480
Description: Lemma for ncfinraise 4481. Show stratification for induction. (Contributed by SF, 22-Jan-2015.)
Assertion
Ref Expression
ncfinraiselem2 {m a m b m n Nn (1a n 1b n)} V
Distinct variable groups:   a,b,m   n,a   m,b   n,b

Proof of Theorem ncfinraiselem2
Dummy variables t x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 snex 4111 . . . . . 6 {m} V
21elcompl 3225 . . . . 5 ({m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ ¬ {m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c))
31elimak 4259 . . . . . 6 ({m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)))
4 elpw11c 4147 . . . . . . . . . 10 (t 11ca t = {{a}})
54anbi1i 676 . . . . . . . . 9 ((t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ (a t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
6 19.41v 1901 . . . . . . . . 9 (a(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ (a t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
75, 6bitr4i 243 . . . . . . . 8 ((t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ a(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
87exbii 1582 . . . . . . 7 (t(t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ ta(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
9 df-rex 2620 . . . . . . 7 (t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) ↔ t(t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
10 excom 1741 . . . . . . 7 (at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ ta(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
118, 9, 103bitr4i 268 . . . . . 6 (t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) ↔ at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
12 snex 4111 . . . . . . . . . 10 {{a}} V
13 opkeq1 4059 . . . . . . . . . . 11 (t = {{a}} → ⟪t, {m}⟫ = ⟪{{a}}, {m}⟫)
1413eleq1d 2419 . . . . . . . . . 10 (t = {{a}} → (⟪t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) ↔ ⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))))
1512, 14ceqsexv 2894 . . . . . . . . 9 (t(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ ⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)))
16 elin 3219 . . . . . . . . 9 (⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) ↔ (⟪{{a}}, {m}⟫ SIk Sk ⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)))
17 snex 4111 . . . . . . . . . . . 12 {a} V
18 vex 2862 . . . . . . . . . . . 12 m V
1917, 18opksnelsik 4265 . . . . . . . . . . 11 (⟪{{a}}, {m}⟫ SIk Sk ↔ ⟪{a}, m Sk )
20 vex 2862 . . . . . . . . . . . 12 a V
2120, 18elssetk 4270 . . . . . . . . . . 11 (⟪{a}, m Ska m)
2219, 21bitri 240 . . . . . . . . . 10 (⟪{{a}}, {m}⟫ SIk Ska m)
23 opkex 4113 . . . . . . . . . . . . 13 ⟪{{a}}, {m}⟫ V
2423elimak 4259 . . . . . . . . . . . 12 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c) ↔ t 1 111ct, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)))
25 df-rex 2620 . . . . . . . . . . . 12 (t 1 111ct, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) ↔ t(t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
26 elpw131c 4149 . . . . . . . . . . . . . . . 16 (t 1111cb t = {{{{b}}}})
2726anbi1i 676 . . . . . . . . . . . . . . 15 ((t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ (b t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
28 19.41v 1901 . . . . . . . . . . . . . . 15 (b(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ (b t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
2927, 28bitr4i 243 . . . . . . . . . . . . . 14 ((t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ b(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
3029exbii 1582 . . . . . . . . . . . . 13 (t(t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ tb(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
31 excom 1741 . . . . . . . . . . . . 13 (bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ tb(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
3230, 31bitr4i 243 . . . . . . . . . . . 12 (t(t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
3324, 25, 323bitri 262 . . . . . . . . . . 11 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c) ↔ bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
34 snex 4111 . . . . . . . . . . . . . . 15 {{{{b}}}} V
35 opkeq1 4059 . . . . . . . . . . . . . . . 16 (t = {{{{b}}}} → ⟪t, ⟪{{a}}, {m}⟫⟫ = ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫)
3635eleq1d 2419 . . . . . . . . . . . . . . 15 (t = {{{{b}}}} → (⟪t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) ↔ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))))
3734, 36ceqsexv 2894 . . . . . . . . . . . . . 14 (t(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)))
38 eldif 3221 . . . . . . . . . . . . . 14 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) ↔ (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)))
39 snex 4111 . . . . . . . . . . . . . . . . 17 {{b}} V
4039, 12, 1otkelins2k 4255 . . . . . . . . . . . . . . . 16 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ↔ ⟪{{b}}, {m}⟫ SIk Sk )
41 snex 4111 . . . . . . . . . . . . . . . . 17 {b} V
4241, 18opksnelsik 4265 . . . . . . . . . . . . . . . 16 (⟪{{b}}, {m}⟫ SIk Sk ↔ ⟪{b}, m Sk )
43 vex 2862 . . . . . . . . . . . . . . . . 17 b V
4443, 18elssetk 4270 . . . . . . . . . . . . . . . 16 (⟪{b}, m Skb m)
4540, 42, 443bitri 262 . . . . . . . . . . . . . . 15 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Skb m)
4639, 12, 1otkelins3k 4256 . . . . . . . . . . . . . . . . 17 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) ↔ ⟪{{b}}, {{a}}⟫ (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))
47 df-rex 2620 . . . . . . . . . . . . . . . . . . 19 (t 1 1ct, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) ↔ t(t 11c t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
48 elpw11c 4147 . . . . . . . . . . . . . . . . . . . . . 22 (t 11cn t = {{n}})
4948anbi1i 676 . . . . . . . . . . . . . . . . . . . . 21 ((t 11c t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ (n t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
50 19.41v 1901 . . . . . . . . . . . . . . . . . . . . 21 (n(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ (n t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
5149, 50bitr4i 243 . . . . . . . . . . . . . . . . . . . 20 ((t 11c t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ n(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
5251exbii 1582 . . . . . . . . . . . . . . . . . . 19 (t(t 11c t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ tn(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
5347, 52bitri 240 . . . . . . . . . . . . . . . . . 18 (t 1 1ct, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) ↔ tn(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
54 opkex 4113 . . . . . . . . . . . . . . . . . . 19 ⟪{{b}}, {{a}}⟫ V
5554elimak 4259 . . . . . . . . . . . . . . . . . 18 (⟪{{b}}, {{a}}⟫ (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) ↔ t 1 1ct, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))))
56 excom 1741 . . . . . . . . . . . . . . . . . 18 (nt(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ tn(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
5753, 55, 563bitr4i 268 . . . . . . . . . . . . . . . . 17 (⟪{{b}}, {{a}}⟫ (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) ↔ nt(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
58 snex 4111 . . . . . . . . . . . . . . . . . . . . 21 {{n}} V
59 opkeq1 4059 . . . . . . . . . . . . . . . . . . . . . 22 (t = {{n}} → ⟪t, ⟪{{b}}, {{a}}⟫⟫ = ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫)
6059eleq1d 2419 . . . . . . . . . . . . . . . . . . . . 21 (t = {{n}} → (⟪t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) ↔ ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))))
6158, 60ceqsexv 2894 . . . . . . . . . . . . . . . . . . . 20 (t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))))
62 elin 3219 . . . . . . . . . . . . . . . . . . . 20 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) ↔ (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ (11 Nn ×k V) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))))
6358, 54opkelxpk 4248 . . . . . . . . . . . . . . . . . . . . . . 23 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ (11 Nn ×k V) ↔ ({{n}} 11 Nn ⟪{{b}}, {{a}}⟫ V))
6454, 63mpbiran2 885 . . . . . . . . . . . . . . . . . . . . . 22 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ (11 Nn ×k V) ↔ {{n}} 11 Nn )
65 snelpw1 4146 . . . . . . . . . . . . . . . . . . . . . 22 ({{n}} 11 Nn ↔ {n} 1 Nn )
66 snelpw1 4146 . . . . . . . . . . . . . . . . . . . . . 22 ({n} 1 Nnn Nn )
6764, 65, 663bitri 262 . . . . . . . . . . . . . . . . . . . . 21 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ (11 Nn ×k V) ↔ n Nn )
68 elin 3219 . . . . . . . . . . . . . . . . . . . . . 22 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)) ↔ (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))
69 vex 2862 . . . . . . . . . . . . . . . . . . . . . . . . 25 n V
7069, 39, 12otkelins2k 4255 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ ⟪n, {{a}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))
71 opkex 4113 . . . . . . . . . . . . . . . . . . . . . . . . . 26 n, {{a}}⟫ V
7271elimak 4259 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪n, {{a}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ t 1 11ct, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ))
73 df-rex 2620 . . . . . . . . . . . . . . . . . . . . . . . . 25 (t 1 11ct, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ t(t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
74 elpw121c 4148 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (t 111cx t = {{{x}}})
7574anbi1i 676 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
76 19.41v 1901 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (x(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
7775, 76bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ x(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
7877exbii 1582 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t(t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
79 excom 1741 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
8078, 79bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . . 25 (t(t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
8172, 73, 803bitri 262 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪n, {{a}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
82 snex 4111 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 {{{x}}} V
83 opkeq1 4059 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (t = {{{x}}} → ⟪t, ⟪n, {{a}}⟫⟫ = ⟪{{{x}}}, ⟪n, {{a}}⟫⟫)
8483eleq1d 2419 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (t = {{{x}}} → (⟪t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
8582, 84ceqsexv 2894 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (t(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ))
86 elin 3219 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ))
87 snex 4111 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 {x} V
8887, 69, 12otkelins2k 4255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ ⟪{x}, {{a}}⟫ SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)))
89 vex 2862 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 x V
9089, 17opksnelsik 4265 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{x}, {{a}}⟫ SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ ⟪x, {a}⟫ ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)))
9189, 20eqpw1relk 4479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪x, {a}⟫ ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ x = 1a)
9288, 90, 913bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ x = 1a)
9387, 69, 12otkelins3k 4256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ↔ ⟪{x}, n Sk )
9489, 69elssetk 4270 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{x}, n Skx n)
9593, 94bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Skx n)
9692, 95anbi12i 678 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ) ↔ (x = 1a x n))
9785, 86, 963bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x = 1a x n))
9897exbii 1582 . . . . . . . . . . . . . . . . . . . . . . . . 25 (xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ x(x = 1a x n))
99 df-clel 2349 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1a nx(x = 1a x n))
10098, 99bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . 24 (xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ 1a n)
10170, 81, 1003bitri 262 . . . . . . . . . . . . . . . . . . . . . . 23 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ 1a n)
102 opkex 4113 . . . . . . . . . . . . . . . . . . . . . . . . . 26 n, {{b}}⟫ V
103102elimak 4259 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪n, {{b}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ))
10474anbi1i 676 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
105 19.41v 1901 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (x(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
106104, 105bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ x(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
107106exbii 1582 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t(t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
108 df-rex 2620 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ t(t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
109 excom 1741 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
110107, 108, 1093bitr4i 268 . . . . . . . . . . . . . . . . . . . . . . . . 25 (t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
111 opkeq1 4059 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (t = {{{x}}} → ⟪t, ⟪n, {{b}}⟫⟫ = ⟪{{{x}}}, ⟪n, {{b}}⟫⟫)
112111eleq1d 2419 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (t = {{{x}}} → (⟪t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )))
11382, 112ceqsexv 2894 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (t(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ))
114 elin 3219 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) ↔ (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ))
11587, 69, 39otkelins2k 4255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ ⟪{x}, {{b}}⟫ SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)))
11689, 41opksnelsik 4265 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{x}, {{b}}⟫ SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ ⟪x, {b}⟫ ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)))
11789, 43eqpw1relk 4479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪x, {b}⟫ ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ x = 1b)
118115, 116, 1173bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ↔ x = 1b)
11987, 69, 39otkelins3k 4256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ↔ ⟪{x}, n Sk )
120119, 94bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Skx n)
121118, 120anbi12i 678 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ) ↔ (x = 1b x n))
122113, 114, 1213bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ (x = 1b x n))
123122exbii 1582 . . . . . . . . . . . . . . . . . . . . . . . . 25 (xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk )) ↔ x(x = 1b x n))
124103, 110, 1233bitri 262 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪n, {{b}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ x(x = 1b x n))
12569, 39, 12otkelins3k 4256 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ ⟪n, {{b}}⟫ (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))
126 df-clel 2349 . . . . . . . . . . . . . . . . . . . . . . . 24 (1b nx(x = 1b x n))
127124, 125, 1263bitr4i 268 . . . . . . . . . . . . . . . . . . . . . . 23 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ↔ 1b n)
128101, 127anbi12i 678 . . . . . . . . . . . . . . . . . . . . . 22 ((⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)) ↔ (1a n 1b n))
12968, 128bitri 240 . . . . . . . . . . . . . . . . . . . . 21 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)) ↔ (1a n 1b n))
13067, 129anbi12i 678 . . . . . . . . . . . . . . . . . . . 20 ((⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ (11 Nn ×k V) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) ↔ (n Nn (1a n 1b n)))
13161, 62, 1303bitri 262 . . . . . . . . . . . . . . . . . . 19 (t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ (n Nn (1a n 1b n)))
132131exbii 1582 . . . . . . . . . . . . . . . . . 18 (nt(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ n(n Nn (1a n 1b n)))
133 df-rex 2620 . . . . . . . . . . . . . . . . . 18 (n Nn (1a n 1b n) ↔ n(n Nn (1a n 1b n)))
134132, 133bitr4i 243 . . . . . . . . . . . . . . . . 17 (nt(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)))) ↔ n Nn (1a n 1b n))
13546, 57, 1343bitri 262 . . . . . . . . . . . . . . . 16 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) ↔ n Nn (1a n 1b n))
136135notbii 287 . . . . . . . . . . . . . . 15 (¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) ↔ ¬ n Nn (1a n 1b n))
13745, 136anbi12i 678 . . . . . . . . . . . . . 14 ((⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) ↔ (b m ¬ n Nn (1a n 1b n)))
13837, 38, 1373bitri 262 . . . . . . . . . . . . 13 (t(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ (b m ¬ n Nn (1a n 1b n)))
139138exbii 1582 . . . . . . . . . . . 12 (bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ b(b m ¬ n Nn (1a n 1b n)))
140 df-rex 2620 . . . . . . . . . . . 12 (b m ¬ n Nn (1a n 1b n) ↔ b(b m ¬ n Nn (1a n 1b n)))
141139, 140bitr4i 243 . . . . . . . . . . 11 (bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c))) ↔ b m ¬ n Nn (1a n 1b n))
142 rexnal 2625 . . . . . . . . . . 11 (b m ¬ n Nn (1a n 1b n) ↔ ¬ b m n Nn (1a n 1b n))
14333, 141, 1423bitri 262 . . . . . . . . . 10 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c) ↔ ¬ b m n Nn (1a n 1b n))
14422, 143anbi12i 678 . . . . . . . . 9 ((⟪{{a}}, {m}⟫ SIk Sk ⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) ↔ (a m ¬ b m n Nn (1a n 1b n)))
14515, 16, 1443bitri 262 . . . . . . . 8 (t(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ (a m ¬ b m n Nn (1a n 1b n)))
146145exbii 1582 . . . . . . 7 (at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ a(a m ¬ b m n Nn (1a n 1b n)))
147 df-rex 2620 . . . . . . 7 (a m ¬ b m n Nn (1a n 1b n) ↔ a(a m ¬ b m n Nn (1a n 1b n)))
148146, 147bitr4i 243 . . . . . 6 (at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c))) ↔ a m ¬ b m n Nn (1a n 1b n))
1493, 11, 1483bitri 262 . . . . 5 ({m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ a m ¬ b m n Nn (1a n 1b n))
1502, 149xchbinx 301 . . . 4 ({m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ ¬ a m ¬ b m n Nn (1a n 1b n))
15118eluni1 4173 . . . 4 (m 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ {m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c))
152 dfral2 2626 . . . 4 (a m b m n Nn (1a n 1b n) ↔ ¬ a m ¬ b m n Nn (1a n 1b n))
153150, 151, 1523bitr4i 268 . . 3 (m 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) ↔ a m b m n Nn (1a n 1b n))
154153abbi2i 2464 . 2 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) = {m a m b m n Nn (1a n 1b n)}
155 ssetkex 4294 . . . . . . 7 Sk V
156155sikex 4297 . . . . . 6 SIk Sk V
157156ins2kex 4307 . . . . . . . 8 Ins2k SIk Sk V
158 nncex 4396 . . . . . . . . . . . . . 14 Nn V
159158pw1ex 4303 . . . . . . . . . . . . 13 1 Nn V
160159pw1ex 4303 . . . . . . . . . . . 12 11 Nn V
161 vvex 4109 . . . . . . . . . . . 12 V V
162160, 161xpkex 4289 . . . . . . . . . . 11 (11 Nn ×k V) V
163 1cex 4142 . . . . . . . . . . . . . . . . . . . 20 1c V
164163pwex 4329 . . . . . . . . . . . . . . . . . . 19 1c V
165164, 161xpkex 4289 . . . . . . . . . . . . . . . . . 18 (1c ×k V) V
166155ins3kex 4308 . . . . . . . . . . . . . . . . . . . 20 Ins3k Sk V
167166, 157symdifex 4108 . . . . . . . . . . . . . . . . . . 19 ( Ins3k SkIns2k SIk Sk ) V
168163pw1ex 4303 . . . . . . . . . . . . . . . . . . . . 21 11c V
169168pw1ex 4303 . . . . . . . . . . . . . . . . . . . 20 111c V
170169pw1ex 4303 . . . . . . . . . . . . . . . . . . 19 1111c V
171167, 170imakex 4300 . . . . . . . . . . . . . . . . . 18 (( Ins3k SkIns2k SIk Sk ) “k 1111c) V
172165, 171difex 4107 . . . . . . . . . . . . . . . . 17 ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) V
173172sikex 4297 . . . . . . . . . . . . . . . 16 SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) V
174173ins2kex 4307 . . . . . . . . . . . . . . 15 Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) V
175174, 166inex 4105 . . . . . . . . . . . . . 14 ( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) V
176175, 169imakex 4300 . . . . . . . . . . . . 13 (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) V
177176ins2kex 4307 . . . . . . . . . . . 12 Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) V
178176ins3kex 4308 . . . . . . . . . . . 12 Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) V
179177, 178inex 4105 . . . . . . . . . . 11 ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c)) V
180162, 179inex 4105 . . . . . . . . . 10 ((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) V
181180, 168imakex 4300 . . . . . . . . 9 (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) V
182181ins3kex 4308 . . . . . . . 8 Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c) V
183157, 182difex 4107 . . . . . . 7 ( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) V
184183, 170imakex 4300 . . . . . 6 (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c) V
185156, 184inex 4105 . . . . 5 ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) V
186185, 168imakex 4300 . . . 4 (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) V
187186complex 4104 . . 3 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) V
188187uni1ex 4293 . 2 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (((11 Nn ×k V) ∩ ( Ins2k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k SIk ((1c ×k V) (( Ins3k SkIns2k SIk Sk ) “k 1111c)) ∩ Ins3k Sk ) “k 111c))) “k 11c)) “k 1111c)) “k 11c) V
189154, 188eqeltrri 2424 1 {m a m b m n Nn (1a n 1b n)} V
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3   wa 358  wex 1541   = wceq 1642   wcel 1710  {cab 2339  wral 2614  wrex 2615  Vcvv 2859  ccompl 3205   cdif 3206  cin 3208  csymdif 3209  cpw 3722  {csn 3737  copk 4057  1cuni1 4133  1cc1c 4134  1cpw1 4135   ×k cxpk 4174   Ins2k cins2k 4176   Ins3k cins3k 4177  k cimak 4179   SIk csik 4181   Sk cssetk 4183   Nn cnnc 4373
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 4078  ax-xp 4079  ax-cnv 4080  ax-1c 4081  ax-sset 4082  ax-si 4083  ax-ins2 4084  ax-ins3 4085  ax-typlower 4086  ax-sn 4087
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 2478  df-ne 2518  df-ral 2619  df-rex 2620  df-v 2861  df-sbc 3047  df-nin 3211  df-compl 3212  df-in 3213  df-un 3214  df-dif 3215  df-symdif 3216  df-ss 3259  df-nul 3551  df-if 3663  df-pw 3724  df-sn 3741  df-pr 3742  df-uni 3892  df-int 3927  df-opk 4058  df-1c 4136  df-pw1 4137  df-uni1 4138  df-xpk 4185  df-cnvk 4186  df-ins2k 4187  df-ins3k 4188  df-imak 4189  df-cok 4190  df-p6 4191  df-sik 4192  df-ssetk 4193  df-imagek 4194  df-addc 4378  df-nnc 4379
This theorem is referenced by:  ncfinraise  4481
  Copyright terms: Public domain W3C validator