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