Step
*
1
of Lemma
Kan-interval_wf
1. Kan-filler(cubical-interval();cubical-interval-filler())
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. bx : open_box(cubical-interval();I;J;x;i)
7. K : Cname List
8. f : name-morph(I;K)
9. ∀i:nameset(I). ((i ∈ J)
⇒ (↑isname(f i)))
10. ↑isname(f x)
⊢ f(cubical-interval-filler() I J x i bx)
= (cubical-interval-filler() K map(f;J) (f x) i open_box_image(cubical-interval();I;K;f;bx))
∈ cubical-interval()(K)
BY
{ TACTIC:Assert ⌜(map(f;J) ∈ nameset(K) List) ∧ (f x ∈ nameset(K)) ∧ (nameset([x / J]) ⊆r name-morph-domain(f;I))⌝⋅ }
1
.....assertion.....
1. Kan-filler(cubical-interval();cubical-interval-filler())
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. bx : open_box(cubical-interval();I;J;x;i)
7. K : Cname List
8. f : name-morph(I;K)
9. ∀i:nameset(I). ((i ∈ J)
⇒ (↑isname(f i)))
10. ↑isname(f x)
⊢ (map(f;J) ∈ nameset(K) List) ∧ (f x ∈ nameset(K)) ∧ (nameset([x / J]) ⊆r name-morph-domain(f;I))
2
1. Kan-filler(cubical-interval();cubical-interval-filler())
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : ℕ2
6. bx : open_box(cubical-interval();I;J;x;i)
7. K : Cname List
8. f : name-morph(I;K)
9. ∀i:nameset(I). ((i ∈ J)
⇒ (↑isname(f i)))
10. ↑isname(f x)
11. (map(f;J) ∈ nameset(K) List) ∧ (f x ∈ nameset(K)) ∧ (nameset([x / J]) ⊆r name-morph-domain(f;I))
⊢ f(cubical-interval-filler() I J x i bx)
= (cubical-interval-filler() K map(f;J) (f x) i open_box_image(cubical-interval();I;K;f;bx))
∈ cubical-interval()(K)
Latex:
Latex:
1. Kan-filler(cubical-interval();cubical-interval-filler())
2. I : Cname List
3. J : nameset(I) List
4. x : nameset(I)
5. i : \mBbbN{}2
6. bx : open\_box(cubical-interval();I;J;x;i)
7. K : Cname List
8. f : name-morph(I;K)
9. \mforall{}i:nameset(I). ((i \mmember{} J) {}\mRightarrow{} (\muparrow{}isname(f i)))
10. \muparrow{}isname(f x)
\mvdash{} f(cubical-interval-filler() I J x i bx)
= (cubical-interval-filler() K map(f;J) (f x) i open\_box\_image(cubical-interval();I;K;f;bx))
By
Latex:
TACTIC:Assert \mkleeneopen{}(map(f;J) \mmember{} nameset(K) List)
\mwedge{} (f x \mmember{} nameset(K))
\mwedge{} (nameset([x / J]) \msubseteq{}r name-morph-domain(f;I))\mkleeneclose{}\mcdot{}
Home
Index