Step * 1 2 of Lemma csm-cubical-equiv-by-cases

.....assertion..... 
1. CubicalSet{j}
2. {G ⊢ _}
3. {G ⊢ _}
4. {G ⊢ _:Equiv(A;B)}
5. CubicalSet{j}
6. j⟶ G
7. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (A)p
8. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (B)p
9. ∀phi:{H.𝕀 ⊢ _:𝔽}. H.𝕀phi ⊢ ((A)s)p
10. ∀phi:{H.𝕀 ⊢ _:𝔽}. H.𝕀phi ⊢ ((B)s)p
11. IdEquiv(H.𝕀(q=1);((B)s)p)
(IdEquiv(G.𝕀(q=1);(B)p))s+
∈ {H.𝕀(q=1) ⊢ _:Equiv((if (q=0) then ((A)s)p else ((B)s)p);((B)s)p)}
⊢ ((f)s)p
((f)p)s+
∈ {H.𝕀(q=0) ⊢ _:Equiv((if (q=0) then ((A)s)p else ((B)s)p);((B)s)p)[(q=1) |⟶ IdEquiv(H.𝕀(q=1);((B)s)p)]}
BY
((Subst' ((f)p)s+ ((f)s)p THENA (CsmUnfolding THEN Auto)) THEN Fold `member` 0) }

1
1. CubicalSet{j}
2. {G ⊢ _}
3. {G ⊢ _}
4. {G ⊢ _:Equiv(A;B)}
5. CubicalSet{j}
6. j⟶ G
7. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (A)p
8. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (B)p
9. ∀phi:{H.𝕀 ⊢ _:𝔽}. H.𝕀phi ⊢ ((A)s)p
10. ∀phi:{H.𝕀 ⊢ _:𝔽}. H.𝕀phi ⊢ ((B)s)p
11. IdEquiv(H.𝕀(q=1);((B)s)p)
(IdEquiv(G.𝕀(q=1);(B)p))s+
∈ {H.𝕀(q=1) ⊢ _:Equiv((if (q=0) then ((A)s)p else ((B)s)p);((B)s)p)}
⊢ ((f)s)p ∈ {H.𝕀(q=0) ⊢ _:Equiv((if (q=0) then ((A)s)p else ((B)s)p);((B)s)p)[(q=1) |⟶ IdEquiv(H.𝕀(q=1);((B)s)p)]}


Latex:


Latex:
.....assertion..... 
1.  G  :  CubicalSet\{j\}
2.  A  :  \{G  \mvdash{}  \_\}
3.  B  :  \{G  \mvdash{}  \_\}
4.  f  :  \{G  \mvdash{}  \_:Equiv(A;B)\}
5.  H  :  CubicalSet\{j\}
6.  s  :  H  j{}\mrightarrow{}  G
7.  \mforall{}phi:\{G.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  G.\mBbbI{},  phi  \mvdash{}  (A)p
8.  \mforall{}phi:\{G.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  G.\mBbbI{},  phi  \mvdash{}  (B)p
9.  \mforall{}phi:\{H.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  H.\mBbbI{},  phi  \mvdash{}  ((A)s)p
10.  \mforall{}phi:\{H.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  H.\mBbbI{},  phi  \mvdash{}  ((B)s)p
11.  IdEquiv(H.\mBbbI{},  (q=1);((B)s)p)  =  (IdEquiv(G.\mBbbI{},  (q=1);(B)p))s+
\mvdash{}  ((f)s)p  =  ((f)p)s+


By


Latex:
((Subst'  ((f)p)s+  \msim{}  ((f)s)p  0  THENA  (CsmUnfolding  THEN  Auto))  THEN  Fold  `member`  0)




Home Index