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

Theorem nnpweqlem1 4523
Description: Lemma for nnpweq 4524. Establish stratification for induction. (Contributed by SF, 26-Jan-2015.)
Assertion
Ref Expression
nnpweqlem1 {m a m b m n Nn (a n b n)} V
Distinct variable group:   m,a,b,n

Proof of Theorem nnpweqlem1
Dummy variables t x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vex 2863 . . . . 5 m V
21eluni1 4174 . . . 4 (m 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ {m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c))
3 snex 4112 . . . . . . . . . 10 {{a}} V
4 opkeq1 4060 . . . . . . . . . . 11 (t = {{a}} → ⟪t, {m}⟫ = ⟪{{a}}, {m}⟫)
54eleq1d 2419 . . . . . . . . . 10 (t = {{a}} → (⟪t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) ↔ ⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
63, 5ceqsexv 2895 . . . . . . . . 9 (t(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ ⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)))
7 elin 3220 . . . . . . . . 9 (⟪{{a}}, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) ↔ (⟪{{a}}, {m}⟫ SIk Sk ⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)))
8 snex 4112 . . . . . . . . . . . 12 {a} V
98, 1opksnelsik 4266 . . . . . . . . . . 11 (⟪{{a}}, {m}⟫ SIk Sk ↔ ⟪{a}, m Sk )
10 vex 2863 . . . . . . . . . . . 12 a V
1110, 1elssetk 4271 . . . . . . . . . . 11 (⟪{a}, m Ska m)
129, 11bitri 240 . . . . . . . . . 10 (⟪{{a}}, {m}⟫ SIk Ska m)
13 opkex 4114 . . . . . . . . . . . . 13 ⟪{{a}}, {m}⟫ V
1413elimak 4260 . . . . . . . . . . . 12 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c) ↔ t 1 111ct, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )))
15 elpw131c 4150 . . . . . . . . . . . . . . . 16 (t 1111cb t = {{{{b}}}})
1615anbi1i 676 . . . . . . . . . . . . . . 15 ((t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ (b t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
17 19.41v 1901 . . . . . . . . . . . . . . 15 (b(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ (b t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
1816, 17bitr4i 243 . . . . . . . . . . . . . 14 ((t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ b(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
1918exbii 1582 . . . . . . . . . . . . 13 (t(t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ tb(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
20 df-rex 2621 . . . . . . . . . . . . 13 (t 1 111ct, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) ↔ t(t 1111c t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
21 excom 1741 . . . . . . . . . . . . 13 (bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ tb(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
2219, 20, 213bitr4i 268 . . . . . . . . . . . 12 (t 1 111ct, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) ↔ bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
23 snex 4112 . . . . . . . . . . . . . . 15 {{{{b}}}} V
24 opkeq1 4060 . . . . . . . . . . . . . . . 16 (t = {{{{b}}}} → ⟪t, ⟪{{a}}, {m}⟫⟫ = ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫)
2524eleq1d 2419 . . . . . . . . . . . . . . 15 (t = {{{{b}}}} → (⟪t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) ↔ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))))
2623, 25ceqsexv 2895 . . . . . . . . . . . . . 14 (t(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )))
27 eldif 3222 . . . . . . . . . . . . . 14 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) ↔ (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )))
28 snex 4112 . . . . . . . . . . . . . . . . 17 {{b}} V
29 snex 4112 . . . . . . . . . . . . . . . . 17 {m} V
3028, 3, 29otkelins2k 4256 . . . . . . . . . . . . . . . 16 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ↔ ⟪{{b}}, {m}⟫ SIk Sk )
31 snex 4112 . . . . . . . . . . . . . . . . 17 {b} V
3231, 1opksnelsik 4266 . . . . . . . . . . . . . . . 16 (⟪{{b}}, {m}⟫ SIk Sk ↔ ⟪{b}, m Sk )
33 vex 2863 . . . . . . . . . . . . . . . . 17 b V
3433, 1elssetk 4271 . . . . . . . . . . . . . . . 16 (⟪{b}, m Skb m)
3530, 32, 343bitri 262 . . . . . . . . . . . . . . 15 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Skb m)
3628, 3, 29otkelins3k 4257 . . . . . . . . . . . . . . . . 17 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) ↔ ⟪{{b}}, {{a}}⟫ (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))
37 opkex 4114 . . . . . . . . . . . . . . . . . . 19 ⟪{{b}}, {{a}}⟫ V
3837elimak 4260 . . . . . . . . . . . . . . . . . 18 (⟪{{b}}, {{a}}⟫ (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) ↔ t 1 1 Nnt, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)))
39 elpw12 4146 . . . . . . . . . . . . . . . . . . . . . 22 (t 11 Nnn Nn t = {{n}})
4039anbi1i 676 . . . . . . . . . . . . . . . . . . . . 21 ((t 11 Nn t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ (n Nn t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
41 r19.41v 2765 . . . . . . . . . . . . . . . . . . . . 21 (n Nn (t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ (n Nn t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
4240, 41bitr4i 243 . . . . . . . . . . . . . . . . . . . 20 ((t 11 Nn t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ n Nn (t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
4342exbii 1582 . . . . . . . . . . . . . . . . . . 19 (t(t 11 Nn t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ tn Nn (t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
44 df-rex 2621 . . . . . . . . . . . . . . . . . . 19 (t 1 1 Nnt, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) ↔ t(t 11 Nn t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
45 rexcom4 2879 . . . . . . . . . . . . . . . . . . 19 (n Nn t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ tn Nn (t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
4643, 44, 453bitr4i 268 . . . . . . . . . . . . . . . . . 18 (t 1 1 Nnt, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) ↔ n Nn t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
4738, 46bitri 240 . . . . . . . . . . . . . . . . 17 (⟪{{b}}, {{a}}⟫ (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) ↔ n Nn t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
48 snex 4112 . . . . . . . . . . . . . . . . . . . 20 {{n}} V
49 opkeq1 4060 . . . . . . . . . . . . . . . . . . . . 21 (t = {{n}} → ⟪t, ⟪{{b}}, {{a}}⟫⟫ = ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫)
5049eleq1d 2419 . . . . . . . . . . . . . . . . . . . 20 (t = {{n}} → (⟪t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) ↔ ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))))
5148, 50ceqsexv 2895 . . . . . . . . . . . . . . . . . . 19 (t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)))
52 elin 3220 . . . . . . . . . . . . . . . . . . 19 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) ↔ (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)))
53 opkex 4114 . . . . . . . . . . . . . . . . . . . . . . 23 n, {{a}}⟫ V
5453elimak 4260 . . . . . . . . . . . . . . . . . . . . . 22 (⟪n, {{a}}⟫ (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ t 1 11ct, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ))
55 elpw121c 4149 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t 111cx t = {{{x}}})
5655anbi1i 676 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
57 19.41v 1901 . . . . . . . . . . . . . . . . . . . . . . . . 25 (x(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
5856, 57bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . 24 ((t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ x(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
5958exbii 1582 . . . . . . . . . . . . . . . . . . . . . . 23 (t(t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
60 df-rex 2621 . . . . . . . . . . . . . . . . . . . . . . 23 (t 1 11ct, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ t(t 111c t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
61 excom 1741 . . . . . . . . . . . . . . . . . . . . . . 23 (xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
6259, 60, 613bitr4i 268 . . . . . . . . . . . . . . . . . . . . . 22 (t 1 11ct, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
63 snex 4112 . . . . . . . . . . . . . . . . . . . . . . . . 25 {{{x}}} V
64 opkeq1 4060 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t = {{{x}}} → ⟪t, ⟪n, {{a}}⟫⟫ = ⟪{{{x}}}, ⟪n, {{a}}⟫⟫)
6564eleq1d 2419 . . . . . . . . . . . . . . . . . . . . . . . . 25 (t = {{{x}}} → (⟪t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
6663, 65ceqsexv 2895 . . . . . . . . . . . . . . . . . . . . . . . 24 (t(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ))
67 elin 3220 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ))
68 snex 4112 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 {x} V
69 vex 2863 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 n V
7068, 69, 3otkelins2k 4256 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪{x}, {{a}}⟫ SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
71 vex 2863 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 x V
7271, 8opksnelsik 4266 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{x}, {{a}}⟫ SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪x, {a}⟫ k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
7371, 8opkelcnvk 4251 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪x, {a}⟫ k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪{a}, x ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
7410, 71eqpwrelk 4479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪{a}, x ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = a)
7573, 74bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪x, {a}⟫ k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = a)
7670, 72, 753bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = a)
7768, 69, 3otkelins3k 4257 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ↔ ⟪{x}, n Sk )
7871, 69elssetk 4271 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{x}, n Skx n)
7977, 78bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Skx n)
8076, 79anbi12i 678 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ⟪{{{x}}}, ⟪n, {{a}}⟫⟫ Ins3k Sk ) ↔ (x = a x n))
8166, 67, 803bitri 262 . . . . . . . . . . . . . . . . . . . . . . 23 (t(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x = a x n))
8281exbii 1582 . . . . . . . . . . . . . . . . . . . . . 22 (xt(t = {{{x}}} t, ⟪n, {{a}}⟫⟫ ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ x(x = a x n))
8354, 62, 823bitri 262 . . . . . . . . . . . . . . . . . . . . 21 (⟪n, {{a}}⟫ (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ x(x = a x n))
8469, 28, 3otkelins2k 4256 . . . . . . . . . . . . . . . . . . . . 21 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ ⟪n, {{a}}⟫ (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))
85 df-clel 2349 . . . . . . . . . . . . . . . . . . . . 21 (a nx(x = a x n))
8683, 84, 853bitr4i 268 . . . . . . . . . . . . . . . . . . . 20 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ a n)
87 opkex 4114 . . . . . . . . . . . . . . . . . . . . . . 23 n, {{b}}⟫ V
8887elimak 4260 . . . . . . . . . . . . . . . . . . . . . 22 (⟪n, {{b}}⟫ (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ))
8955anbi1i 676 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
90 19.41v 1901 . . . . . . . . . . . . . . . . . . . . . . . . 25 (x(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
9189, 90bitr4i 243 . . . . . . . . . . . . . . . . . . . . . . . 24 ((t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ x(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
9291exbii 1582 . . . . . . . . . . . . . . . . . . . . . . 23 (t(t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
93 df-rex 2621 . . . . . . . . . . . . . . . . . . . . . . 23 (t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ t(t 111c t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
94 excom 1741 . . . . . . . . . . . . . . . . . . . . . . 23 (xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ tx(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
9592, 93, 943bitr4i 268 . . . . . . . . . . . . . . . . . . . . . 22 (t 1 11ct, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
96 opkeq1 4060 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (t = {{{x}}} → ⟪t, ⟪n, {{b}}⟫⟫ = ⟪{{{x}}}, ⟪n, {{b}}⟫⟫)
9796eleq1d 2419 . . . . . . . . . . . . . . . . . . . . . . . . 25 (t = {{{x}}} → (⟪t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )))
9863, 97ceqsexv 2895 . . . . . . . . . . . . . . . . . . . . . . . 24 (t(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ))
99 elin 3220 . . . . . . . . . . . . . . . . . . . . . . . 24 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) ↔ (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ))
10068, 69, 28otkelins2k 4256 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪{x}, {{b}}⟫ k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
10168, 28opkelcnvk 4251 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{x}, {{b}}⟫ k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪{{b}}, {x}⟫ SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
10231, 71opksnelsik 4266 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪{{b}}, {x}⟫ SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ ⟪{b}, x ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c))
10333, 71eqpwrelk 4479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⟪{b}, x ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = b)
104102, 103bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{{b}}, {x}⟫ SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = b)
105100, 101, 1043bitri 262 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ↔ x = b)
10668, 69, 28otkelins3k 4257 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ↔ ⟪{x}, n Sk )
107106, 78bitri 240 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Skx n)
108105, 107anbi12i 678 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ⟪{{{x}}}, ⟪n, {{b}}⟫⟫ Ins3k Sk ) ↔ (x = b x n))
10998, 99, 1083bitri 262 . . . . . . . . . . . . . . . . . . . . . . 23 (t(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ (x = b x n))
110109exbii 1582 . . . . . . . . . . . . . . . . . . . . . 22 (xt(t = {{{x}}} t, ⟪n, {{b}}⟫⟫ ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk )) ↔ x(x = b x n))
11188, 95, 1103bitri 262 . . . . . . . . . . . . . . . . . . . . 21 (⟪n, {{b}}⟫ (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ x(x = b x n))
11269, 28, 3otkelins3k 4257 . . . . . . . . . . . . . . . . . . . . 21 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ ⟪n, {{b}}⟫ (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))
113 df-clel 2349 . . . . . . . . . . . . . . . . . . . . 21 (b nx(x = b x n))
114111, 112, 1133bitr4i 268 . . . . . . . . . . . . . . . . . . . 20 (⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ↔ b n)
11586, 114anbi12i 678 . . . . . . . . . . . . . . . . . . 19 ((⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ⟪{{n}}, ⟪{{b}}, {{a}}⟫⟫ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) ↔ (a n b n))
11651, 52, 1153bitri 262 . . . . . . . . . . . . . . . . . 18 (t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ (a n b n))
117116rexbii 2640 . . . . . . . . . . . . . . . . 17 (n Nn t(t = {{n}} t, ⟪{{b}}, {{a}}⟫⟫ ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c))) ↔ n Nn (a n b n))
11836, 47, 1173bitri 262 . . . . . . . . . . . . . . . 16 (⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) ↔ n Nn (a n b n))
119118notbii 287 . . . . . . . . . . . . . . 15 (¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) ↔ ¬ n Nn (a n b n))
12035, 119anbi12i 678 . . . . . . . . . . . . . 14 ((⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins2k SIk Sk ¬ ⟪{{{{b}}}}, ⟪{{a}}, {m}⟫⟫ Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) ↔ (b m ¬ n Nn (a n b n)))
12126, 27, 1203bitri 262 . . . . . . . . . . . . 13 (t(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ (b m ¬ n Nn (a n b n)))
122121exbii 1582 . . . . . . . . . . . 12 (bt(t = {{{{b}}}} t, ⟪{{a}}, {m}⟫⟫ ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ))) ↔ b(b m ¬ n Nn (a n b n)))
12314, 22, 1223bitri 262 . . . . . . . . . . 11 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c) ↔ b(b m ¬ n Nn (a n b n)))
124 df-rex 2621 . . . . . . . . . . 11 (b m ¬ n Nn (a n b n) ↔ b(b m ¬ n Nn (a n b n)))
125 rexnal 2626 . . . . . . . . . . 11 (b m ¬ n Nn (a n b n) ↔ ¬ b m n Nn (a n b n))
126123, 124, 1253bitr2i 264 . . . . . . . . . 10 (⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c) ↔ ¬ b m n Nn (a n b n))
12712, 126anbi12i 678 . . . . . . . . 9 ((⟪{{a}}, {m}⟫ SIk Sk ⟪{{a}}, {m}⟫ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) ↔ (a m ¬ b m n Nn (a n b n)))
1286, 7, 1273bitri 262 . . . . . . . 8 (t(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ (a m ¬ b m n Nn (a n b n)))
129128exbii 1582 . . . . . . 7 (at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ a(a m ¬ b m n Nn (a n b n)))
13029elimak 4260 . . . . . . . 8 ({m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)))
131 elpw11c 4148 . . . . . . . . . . . 12 (t 11ca t = {{a}})
132131anbi1i 676 . . . . . . . . . . 11 ((t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ (a t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
133 19.41v 1901 . . . . . . . . . . 11 (a(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ (a t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
134132, 133bitr4i 243 . . . . . . . . . 10 ((t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ a(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
135134exbii 1582 . . . . . . . . 9 (t(t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ ta(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
136 df-rex 2621 . . . . . . . . 9 (t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) ↔ t(t 11c t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
137 excom 1741 . . . . . . . . 9 (at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))) ↔ ta(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
138135, 136, 1373bitr4i 268 . . . . . . . 8 (t 1 1ct, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) ↔ at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
139130, 138bitri 240 . . . . . . 7 ({m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ at(t = {{a}} t, {m}⟫ ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c))))
140 df-rex 2621 . . . . . . 7 (a m ¬ b m n Nn (a n b n) ↔ a(a m ¬ b m n Nn (a n b n)))
141129, 139, 1403bitr4i 268 . . . . . 6 ({m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ a m ¬ b m n Nn (a n b n))
142141notbii 287 . . . . 5 (¬ {m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ ¬ a m ¬ b m n Nn (a n b n))
14329elcompl 3226 . . . . 5 ({m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ ¬ {m} (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c))
144 dfral2 2627 . . . . 5 (a m b m n Nn (a n b n) ↔ ¬ a m ¬ b m n Nn (a n b n))
145142, 143, 1443bitr4i 268 . . . 4 ({m} ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ a m b m n Nn (a n b n))
1462, 145bitri 240 . . 3 (m 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) ↔ a m b m n Nn (a n b n))
147146abbi2i 2465 . 2 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) = {m a m b m n Nn (a n b n)}
148 ssetkex 4295 . . . . . . 7 Sk V
149148sikex 4298 . . . . . 6 SIk Sk V
150149ins2kex 4308 . . . . . . . 8 Ins2k SIk Sk V
151148ins2kex 4308 . . . . . . . . . . . . . . . . . . . 20 Ins2k Sk V
152149ins3kex 4309 . . . . . . . . . . . . . . . . . . . 20 Ins3k SIk Sk V
153151, 152symdifex 4109 . . . . . . . . . . . . . . . . . . 19 ( Ins2k SkIns3k SIk Sk ) V
154 1cex 4143 . . . . . . . . . . . . . . . . . . . . 21 1c V
155154pw1ex 4304 . . . . . . . . . . . . . . . . . . . 20 11c V
156155pw1ex 4304 . . . . . . . . . . . . . . . . . . 19 111c V
157153, 156imakex 4301 . . . . . . . . . . . . . . . . . 18 (( Ins2k SkIns3k SIk Sk ) “k 111c) V
158157complex 4105 . . . . . . . . . . . . . . . . 17 ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
159158cnvkex 4288 . . . . . . . . . . . . . . . 16 k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
160159sikex 4298 . . . . . . . . . . . . . . 15 SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
161160ins2kex 4308 . . . . . . . . . . . . . 14 Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
162148ins3kex 4309 . . . . . . . . . . . . . 14 Ins3k Sk V
163161, 162inex 4106 . . . . . . . . . . . . 13 ( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) V
164163, 156imakex 4301 . . . . . . . . . . . 12 (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) V
165164ins2kex 4308 . . . . . . . . . . 11 Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) V
166158sikex 4298 . . . . . . . . . . . . . . . 16 SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
167166cnvkex 4288 . . . . . . . . . . . . . . 15 k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
168167ins2kex 4308 . . . . . . . . . . . . . 14 Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) V
169168, 162inex 4106 . . . . . . . . . . . . 13 ( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) V
170169, 156imakex 4301 . . . . . . . . . . . 12 (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) V
171170ins3kex 4309 . . . . . . . . . . 11 Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) V
172165, 171inex 4106 . . . . . . . . . 10 ( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) V
173 nncex 4397 . . . . . . . . . . . 12 Nn V
174173pw1ex 4304 . . . . . . . . . . 11 1 Nn V
175174pw1ex 4304 . . . . . . . . . 10 11 Nn V
176172, 175imakex 4301 . . . . . . . . 9 (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) V
177176ins3kex 4309 . . . . . . . 8 Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn ) V
178150, 177difex 4108 . . . . . . 7 ( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) V
179156pw1ex 4304 . . . . . . 7 1111c V
180178, 179imakex 4301 . . . . . 6 (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c) V
181149, 180inex 4106 . . . . 5 ( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) V
182181, 155imakex 4301 . . . 4 (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) V
183182complex 4105 . . 3 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) V
184183uni1ex 4294 . 2 1 ∼ (( SIk Sk ∩ (( Ins2k SIk Sk Ins3k (( Ins2k (( Ins2k SIk k ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c) ∩ Ins3k (( Ins2k k SIk ∼ (( Ins2k SkIns3k SIk Sk ) “k 111c) ∩ Ins3k Sk ) “k 111c)) “k 11 Nn )) “k 1111c)) “k 11c) V
185147, 184eqeltrri 2424 1 {m a m b m n Nn (a n b n)} V
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3   wa 358  wex 1541   = wceq 1642   wcel 1710  {cab 2339  wral 2615  wrex 2616  Vcvv 2860  ccompl 3206   cdif 3207  cin 3209  csymdif 3210  cpw 3723  {csn 3738  copk 4058  1cuni1 4134  1cc1c 4135  1cpw1 4136  kccnvk 4176   Ins2k cins2k 4177   Ins3k cins3k 4178  k cimak 4180   SIk csik 4182   Sk cssetk 4184   Nn cnnc 4374
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-sset 4083  ax-si 4084  ax-ins2 4085  ax-ins3 4086  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-sbc 3048  df-nin 3212  df-compl 3213  df-in 3214  df-un 3215  df-dif 3216  df-symdif 3217  df-ss 3260  df-nul 3552  df-if 3664  df-pw 3725  df-sn 3742  df-pr 3743  df-uni 3893  df-int 3928  df-opk 4059  df-1c 4137  df-pw1 4138  df-uni1 4139  df-xpk 4186  df-cnvk 4187  df-ins2k 4188  df-ins3k 4189  df-imak 4190  df-cok 4191  df-p6 4192  df-sik 4193  df-ssetk 4194  df-imagek 4195  df-addc 4379  df-nnc 4380
This theorem is referenced by:  nnpweq  4524
  Copyright terms: Public domain W3C validator