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

Theorem preaddccan2lem1 4455
Description: Lemma for preaddccan2 4456. Establish stratification for the induction step. (Contributed by SF, 30-Mar-2021.)
Assertion
Ref Expression
preaddccan2lem1 ((N Nn P Nn ) → {m (((m +c N) ≠ (m +c N) = (m +c P)) → N = P)} V)
Distinct variable groups:   m,N   P,m

Proof of Theorem preaddccan2lem1
Dummy variables n p t are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 addceq2 4385 . . . . . . 7 (n = N → (m +c n) = (m +c N))
21neeq1d 2530 . . . . . 6 (n = N → ((m +c n) ≠ ↔ (m +c N) ≠ ))
31eqeq1d 2361 . . . . . 6 (n = N → ((m +c n) = (m +c p) ↔ (m +c N) = (m +c p)))
42, 3anbi12d 691 . . . . 5 (n = N → (((m +c n) ≠ (m +c n) = (m +c p)) ↔ ((m +c N) ≠ (m +c N) = (m +c p))))
54imbi1d 308 . . . 4 (n = N → ((((m +c n) ≠ (m +c n) = (m +c p)) → N = P) ↔ (((m +c N) ≠ (m +c N) = (m +c p)) → N = P)))
65abbidv 2468 . . 3 (n = N → {m (((m +c n) ≠ (m +c n) = (m +c p)) → N = P)} = {m (((m +c N) ≠ (m +c N) = (m +c p)) → N = P)})
76eleq1d 2419 . 2 (n = N → ({m (((m +c n) ≠ (m +c n) = (m +c p)) → N = P)} V ↔ {m (((m +c N) ≠ (m +c N) = (m +c p)) → N = P)} V))
8 addceq2 4385 . . . . . . 7 (p = P → (m +c p) = (m +c P))
98eqeq2d 2364 . . . . . 6 (p = P → ((m +c N) = (m +c p) ↔ (m +c N) = (m +c P)))
109anbi2d 684 . . . . 5 (p = P → (((m +c N) ≠ (m +c N) = (m +c p)) ↔ ((m +c N) ≠ (m +c N) = (m +c P))))
1110imbi1d 308 . . . 4 (p = P → ((((m +c N) ≠ (m +c N) = (m +c p)) → N = P) ↔ (((m +c N) ≠ (m +c N) = (m +c P)) → N = P)))
1211abbidv 2468 . . 3 (p = P → {m (((m +c N) ≠ (m +c N) = (m +c p)) → N = P)} = {m (((m +c N) ≠ (m +c N) = (m +c P)) → N = P)})
1312eleq1d 2419 . 2 (p = P → ({m (((m +c N) ≠ (m +c N) = (m +c p)) → N = P)} V ↔ {m (((m +c N) ≠ (m +c N) = (m +c P)) → N = P)} V))
14 imor 401 . . . . 5 ((((m +c n) ≠ (m +c n) = (m +c p)) → N = P) ↔ (¬ ((m +c n) ≠ (m +c n) = (m +c p)) N = P))
1514abbii 2466 . . . 4 {m (((m +c n) ≠ (m +c n) = (m +c p)) → N = P)} = {m (¬ ((m +c n) ≠ (m +c n) = (m +c p)) N = P)}
16 unab 3522 . . . 4 ({m ¬ ((m +c n) ≠ (m +c n) = (m +c p))} ∪ {m N = P}) = {m (¬ ((m +c n) ≠ (m +c n) = (m +c p)) N = P)}
1715, 16eqtr4i 2376 . . 3 {m (((m +c n) ≠ (m +c n) = (m +c p)) → N = P)} = ({m ¬ ((m +c n) ≠ (m +c n) = (m +c p))} ∪ {m N = P})
18 vex 2863 . . . . . . . 8 m V
1918elcompl 3226 . . . . . . 7 (m ∼ ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ ¬ m ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)))
20 elin 3220 . . . . . . . . 9 (m ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ (m ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) m (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)))
21 0ex 4111 . . . . . . . . . . . . . 14 V
2221, 18opkelcnvk 4251 . . . . . . . . . . . . 13 (⟪, m kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ↔ ⟪m, Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n))
2321, 18elimaksn 4284 . . . . . . . . . . . . 13 (m (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ↔ ⟪, m kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n))
24 dfaddc2 4382 . . . . . . . . . . . . . . 15 (m +c n) = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k m)
2524eqeq2i 2363 . . . . . . . . . . . . . 14 ( = (m +c n) ↔ = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k m))
26 eqcom 2355 . . . . . . . . . . . . . 14 ((m +c n) = = (m +c n))
2718, 21opkelimagek 4273 . . . . . . . . . . . . . 14 (⟪m, Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ↔ = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k m))
2825, 26, 273bitr4i 268 . . . . . . . . . . . . 13 ((m +c n) = ↔ ⟪m, Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n))
2922, 23, 283bitr4i 268 . . . . . . . . . . . 12 (m (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ↔ (m +c n) = )
3029notbii 287 . . . . . . . . . . 11 m (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ↔ ¬ (m +c n) = )
3118elcompl 3226 . . . . . . . . . . 11 (m ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ↔ ¬ m (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}))
32 df-ne 2519 . . . . . . . . . . 11 ((m +c n) ≠ ↔ ¬ (m +c n) = )
3330, 31, 323bitr4i 268 . . . . . . . . . 10 (m ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ↔ (m +c n) ≠ )
34 rexv 2874 . . . . . . . . . . . 12 (t V ⟪t, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ tt, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)))
35 vex 2863 . . . . . . . . . . . . . . 15 t V
3635, 18opkelcnvk 4251 . . . . . . . . . . . . . 14 (⟪t, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ ⟪m, t (Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)))
37 elin 3220 . . . . . . . . . . . . . . 15 (⟪m, t (Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ (⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)))
3818, 35opkelimagek 4273 . . . . . . . . . . . . . . . . 17 (⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ↔ t = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k m))
3924eqeq2i 2363 . . . . . . . . . . . . . . . . 17 (t = (m +c n) ↔ t = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k m))
4038, 39bitr4i 243 . . . . . . . . . . . . . . . 16 (⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ↔ t = (m +c n))
4118, 35opkelimagek 4273 . . . . . . . . . . . . . . . . 17 (⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) ↔ t = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) “k m))
42 dfaddc2 4382 . . . . . . . . . . . . . . . . . 18 (m +c p) = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) “k m)
4342eqeq2i 2363 . . . . . . . . . . . . . . . . 17 (t = (m +c p) ↔ t = ((( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) “k m))
4441, 43bitr4i 243 . . . . . . . . . . . . . . . 16 (⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) ↔ t = (m +c p))
4540, 44anbi12i 678 . . . . . . . . . . . . . . 15 ((⟪m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) m, t Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ (t = (m +c n) t = (m +c p)))
4637, 45bitri 240 . . . . . . . . . . . . . 14 (⟪m, t (Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ (t = (m +c n) t = (m +c p)))
4736, 46bitri 240 . . . . . . . . . . . . 13 (⟪t, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ (t = (m +c n) t = (m +c p)))
4847exbii 1582 . . . . . . . . . . . 12 (tt, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ t(t = (m +c n) t = (m +c p)))
4934, 48bitri 240 . . . . . . . . . . 11 (t V ⟪t, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) ↔ t(t = (m +c n) t = (m +c p)))
5018elimak 4260 . . . . . . . . . . 11 (m (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V) ↔ t V ⟪t, m k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)))
51 vex 2863 . . . . . . . . . . . . 13 n V
5218, 51addcex 4395 . . . . . . . . . . . 12 (m +c n) V
5352eqvinc 2967 . . . . . . . . . . 11 ((m +c n) = (m +c p) ↔ t(t = (m +c n) t = (m +c p)))
5449, 50, 533bitr4i 268 . . . . . . . . . 10 (m (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V) ↔ (m +c n) = (m +c p))
5533, 54anbi12i 678 . . . . . . . . 9 ((m ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) m (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ ((m +c n) ≠ (m +c n) = (m +c p)))
5620, 55bitri 240 . . . . . . . 8 (m ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ ((m +c n) ≠ (m +c n) = (m +c p)))
5756notbii 287 . . . . . . 7 m ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ ¬ ((m +c n) ≠ (m +c n) = (m +c p)))
5819, 57bitri 240 . . . . . 6 (m ∼ ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) ↔ ¬ ((m +c n) ≠ (m +c n) = (m +c p)))
5958abbi2i 2465 . . . . 5 ∼ ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) = {m ¬ ((m +c n) ≠ (m +c n) = (m +c p))}
60 addcexlem 4383 . . . . . . . . . . . 12 ( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) V
6151pw1ex 4304 . . . . . . . . . . . . 13 1n V
6261pw1ex 4304 . . . . . . . . . . . 12 11n V
6360, 62imakex 4301 . . . . . . . . . . 11 (( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) V
6463imagekex 4313 . . . . . . . . . 10 Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) V
6564cnvkex 4288 . . . . . . . . 9 kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) V
66 snex 4112 . . . . . . . . 9 {} V
6765, 66imakex 4301 . . . . . . . 8 (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) V
6867complex 4105 . . . . . . 7 ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) V
69 vex 2863 . . . . . . . . . . . . . 14 p V
7069pw1ex 4304 . . . . . . . . . . . . 13 1p V
7170pw1ex 4304 . . . . . . . . . . . 12 11p V
7260, 71imakex 4301 . . . . . . . . . . 11 (( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) V
7372imagekex 4313 . . . . . . . . . 10 Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p) V
7464, 73inex 4106 . . . . . . . . 9 (Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) V
7574cnvkex 4288 . . . . . . . 8 k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) V
76 vvex 4110 . . . . . . . 8 V V
7775, 76imakex 4301 . . . . . . 7 (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V) V
7868, 77inex 4106 . . . . . 6 ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) V
7978complex 4105 . . . . 5 ∼ ( ∼ (kImagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) “k {}) ∩ (k(Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11n) ∩ Imagek(( Ins3k ∼ (( Ins3k SkIns2k Sk ) “k 111c) (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k SkIns3k SIk SIk Sk )) “k 11111c)) “k 11p)) “k V)) V
8059, 79eqeltrri 2424 . . . 4 {m ¬ ((m +c n) ≠ (m +c n) = (m +c p))} V
81 abexv 4325 . . . 4 {m N = P} V
8280, 81unex 4107 . . 3 ({m ¬ ((m +c n) ≠ (m +c n) = (m +c p))} ∪ {m N = P}) V
8317, 82eqeltri 2423 . 2 {m (((m +c n) ≠ (m +c n) = (m +c p)) → N = P)} V
847, 13, 83vtocl2g 2919 1 ((N Nn P Nn ) → {m (((m +c N) ≠ (m +c N) = (m +c P)) → N = P)} V)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4   wo 357   wa 358  wex 1541   = wceq 1642   wcel 1710  {cab 2339  wne 2517  wrex 2616  Vcvv 2860  ccompl 3206   cdif 3207  cun 3208  cin 3209  csymdif 3210  c0 3551  {csn 3738  copk 4058  1cc1c 4135  1cpw1 4136  kccnvk 4176   Ins2k cins2k 4177   Ins3k cins3k 4178  k cimak 4180   SIk csik 4182  Imagekcimagek 4183   Sk cssetk 4184   Nn cnnc 4374   +c cplc 4376
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-pw 3725  df-sn 3742  df-pr 3743  df-opk 4059  df-1c 4137  df-pw1 4138  df-xpk 4186  df-cnvk 4187  df-ins2k 4188  df-ins3k 4189  df-imak 4190  df-cok 4191  df-p6 4192  df-sik 4193  df-ssetk 4194  df-imagek 4195  df-addc 4379
This theorem is referenced by:  preaddccan2  4456
  Copyright terms: Public domain W3C validator