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

Theorem 2omotaplemap 7617
Description: Lemma for 2omotap 7619. (Contributed by Jim Kingdon, 6-Feb-2025.)
Assertion
Ref Expression
2omotaplemap (¬ ¬ 𝜑 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} TAp 2o)
Distinct variable group:   𝜑,𝑢,𝑣

Proof of Theorem 2omotaplemap
Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 opabssxp 4847 . . 3 {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ⊆ (2o × 2o)
21a1i 9 . 2 (¬ ¬ 𝜑 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ⊆ (2o × 2o))
3 df-br 4129 . . . . . . . 8 (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))})
4 neeq1 2433 . . . . . . . . . 10 (𝑢 = 𝑎 → (𝑢𝑣𝑎𝑣))
54anbi2d 468 . . . . . . . . 9 (𝑢 = 𝑎 → ((𝜑𝑢𝑣) ↔ (𝜑𝑎𝑣)))
6 neeq2 2434 . . . . . . . . . 10 (𝑣 = 𝑏 → (𝑎𝑣𝑎𝑏))
76anbi2d 468 . . . . . . . . 9 (𝑣 = 𝑏 → ((𝜑𝑎𝑣) ↔ (𝜑𝑎𝑏)))
85, 7opelopab2 4411 . . . . . . . 8 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑏)))
93, 8bitrid 192 . . . . . . 7 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 ↔ (𝜑𝑎𝑏)))
10 df-br 4129 . . . . . . . 8 (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ↔ ⟨𝑏, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))})
11 neeq1 2433 . . . . . . . . . . . 12 (𝑢 = 𝑏 → (𝑢𝑣𝑏𝑣))
1211anbi2d 468 . . . . . . . . . . 11 (𝑢 = 𝑏 → ((𝜑𝑢𝑣) ↔ (𝜑𝑏𝑣)))
13 neeq2 2434 . . . . . . . . . . . 12 (𝑣 = 𝑎 → (𝑏𝑣𝑏𝑎))
1413anbi2d 468 . . . . . . . . . . 11 (𝑣 = 𝑎 → ((𝜑𝑏𝑣) ↔ (𝜑𝑏𝑎)))
1512, 14opelopab2 4411 . . . . . . . . . 10 ((𝑏 ∈ 2o𝑎 ∈ 2o) → (⟨𝑏, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑏𝑎)))
1615ancoms 268 . . . . . . . . 9 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (⟨𝑏, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑏𝑎)))
17 necom 2504 . . . . . . . . . 10 (𝑏𝑎𝑎𝑏)
1817anbi2i 461 . . . . . . . . 9 ((𝜑𝑏𝑎) ↔ (𝜑𝑎𝑏))
1916, 18bitrdi 196 . . . . . . . 8 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (⟨𝑏, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑏)))
2010, 19bitrid 192 . . . . . . 7 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ↔ (𝜑𝑎𝑏)))
219, 20bitr4d 191 . . . . . 6 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎))
2221biimpd 144 . . . . 5 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎))
2322rgen2 2636 . . . 4 𝑎 ∈ 2o𝑏 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎)
2423a1i 9 . . 3 (¬ ¬ 𝜑 → ∀𝑎 ∈ 2o𝑏 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎))
25 neirr 2429 . . . . . 6 ¬ 𝑎𝑎
2625intnan 941 . . . . 5 ¬ (𝜑𝑎𝑎)
27 df-br 4129 . . . . . 6 (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ↔ ⟨𝑎, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))})
28 neeq2 2434 . . . . . . . . 9 (𝑣 = 𝑎 → (𝑎𝑣𝑎𝑎))
2928anbi2d 468 . . . . . . . 8 (𝑣 = 𝑎 → ((𝜑𝑎𝑣) ↔ (𝜑𝑎𝑎)))
305, 29opelopab2 4411 . . . . . . 7 ((𝑎 ∈ 2o𝑎 ∈ 2o) → (⟨𝑎, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑎)))
3130anidms 401 . . . . . 6 (𝑎 ∈ 2o → (⟨𝑎, 𝑎⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑎)))
3227, 31bitrid 192 . . . . 5 (𝑎 ∈ 2o → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ↔ (𝜑𝑎𝑎)))
3326, 32mtbiri 686 . . . 4 (𝑎 ∈ 2o → ¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎)
3433rgen 2603 . . 3 𝑎 ∈ 2o ¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎
3524, 34jctil 312 . 2 (¬ ¬ 𝜑 → (∀𝑎 ∈ 2o ¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ∧ ∀𝑎 ∈ 2o𝑏 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎)))
3693adant3 1048 . . . . . 6 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 ↔ (𝜑𝑎𝑏)))
37 simpr 110 . . . . . . . . . . . 12 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ 𝑎 = 𝑐) → 𝑎 = 𝑐)
38 simplrr 542 . . . . . . . . . . . 12 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ 𝑎 = 𝑐) → 𝑎𝑏)
3937, 38eqnetrrd 2446 . . . . . . . . . . 11 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ 𝑎 = 𝑐) → 𝑐𝑏)
4039necomd 2506 . . . . . . . . . 10 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ 𝑎 = 𝑐) → 𝑏𝑐)
4140olcd 746 . . . . . . . . 9 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ 𝑎 = 𝑐) → (𝑎𝑐𝑏𝑐))
42 simpr 110 . . . . . . . . . . 11 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ ¬ 𝑎 = 𝑐) → ¬ 𝑎 = 𝑐)
4342neqned 2427 . . . . . . . . . 10 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ ¬ 𝑎 = 𝑐) → 𝑎𝑐)
4443orcd 745 . . . . . . . . 9 ((((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) ∧ ¬ 𝑎 = 𝑐) → (𝑎𝑐𝑏𝑐))
45 simpl1 1031 . . . . . . . . . . . 12 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → 𝑎 ∈ 2o)
46 2onn 6788 . . . . . . . . . . . 12 2o ∈ ω
47 elnn 4751 . . . . . . . . . . . 12 ((𝑎 ∈ 2o ∧ 2o ∈ ω) → 𝑎 ∈ ω)
4845, 46, 47sylancl 417 . . . . . . . . . . 11 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → 𝑎 ∈ ω)
49 simpl3 1033 . . . . . . . . . . . 12 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → 𝑐 ∈ 2o)
50 elnn 4751 . . . . . . . . . . . 12 ((𝑐 ∈ 2o ∧ 2o ∈ ω) → 𝑐 ∈ ω)
5149, 46, 50sylancl 417 . . . . . . . . . . 11 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → 𝑐 ∈ ω)
52 nndceq 6766 . . . . . . . . . . 11 ((𝑎 ∈ ω ∧ 𝑐 ∈ ω) → DECID 𝑎 = 𝑐)
5348, 51, 52syl2anc 415 . . . . . . . . . 10 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → DECID 𝑎 = 𝑐)
54 exmiddc 848 . . . . . . . . . 10 (DECID 𝑎 = 𝑐 → (𝑎 = 𝑐 ∨ ¬ 𝑎 = 𝑐))
5553, 54syl 14 . . . . . . . . 9 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎 = 𝑐 ∨ ¬ 𝑎 = 𝑐))
5641, 44, 55mpjaodan 810 . . . . . . . 8 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎𝑐𝑏𝑐))
57 df-br 4129 . . . . . . . . . . . 12 (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ ⟨𝑎, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))})
58 neeq2 2434 . . . . . . . . . . . . . . 15 (𝑣 = 𝑐 → (𝑎𝑣𝑎𝑐))
5958anbi2d 468 . . . . . . . . . . . . . 14 (𝑣 = 𝑐 → ((𝜑𝑎𝑣) ↔ (𝜑𝑎𝑐)))
605, 59opelopab2 4411 . . . . . . . . . . . . 13 ((𝑎 ∈ 2o𝑐 ∈ 2o) → (⟨𝑎, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑐)))
61603adant2 1047 . . . . . . . . . . . 12 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (⟨𝑎, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑎𝑐)))
6257, 61bitrid 192 . . . . . . . . . . 11 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ (𝜑𝑎𝑐)))
6362adantr 276 . . . . . . . . . 10 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ (𝜑𝑎𝑐)))
64 ibar 301 . . . . . . . . . . . 12 (𝜑 → (𝑎𝑐 ↔ (𝜑𝑎𝑐)))
6564adantr 276 . . . . . . . . . . 11 ((𝜑𝑎𝑏) → (𝑎𝑐 ↔ (𝜑𝑎𝑐)))
6665adantl 277 . . . . . . . . . 10 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎𝑐 ↔ (𝜑𝑎𝑐)))
6763, 66bitr4d 191 . . . . . . . . 9 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑎𝑐))
68 df-br 4129 . . . . . . . . . . . 12 (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ ⟨𝑏, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))})
69 neeq2 2434 . . . . . . . . . . . . . . 15 (𝑣 = 𝑐 → (𝑏𝑣𝑏𝑐))
7069anbi2d 468 . . . . . . . . . . . . . 14 (𝑣 = 𝑐 → ((𝜑𝑏𝑣) ↔ (𝜑𝑏𝑐)))
7112, 70opelopab2 4411 . . . . . . . . . . . . 13 ((𝑏 ∈ 2o𝑐 ∈ 2o) → (⟨𝑏, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑏𝑐)))
72713adant1 1046 . . . . . . . . . . . 12 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (⟨𝑏, 𝑐⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ↔ (𝜑𝑏𝑐)))
7368, 72bitrid 192 . . . . . . . . . . 11 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ (𝜑𝑏𝑐)))
7473adantr 276 . . . . . . . . . 10 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐 ↔ (𝜑𝑏𝑐)))
75 ibar 301 . . . . . . . . . . . 12 (𝜑 → (𝑏𝑐 ↔ (𝜑𝑏𝑐)))
7675adantr 276 . . . . . . . . . . 11 ((𝜑𝑎𝑏) → (𝑏𝑐 ↔ (𝜑𝑏𝑐)))
7776adantl 277 . . . . . . . . . 10 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑏𝑐 ↔ (𝜑𝑏𝑐)))
7874, 77bitr4d 191 . . . . . . . . 9 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏𝑐))
7967, 78orbi12d 805 . . . . . . . 8 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → ((𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐) ↔ (𝑎𝑐𝑏𝑐)))
8056, 79mpbird 167 . . . . . . 7 (((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) ∧ (𝜑𝑎𝑏)) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐))
8180ex 115 . . . . . 6 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → ((𝜑𝑎𝑏) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)))
8236, 81sylbid 150 . . . . 5 ((𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)))
8382adantl 277 . . . 4 ((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o)) → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)))
8483ralrimivvva 2633 . . 3 (¬ ¬ 𝜑 → ∀𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)))
859notbid 677 . . . . . 6 ((𝑎 ∈ 2o𝑏 ∈ 2o) → (¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 ↔ ¬ (𝜑𝑎𝑏)))
8685adantl 277 . . . . 5 ((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) → (¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 ↔ ¬ (𝜑𝑎𝑏)))
87 simpll 531 . . . . . . . 8 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → ¬ ¬ 𝜑)
88 simpr 110 . . . . . . . . . 10 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → ¬ (𝜑𝑎𝑏))
89 ancom 266 . . . . . . . . . 10 ((𝜑𝑎𝑏) ↔ (𝑎𝑏𝜑))
9088, 89sylnib 687 . . . . . . . . 9 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → ¬ (𝑎𝑏𝜑))
91 imnan 701 . . . . . . . . 9 ((𝑎𝑏 → ¬ 𝜑) ↔ ¬ (𝑎𝑏𝜑))
9290, 91sylibr 134 . . . . . . . 8 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → (𝑎𝑏 → ¬ 𝜑))
9387, 92mtod 673 . . . . . . 7 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → ¬ 𝑎𝑏)
94 simplrl 541 . . . . . . . . . 10 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → 𝑎 ∈ 2o)
9594, 46, 47sylancl 417 . . . . . . . . 9 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → 𝑎 ∈ ω)
96 simplrr 542 . . . . . . . . . 10 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → 𝑏 ∈ 2o)
97 elnn 4751 . . . . . . . . . 10 ((𝑏 ∈ 2o ∧ 2o ∈ ω) → 𝑏 ∈ ω)
9896, 46, 97sylancl 417 . . . . . . . . 9 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → 𝑏 ∈ ω)
99 nndceq 6766 . . . . . . . . 9 ((𝑎 ∈ ω ∧ 𝑏 ∈ ω) → DECID 𝑎 = 𝑏)
10095, 98, 99syl2anc 415 . . . . . . . 8 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → DECID 𝑎 = 𝑏)
101 nnedc 2425 . . . . . . . 8 (DECID 𝑎 = 𝑏 → (¬ 𝑎𝑏𝑎 = 𝑏))
102100, 101syl 14 . . . . . . 7 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → (¬ 𝑎𝑏𝑎 = 𝑏))
10393, 102mpbid 147 . . . . . 6 (((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) ∧ ¬ (𝜑𝑎𝑏)) → 𝑎 = 𝑏)
104103ex 115 . . . . 5 ((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) → (¬ (𝜑𝑎𝑏) → 𝑎 = 𝑏))
10586, 104sylbid 150 . . . 4 ((¬ ¬ 𝜑 ∧ (𝑎 ∈ 2o𝑏 ∈ 2o)) → (¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑎 = 𝑏))
106105ralrimivva 2632 . . 3 (¬ ¬ 𝜑 → ∀𝑎 ∈ 2o𝑏 ∈ 2o𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑎 = 𝑏))
10784, 106jca 306 . 2 (¬ ¬ 𝜑 → (∀𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)) ∧ ∀𝑎 ∈ 2o𝑏 ∈ 2o𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑎 = 𝑏)))
108 dftap2 7611 . 2 ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} TAp 2o ↔ ({⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} ⊆ (2o × 2o) ∧ (∀𝑎 ∈ 2o ¬ 𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎 ∧ ∀𝑎 ∈ 2o𝑏 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑎)) ∧ (∀𝑎 ∈ 2o𝑏 ∈ 2o𝑐 ∈ 2o (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏 → (𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐𝑏{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑐)) ∧ ∀𝑎 ∈ 2o𝑏 ∈ 2o𝑎{⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))}𝑏𝑎 = 𝑏))))
1092, 35, 107, 108syl3anbrc 1212 1 (¬ ¬ 𝜑 → {⟨𝑢, 𝑣⟩ ∣ ((𝑢 ∈ 2o𝑣 ∈ 2o) ∧ (𝜑𝑢𝑣))} TAp 2o)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  wo 720  DECID wdc 846  w3a 1009  wcel 2209  wne 2420  wral 2528  wss 3220  cop 3711   class class class wbr 4128  {copab 4189  ωcom 4735   × cxp 4770  2oc2o 6675   TAp wtap 7608
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4247  ax-nul 4257  ax-pow 4309  ax-pr 4344  ax-un 4576  ax-setind 4682  ax-iinf 4733
This theorem depends on definitions:  df-bi 117  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-ral 2533  df-rex 2534  df-v 2823  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3690  df-sn 3714  df-pr 3715  df-op 3717  df-uni 3934  df-int 3969  df-br 4129  df-opab 4191  df-tr 4228  df-iord 4509  df-on 4511  df-suc 4514  df-iom 4736  df-xp 4778  df-1o 6681  df-2o 6682  df-pap 7602  df-tap 7609
This theorem is referenced by:  2omotaplemst  7618
  Copyright terms: Public domain W3C validator