Step * of Lemma cubical-equiv-by-cases_wf

No Annotations
[G:j⊢]. ∀[A,B:{G ⊢ _}]. ∀[f:{G ⊢ _:Equiv(A;B)}].
  (cubical-equiv-by-cases(G;B;f) ∈ {G.𝕀((q=0) ∨ (q=1)) ⊢ _:Equiv((if (q=0) then (A)p else (B)p);(B)p)})
BY
(Intros
   THEN (Assert ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (A)p BY
               ((D THENA Auto) THEN SubsumeC ⌜{G.𝕀 ⊢ _}⌝⋅ THEN Auto))
   THEN (Assert ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (B)p BY
               ((D THENA Auto) THEN SubsumeC ⌜{G.𝕀 ⊢ _}⌝⋅ THEN Auto))
   THEN Unfold `cubical-equiv-by-cases` 0
   THEN MemCD
   THEN Try (QuickAuto)) }

1
.....subterm..... T:t
3:n
1. CubicalSet{j}
2. {G ⊢ _}
3. {G ⊢ _}
4. {G ⊢ _:Equiv(A;B)}
5. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (A)p
6. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (B)p
⊢ IdEquiv(G.𝕀(q=1);(B)p) ∈ {G.𝕀(q=1) ⊢ _:Equiv((if (q=0) then (A)p else (B)p);(B)p)}

2
.....subterm..... T:t
2:n
1. CubicalSet{j}
2. {G ⊢ _}
3. {G ⊢ _}
4. {G ⊢ _:Equiv(A;B)}
5. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (A)p
6. ∀phi:{G.𝕀 ⊢ _:𝔽}. G.𝕀phi ⊢ (B)p
⊢ (f)p ∈ {G.𝕀(q=0) ⊢ _:Equiv((if (q=0) then (A)p else (B)p);(B)p)[(q=1) |⟶ IdEquiv(G.𝕀(q=1);(B)p)]}


Latex:


Latex:
No  Annotations
\mforall{}[G:j\mvdash{}].  \mforall{}[A,B:\{G  \mvdash{}  \_\}].  \mforall{}[f:\{G  \mvdash{}  \_:Equiv(A;B)\}].
    (cubical-equiv-by-cases(G;B;f)
      \mmember{}  \{G.\mBbbI{},  ((q=0)  \mvee{}  (q=1))  \mvdash{}  \_:Equiv((if  (q=0)  then  (A)p  else  (B)p);(B)p)\})


By


Latex:
(Intros
  THEN  (Assert  \mforall{}phi:\{G.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  G.\mBbbI{},  phi  \mvdash{}  (A)p  BY
                          ((D  0  THENA  Auto)  THEN  SubsumeC  \mkleeneopen{}\{G.\mBbbI{}  \mvdash{}  \_\}\mkleeneclose{}\mcdot{}  THEN  Auto))
  THEN  (Assert  \mforall{}phi:\{G.\mBbbI{}  \mvdash{}  \_:\mBbbF{}\}.  G.\mBbbI{},  phi  \mvdash{}  (B)p  BY
                          ((D  0  THENA  Auto)  THEN  SubsumeC  \mkleeneopen{}\{G.\mBbbI{}  \mvdash{}  \_\}\mkleeneclose{}\mcdot{}  THEN  Auto))
  THEN  Unfold  `cubical-equiv-by-cases`  0
  THEN  MemCD
  THEN  Try  (QuickAuto))




Home Index