Step
*
1
2
2
1
2
2
1
of Lemma
csm-cubical-sigma
1. X : CubicalSet
2. Delta : CubicalSet
3. A1 : I:(Cname List) ⟶ X(I) ⟶ Type
4. A2 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X(I) ⟶ (A1 I a) ⟶ (A1 J f(a))
5. (∀I:Cname List. ∀a:X(I). ∀u:A1 I a. ((A2 I I 1 a u) = u ∈ (A1 I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X(I). ∀u:A1 I a.
((A2 I K (f o g) a u) = (A2 J K g f(a) (A2 I J f a u)) ∈ (A1 K (f o g)(a))))
6. A : I:(Cname List) ⟶ X.<A1, A2>(I) ⟶ Type
7. B1 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X.<A1, A2>(I) ⟶ (A I a) ⟶ (A J f(a))
8. (∀I:Cname List. ∀a:X.<A1, A2>(I). ∀u:A I a. ((B1 I I 1 a u) = u ∈ (A I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X.<A1, A2>(I). ∀u:A I a.
((B1 I K (f o g) a u) = (B1 J K g f(a) (B1 I J f a u)) ∈ (A K (f o g)(a))))
9. s : A:(Cname List) ⟶ Delta(A) ⟶ X(A)
10. ∀A,B:cat-ob(NameCat). ∀g:cat-arrow(NameCat) A B.
((cat-comp(TypeCat) (Delta A) (X A) (X B) (s A) (X A B g))
= (cat-comp(TypeCat) (Delta A) (Delta B) (X B) (Delta A B g) (s B))
∈ (cat-arrow(TypeCat) (Delta A) (X B)))
11. X ⊢ <A1, A2>
12. X.<A1, A2> ⊢ <A, B1>
13. I : Cname List
14. J : Cname List
15. f : name-morph(I;J)
16. a : Delta(I)
17. u : A1 I (s)a
18. x1 : A I ((s)a;u)
19. (s I a;u) ∈ X.<A1, A2>(I)
20. (B1 I J f (s I a;u) x1) = (B1 I J f (s I a;u) x1) ∈ (A J f((s I a;u)))
⊢ (A J f((s I a;u))) ⊆r (A J (s J f(a);A2 I J f (s I a) u))
BY
{ TACTIC:Assert ⌜f(s I a) = (s J f(a)) ∈ X(J)⌝⋅ }
1
.....assertion.....
1. X : CubicalSet
2. Delta : CubicalSet
3. A1 : I:(Cname List) ⟶ X(I) ⟶ Type
4. A2 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X(I) ⟶ (A1 I a) ⟶ (A1 J f(a))
5. (∀I:Cname List. ∀a:X(I). ∀u:A1 I a. ((A2 I I 1 a u) = u ∈ (A1 I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X(I). ∀u:A1 I a.
((A2 I K (f o g) a u) = (A2 J K g f(a) (A2 I J f a u)) ∈ (A1 K (f o g)(a))))
6. A : I:(Cname List) ⟶ X.<A1, A2>(I) ⟶ Type
7. B1 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X.<A1, A2>(I) ⟶ (A I a) ⟶ (A J f(a))
8. (∀I:Cname List. ∀a:X.<A1, A2>(I). ∀u:A I a. ((B1 I I 1 a u) = u ∈ (A I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X.<A1, A2>(I). ∀u:A I a.
((B1 I K (f o g) a u) = (B1 J K g f(a) (B1 I J f a u)) ∈ (A K (f o g)(a))))
9. s : A:(Cname List) ⟶ Delta(A) ⟶ X(A)
10. ∀A,B:cat-ob(NameCat). ∀g:cat-arrow(NameCat) A B.
((cat-comp(TypeCat) (Delta A) (X A) (X B) (s A) (X A B g))
= (cat-comp(TypeCat) (Delta A) (Delta B) (X B) (Delta A B g) (s B))
∈ (cat-arrow(TypeCat) (Delta A) (X B)))
11. X ⊢ <A1, A2>
12. X.<A1, A2> ⊢ <A, B1>
13. I : Cname List
14. J : Cname List
15. f : name-morph(I;J)
16. a : Delta(I)
17. u : A1 I (s)a
18. x1 : A I ((s)a;u)
19. (s I a;u) ∈ X.<A1, A2>(I)
20. (B1 I J f (s I a;u) x1) = (B1 I J f (s I a;u) x1) ∈ (A J f((s I a;u)))
⊢ f(s I a) = (s J f(a)) ∈ X(J)
2
1. X : CubicalSet
2. Delta : CubicalSet
3. A1 : I:(Cname List) ⟶ X(I) ⟶ Type
4. A2 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X(I) ⟶ (A1 I a) ⟶ (A1 J f(a))
5. (∀I:Cname List. ∀a:X(I). ∀u:A1 I a. ((A2 I I 1 a u) = u ∈ (A1 I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X(I). ∀u:A1 I a.
((A2 I K (f o g) a u) = (A2 J K g f(a) (A2 I J f a u)) ∈ (A1 K (f o g)(a))))
6. A : I:(Cname List) ⟶ X.<A1, A2>(I) ⟶ Type
7. B1 : I:(Cname List) ⟶ J:(Cname List) ⟶ f:name-morph(I;J) ⟶ a:X.<A1, A2>(I) ⟶ (A I a) ⟶ (A J f(a))
8. (∀I:Cname List. ∀a:X.<A1, A2>(I). ∀u:A I a. ((B1 I I 1 a u) = u ∈ (A I a)))
∧ (∀I,J,K:Cname List. ∀f:name-morph(I;J). ∀g:name-morph(J;K). ∀a:X.<A1, A2>(I). ∀u:A I a.
((B1 I K (f o g) a u) = (B1 J K g f(a) (B1 I J f a u)) ∈ (A K (f o g)(a))))
9. s : A:(Cname List) ⟶ Delta(A) ⟶ X(A)
10. ∀A,B:cat-ob(NameCat). ∀g:cat-arrow(NameCat) A B.
((cat-comp(TypeCat) (Delta A) (X A) (X B) (s A) (X A B g))
= (cat-comp(TypeCat) (Delta A) (Delta B) (X B) (Delta A B g) (s B))
∈ (cat-arrow(TypeCat) (Delta A) (X B)))
11. X ⊢ <A1, A2>
12. X.<A1, A2> ⊢ <A, B1>
13. I : Cname List
14. J : Cname List
15. f : name-morph(I;J)
16. a : Delta(I)
17. u : A1 I (s)a
18. x1 : A I ((s)a;u)
19. (s I a;u) ∈ X.<A1, A2>(I)
20. (B1 I J f (s I a;u) x1) = (B1 I J f (s I a;u) x1) ∈ (A J f((s I a;u)))
21. f(s I a) = (s J f(a)) ∈ X(J)
⊢ (A J f((s I a;u))) ⊆r (A J (s J f(a);A2 I J f (s I a) u))
Latex:
Latex:
1. X : CubicalSet
2. Delta : CubicalSet
3. A1 : I:(Cname List) {}\mrightarrow{} X(I) {}\mrightarrow{} Type
4. A2 : I:(Cname List) {}\mrightarrow{} J:(Cname List) {}\mrightarrow{} f:name-morph(I;J) {}\mrightarrow{} a:X(I) {}\mrightarrow{} (A1 I a) {}\mrightarrow{} (A1 J f(a))
5. (\mforall{}I:Cname List. \mforall{}a:X(I). \mforall{}u:A1 I a. ((A2 I I 1 a u) = u))
\mwedge{} (\mforall{}I,J,K:Cname List. \mforall{}f:name-morph(I;J). \mforall{}g:name-morph(J;K). \mforall{}a:X(I). \mforall{}u:A1 I a.
((A2 I K (f o g) a u) = (A2 J K g f(a) (A2 I J f a u))))
6. A : I:(Cname List) {}\mrightarrow{} X.<A1, A2>(I) {}\mrightarrow{} Type
7. B1 : I:(Cname List)
{}\mrightarrow{} J:(Cname List)
{}\mrightarrow{} f:name-morph(I;J)
{}\mrightarrow{} a:X.<A1, A2>(I)
{}\mrightarrow{} (A I a)
{}\mrightarrow{} (A J f(a))
8. (\mforall{}I:Cname List. \mforall{}a:X.<A1, A2>(I). \mforall{}u:A I a. ((B1 I I 1 a u) = u))
\mwedge{} (\mforall{}I,J,K:Cname List. \mforall{}f:name-morph(I;J). \mforall{}g:name-morph(J;K). \mforall{}a:X.<A1, A2>(I). \mforall{}u:A I a.
((B1 I K (f o g) a u) = (B1 J K g f(a) (B1 I J f a u))))
9. s : A:(Cname List) {}\mrightarrow{} Delta(A) {}\mrightarrow{} X(A)
10. \mforall{}A,B:cat-ob(NameCat). \mforall{}g:cat-arrow(NameCat) A B.
((cat-comp(TypeCat) (Delta A) (X A) (X B) (s A) (X A B g))
= (cat-comp(TypeCat) (Delta A) (Delta B) (X B) (Delta A B g) (s B)))
11. X \mvdash{} <A1, A2>
12. X.<A1, A2> \mvdash{} <A, B1>
13. I : Cname List
14. J : Cname List
15. f : name-morph(I;J)
16. a : Delta(I)
17. u : A1 I (s)a
18. x1 : A I ((s)a;u)
19. (s I a;u) \mmember{} X.<A1, A2>(I)
20. (B1 I J f (s I a;u) x1) = (B1 I J f (s I a;u) x1)
\mvdash{} (A J f((s I a;u))) \msubseteq{}r (A J (s J f(a);A2 I J f (s I a) u))
By
Latex:
TACTIC:Assert \mkleeneopen{}f(s I a) = (s J f(a))\mkleeneclose{}\mcdot{}
Home
Index