Step
*
1
of Lemma
glue-composes
1. [Info] : Type
2. es : EO+(Info)@i'
3. [A] : Type
4. [B] : Type
5. [C] : Type
6. Ia : EClass(A)@i'
7. Ib : EClass(B)@i'
8. Ic : EClass(C)@i'
9. f1 : E(Ia) ─→ B@i
10. f2 : B ─→ C@i
11. g1 : E(Ib) ─→ E@i
12. g2 : E(Ic) ─→ E@i
13. g1 glues Ia:λe,e'. e ≤loc e' ──f1─→ Ib:λe,e'. e ≤loc e' @i
14. g2 glues Ib:λe,e'. e ≤loc e' ──λe.(f2 Ib(e))─→ Ic:λe,e'. e ≤loc e' @i
⊢ g1 o g2 glues Ia:λe,e'. e ≤loc e' ──f2 o f1─→ Ic:λe,e'. e ≤loc e'
BY
{ (Using [`Ib',⌈Ib⌉;`Rb',⌈λe,e'. e ≤loc e' ⌉] (BLemma `Q-R-glues-composes`)⋅
THEN Try (Complete (Auto))
THEN All (Fold `glues`)) }
1
1. Info : Type
2. es : EO+(Info)@i'
3. A : Type
4. B : Type
5. C : Type
6. Ia : EClass(A)@i'
7. Ib : EClass(B)@i'
8. Ic : EClass(C)@i'
9. f1 : E(Ia) ─→ B@i
10. f2 : B ─→ C@i
11. g1 : E(Ib) ─→ E@i
12. g2 : E(Ic) ─→ E@i
13. g1 glues Ia ──f1─→ Ib@i
14. g2 glues Ib ──λe.(f2 Ib(e))─→ Ic@i
⊢ g1 ∈ E(Ib) ─→ E(Ia)
2
1. Info : Type
2. es : EO+(Info)@i'
3. A : Type
4. B : Type
5. C : Type
6. Ia : EClass(A)@i'
7. Ib : EClass(B)@i'
8. Ic : EClass(C)@i'
9. f1 : E(Ia) ─→ B@i
10. f2 : B ─→ C@i
11. g1 : E(Ib) ─→ E@i
12. g2 : E(Ic) ─→ E@i
13. g1 glues Ia ──f1─→ Ib@i
14. g2 glues Ib ──λe.(f2 Ib(e))─→ Ic@i
⊢ g2 ∈ E(Ic) ─→ E(Ib)
Latex:
Latex:
1. [Info] : Type
2. es : EO+(Info)@i'
3. [A] : Type
4. [B] : Type
5. [C] : Type
6. Ia : EClass(A)@i'
7. Ib : EClass(B)@i'
8. Ic : EClass(C)@i'
9. f1 : E(Ia) {}\mrightarrow{} B@i
10. f2 : B {}\mrightarrow{} C@i
11. g1 : E(Ib) {}\mrightarrow{} E@i
12. g2 : E(Ic) {}\mrightarrow{} E@i
13. g1 glues Ia:\mlambda{}e,e'. e \mleq{}loc e' {}{}f1{}\mrightarrow{} Ib:\mlambda{}e,e'. e \mleq{}loc e' @i
14. g2 glues Ib:\mlambda{}e,e'. e \mleq{}loc e' {}{}\mlambda{}e.(f2 Ib(e)){}\mrightarrow{} Ic:\mlambda{}e,e'. e \mleq{}loc e' @i
\mvdash{} g1 o g2 glues Ia:\mlambda{}e,e'. e \mleq{}loc e' {}{}f2 o f1{}\mrightarrow{} Ic:\mlambda{}e,e'. e \mleq{}loc e'
By
Latex:
(Using [`Ib',\mkleeneopen{}Ib\mkleeneclose{};`Rb',\mkleeneopen{}\mlambda{}e,e'. e \mleq{}loc e' \mkleeneclose{}] (BLemma `Q-R-glues-composes`)\mcdot{}
THEN Try (Complete (Auto))
THEN All (Fold `glues`))
Home
Index