| Step | Hyp | Ref
| Expression |
| 1 | | fuconuniq2.q |
. . . 4
⊢ 𝑄 = (𝐶 FuncCat 𝐸) |
| 2 | | fuconuniqlem.t |
. . . 4
⊢ 𝑇 = ((𝐶 FuncCat 𝐸) ×c (𝐶 FuncCat 𝐶)) |
| 3 | | fuconuniq2.l |
. . . 4
⊢ 𝐿 = (〈𝐶, 𝐶〉 ∘F 𝐸) |
| 4 | | fuconuniq2.c |
. . . . . . 7
⊢ 𝐶 =
(SetCat‘1o) |
| 5 | | setc1oterm 50717 |
. . . . . . 7
⊢
(SetCat‘1o) ∈ TermCat |
| 6 | 4, 5 | eqeltri 2856 |
. . . . . 6
⊢ 𝐶 ∈ TermCat |
| 7 | 6 | a1i 11 |
. . . . 5
⊢ (⊤
→ 𝐶 ∈
TermCat) |
| 8 | 7 | termccatd 50705 |
. . . 4
⊢ (⊤
→ 𝐶 ∈
Cat) |
| 9 | | fuconuniq2.e |
. . . . . . 7
⊢ 𝐸 = {〈(Base‘ndx),
2o〉, 〈(Hom ‘ndx), (𝑚 ∈ 2o, 𝑛 ∈ 2o ↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))〉, 〈(comp‘ndx), (𝑝 ∈ (2o ×
2o), 𝑞 ∈
2o ↦ (𝑟
∈ 3o, 𝑠
∈ 3o ↦ (𝑟 ∩ 𝑠)))〉} |
| 10 | 9 | par2catid 50858 |
. . . . . 6
⊢ (𝐸 ∈ Cat ∧
(Id‘𝐸) = (𝑦 ∈ 2o ↦
2o)) |
| 11 | 10 | simpli 489 |
. . . . 5
⊢ 𝐸 ∈ Cat |
| 12 | 11 | a1i 11 |
. . . 4
⊢ (⊤
→ 𝐸 ∈
Cat) |
| 13 | | fuconuniq.r |
. . . . . 6
⊢ 𝑅 = (𝐸 FuncCat 𝐸) |
| 14 | | fuconuniq.o |
. . . . . 6
⊢ ⚬ =
(〈𝑅, 𝑄〉 curryF (〈𝐶, 𝐸〉 ∘F 𝐸)) |
| 15 | | fuconuniq.k |
. . . . . 6
⊢ 𝐾 = ((1st ‘
⚬
)‘𝑆) |
| 16 | | fuconuniq.s |
. . . . . . . 8
⊢ 𝑆 = 〈( I ↾
2o), 𝑀〉 |
| 17 | | fuconuniq.a |
. . . . . . . . 9
⊢ 𝐴 = (𝑏 ∈ 3o ↦ if(𝑏 = 2o, 2o,
if(𝑏 = ∅,
1o, ∅))) |
| 18 | | fuconuniq.m |
. . . . . . . . 9
⊢ 𝑀 = (𝑢 ∈ 2o, 𝑣 ∈ 2o ↦ (𝑎 ∈ (𝑢(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))𝑣) ↦ (𝐴‘𝑎))) |
| 19 | 9, 17, 18 | parswapfunc 50869 |
. . . . . . . 8
⊢ 〈( I
↾ 2o), 𝑀〉 ∈ (𝐸 Func 𝐸) |
| 20 | 16, 19 | eqeltri 2856 |
. . . . . . 7
⊢ 𝑆 ∈ (𝐸 Func 𝐸) |
| 21 | 20 | a1i 11 |
. . . . . 6
⊢ (⊤
→ 𝑆 ∈ (𝐸 Func 𝐸)) |
| 22 | | mptresid 6042 |
. . . . . . . . 9
⊢ ( I
↾ 2o) = (𝑥
∈ 2o ↦ 𝑥) |
| 23 | | 2oex 8490 |
. . . . . . . . . 10
⊢
2o ∈ V |
| 24 | 23 | mptex 7229 |
. . . . . . . . 9
⊢ (𝑥 ∈ 2o ↦
𝑥) ∈
V |
| 25 | 22, 24 | eqeltri 2856 |
. . . . . . . 8
⊢ ( I
↾ 2o) ∈ V |
| 26 | 23, 23 | mpoex 8092 |
. . . . . . . . 9
⊢ (𝑢 ∈ 2o, 𝑣 ∈ 2o ↦
(𝑎 ∈ (𝑢(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))𝑣) ↦ (𝐴‘𝑎))) ∈ V |
| 27 | 18, 26 | eqeltri 2856 |
. . . . . . . 8
⊢ 𝑀 ∈ V |
| 28 | 25, 27 | op1std 8011 |
. . . . . . 7
⊢ (𝑆 = 〈( I ↾
2o), 𝑀〉
→ (1st ‘𝑆) = ( I ↾
2o)) |
| 29 | 16, 28 | mp1i 14 |
. . . . . 6
⊢ (⊤
→ (1st ‘𝑆) = ( I ↾
2o)) |
| 30 | 7, 1, 13, 14, 15, 21, 29 | termcpostfix 50763 |
. . . . 5
⊢ (⊤
→ (𝐾 ∈ (𝑄 Func 𝑄) ∧ (1st ‘𝐾) = ( I ↾ (𝐶 Func 𝐸)))) |
| 31 | 30 | simpld 500 |
. . . 4
⊢ (⊤
→ 𝐾 ∈ (𝑄 Func 𝑄)) |
| 32 | 30 | simprd 501 |
. . . 4
⊢ (⊤
→ (1st ‘𝐾) = ( I ↾ (𝐶 Func 𝐸))) |
| 33 | 1, 2, 3, 8, 8, 12,
31, 32 | fucoaltfunc 50582 |
. . 3
⊢ (⊤
→ (1st ‘𝐿)(𝑇 Func 𝑄)(2nd ‘(𝐾 ∘func 𝐿))) |
| 34 | | fuconuniqlem.d |
. . . . . . . 8
⊢ 𝐷 = (𝐸Δfunc𝐶) |
| 35 | | fuconuniqlem.f |
. . . . . . . 8
⊢ 𝐹 = ((1st ‘𝐷)‘∅) |
| 36 | | fuconuniqlem.g |
. . . . . . . 8
⊢ 𝐺 = ((1st ‘𝐷)‘1o) |
| 37 | | fuconuniqlem.n |
. . . . . . . 8
⊢ 𝑁 = (1o ×
{∅}) |
| 38 | 4, 9, 34, 35, 36, 37 | par2diag 50871 |
. . . . . . 7
⊢ ((𝐹 ∈ (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) ∧ (𝑁 ∈ (𝐹(𝐶 Nat 𝐸)𝐺) ∧ (𝑁‘∅) = ∅) ∧
(((1st ‘𝐹)‘∅) = ∅ ∧
((1st ‘𝐺)‘∅) =
1o)) |
| 39 | 38 | simp1i 1157 |
. . . . . 6
⊢ (𝐹 ∈ (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) |
| 40 | 39 | simpli 489 |
. . . . 5
⊢ 𝐹 ∈ (𝐶 Func 𝐸) |
| 41 | 40 | a1i 11 |
. . . 4
⊢ (⊤
→ 𝐹 ∈ (𝐶 Func 𝐸)) |
| 42 | 39 | simpri 491 |
. . . . 5
⊢ 𝐺 ∈ (𝐶 Func 𝐸) |
| 43 | 42 | a1i 11 |
. . . 4
⊢ (⊤
→ 𝐺 ∈ (𝐶 Func 𝐸)) |
| 44 | 38 | simp2i 1158 |
. . . . . 6
⊢ (𝑁 ∈ (𝐹(𝐶 Nat 𝐸)𝐺) ∧ (𝑁‘∅) = ∅) |
| 45 | 44 | simpli 489 |
. . . . 5
⊢ 𝑁 ∈ (𝐹(𝐶 Nat 𝐸)𝐺) |
| 46 | 45 | a1i 11 |
. . . 4
⊢ (⊤
→ 𝑁 ∈ (𝐹(𝐶 Nat 𝐸)𝐺)) |
| 47 | | 0lt1o 8514 |
. . . . . . . . . . . . 13
⊢ ∅
∈ 1o |
| 48 | 4 | setc1obas 50718 |
. . . . . . . . . . . . 13
⊢
1o = (Base‘𝐶) |
| 49 | 47, 48 | eleqtri 2858 |
. . . . . . . . . . . 12
⊢ ∅
∈ (Base‘𝐶) |
| 50 | 49 | a1i 11 |
. . . . . . . . . . 11
⊢ (⊤
→ ∅ ∈ (Base‘𝐶)) |
| 51 | 1, 13, 14, 21, 8, 15, 41, 43, 46, 50 | postcof2 50591 |
. . . . . . . . . 10
⊢ (⊤
→ (((𝐹(2nd
‘𝐾)𝐺)‘𝑁)‘∅) = ((((1st
‘𝐹)‘∅)(2nd ‘𝑆)((1st ‘𝐺)‘∅))‘(𝑁‘∅))) |
| 52 | 51 | mptru 1576 |
. . . . . . . . 9
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) = ((((1st
‘𝐹)‘∅)(2nd ‘𝑆)((1st ‘𝐺)‘∅))‘(𝑁‘∅)) |
| 53 | 38 | simp3i 1159 |
. . . . . . . . . . . 12
⊢
(((1st ‘𝐹)‘∅) = ∅ ∧
((1st ‘𝐺)‘∅) =
1o) |
| 54 | 53 | simpli 489 |
. . . . . . . . . . 11
⊢
((1st ‘𝐹)‘∅) = ∅ |
| 55 | 53 | simpri 491 |
. . . . . . . . . . 11
⊢
((1st ‘𝐺)‘∅) =
1o |
| 56 | 25, 27 | op2ndd 8012 |
. . . . . . . . . . . 12
⊢ (𝑆 = 〈( I ↾
2o), 𝑀〉
→ (2nd ‘𝑆) = 𝑀) |
| 57 | 16, 56 | ax-mp 5 |
. . . . . . . . . . 11
⊢
(2nd ‘𝑆) = 𝑀 |
| 58 | 54, 55, 57 | oveq123i 7434 |
. . . . . . . . . 10
⊢
(((1st ‘𝐹)‘∅)(2nd ‘𝑆)((1st ‘𝐺)‘∅)) =
(∅𝑀1o) |
| 59 | 44 | simpri 491 |
. . . . . . . . . 10
⊢ (𝑁‘∅) =
∅ |
| 60 | 58, 59 | fveq12i 6891 |
. . . . . . . . 9
⊢
((((1st ‘𝐹)‘∅)(2nd ‘𝑆)((1st ‘𝐺)‘∅))‘(𝑁‘∅)) =
((∅𝑀1o)‘∅) |
| 61 | 52, 60 | eqtri 2783 |
. . . . . . . 8
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) = ((∅𝑀1o)‘∅) |
| 62 | | 0ex 5260 |
. . . . . . . . . . . . 13
⊢ ∅
∈ V |
| 63 | 62 | prid1 4722 |
. . . . . . . . . . . 12
⊢ ∅
∈ {∅, 1o} |
| 64 | | df2o3 8486 |
. . . . . . . . . . . 12
⊢
2o = {∅, 1o} |
| 65 | 63, 64 | eleqtrri 2859 |
. . . . . . . . . . 11
⊢ ∅
∈ 2o |
| 66 | 65 | a1i 11 |
. . . . . . . . . 10
⊢ (⊤
→ ∅ ∈ 2o) |
| 67 | | 1oelpr 8489 |
. . . . . . . . . . . 12
⊢
1o ∈ {∅, 1o} |
| 68 | 67, 64 | eleqtrri 2859 |
. . . . . . . . . . 11
⊢
1o ∈ 2o |
| 69 | 68 | a1i 11 |
. . . . . . . . . 10
⊢ (⊤
→ 1o ∈ 2o) |
| 70 | | eqid 2760 |
. . . . . . . . . . . . . . 15
⊢ (𝑚 ∈ 2o, 𝑛 ∈ 2o ↦
if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o, ∅)))
= (𝑚 ∈ 2o,
𝑛 ∈ 2o
↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅))) |
| 71 | 70 | par2hom 50870 |
. . . . . . . . . . . . . 14
⊢
((∅(𝑚 ∈
2o, 𝑛 ∈
2o ↦ if(𝑚
= 𝑛, {2o},
if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅)))∅) = {2o} ∧ (1o(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦
if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))1o) = {2o} ∧ ((∅(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))1o) = 2o ∧ (1o(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦
if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))∅) = ∅)) |
| 72 | 71 | simp3i 1159 |
. . . . . . . . . . . . 13
⊢
((∅(𝑚 ∈
2o, 𝑛 ∈
2o ↦ if(𝑚
= 𝑛, {2o},
if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅)))1o) = 2o ∧
(1o(𝑚 ∈
2o, 𝑛 ∈
2o ↦ if(𝑚
= 𝑛, {2o},
if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅)))∅) = ∅) |
| 73 | 72 | simpli 489 |
. . . . . . . . . . . 12
⊢
(∅(𝑚 ∈
2o, 𝑛 ∈
2o ↦ if(𝑚
= 𝑛, {2o},
if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅)))1o) = 2o |
| 74 | 65, 73 | eleqtrri 2859 |
. . . . . . . . . . 11
⊢ ∅
∈ (∅(𝑚 ∈
2o, 𝑛 ∈
2o ↦ if(𝑚
= 𝑛, {2o},
if((𝑚 = ∅ ∧ 𝑛 = 1o),
2o, ∅)))1o) |
| 75 | 74 | a1i 11 |
. . . . . . . . . 10
⊢ (⊤
→ ∅ ∈ (∅(𝑚 ∈ 2o, 𝑛 ∈ 2o ↦ if(𝑚 = 𝑛, {2o}, if((𝑚 = ∅ ∧ 𝑛 = 1o), 2o,
∅)))1o)) |
| 76 | 18, 66, 69, 75 | fvmpomptd 50074 |
. . . . . . . . 9
⊢ (⊤
→ ((∅𝑀1o)‘∅) = (𝐴‘∅)) |
| 77 | 76 | mptru 1576 |
. . . . . . . 8
⊢
((∅𝑀1o)‘∅) = (𝐴‘∅) |
| 78 | 17 | parswapprop 50868 |
. . . . . . . . 9
⊢ ((𝐴‘2o) =
2o ∧ ∀𝑡 ∈ 2o (𝐴‘𝑡) ∈ 2o ∧ (𝐴‘∅) =
1o) |
| 79 | 78 | simp3i 1159 |
. . . . . . . 8
⊢ (𝐴‘∅) =
1o |
| 80 | 61, 77, 79 | 3eqtri 2787 |
. . . . . . 7
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) =
1o |
| 81 | | 1n0 8497 |
. . . . . . 7
⊢
1o ≠ ∅ |
| 82 | 80, 81 | eqnetri 3025 |
. . . . . 6
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) ≠
∅ |
| 83 | 82, 59 | neeqtrri 3028 |
. . . . 5
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) ≠ (𝑁‘∅) |
| 84 | | fveq1 6884 |
. . . . . 6
⊢ (((𝐹(2nd ‘𝐾)𝐺)‘𝑁) = 𝑁 → (((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) = (𝑁‘∅)) |
| 85 | 84 | necon3i 2987 |
. . . . 5
⊢ ((((𝐹(2nd ‘𝐾)𝐺)‘𝑁)‘∅) ≠ (𝑁‘∅) → ((𝐹(2nd ‘𝐾)𝐺)‘𝑁) ≠ 𝑁) |
| 86 | 83, 85 | mp1i 14 |
. . . 4
⊢ (⊤
→ ((𝐹(2nd
‘𝐾)𝐺)‘𝑁) ≠ 𝑁) |
| 87 | 1, 3, 8, 12, 31, 41, 43, 46, 86 | fucoaltne 50586 |
. . 3
⊢ (⊤
→ (2nd ‘(𝐾 ∘func 𝐿)) ≠ (2nd
‘𝐿)) |
| 88 | 33, 87 | jca 521 |
. 2
⊢ (⊤
→ ((1st ‘𝐿)(𝑇 Func 𝑄)(2nd ‘(𝐾 ∘func 𝐿)) ∧ (2nd
‘(𝐾
∘func 𝐿)) ≠ (2nd ‘𝐿))) |
| 89 | 88 | mptru 1576 |
1
⊢
((1st ‘𝐿)(𝑇 Func 𝑄)(2nd ‘(𝐾 ∘func 𝐿)) ∧ (2nd
‘(𝐾
∘func 𝐿)) ≠ (2nd ‘𝐿)) |