Step
*
1
2
of Lemma
csm-cubical-equiv-by-cases
.....assertion..... 
1. G : CubicalSet{j}
2. A : {G ⊢ _}
3. B : {G ⊢ _}
4. f : {G ⊢ _:Equiv(A;B)}
5. H : CubicalSet{j}
6. s : H 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 0 THENA (CsmUnfolding THEN Auto)) THEN Fold `member` 0) }
1
1. G : CubicalSet{j}
2. A : {G ⊢ _}
3. B : {G ⊢ _}
4. f : {G ⊢ _:Equiv(A;B)}
5. H : CubicalSet{j}
6. s : H 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