Step * of Lemma equiv-bijection-is_wf

No Annotations
[A,B:Type]. ∀[e:{() ⊢ _:Equiv(discr(A);discr(B))}].  (equiv-bijection-is(e) ∈ Bij(A;B;equiv-bijection(e)))
BY
(Intros
   THEN (Unfold `equiv-bijection` THEN Auto)
   THEN (InstLemma `equiv-contr_wf` [⌜()⌝;⌜discr(B)⌝;⌜discr(A)⌝;⌜e⌝]⋅ THENA Auto)
   THEN RepUR ``equiv-bijection-is biject inject surject`` 0
   THEN RepeatFor ((MemCD THEN Try ((At ⌜Type⌝ (D 0)⋅ THEN Trivial))))) }

1
.....subterm..... T:t
1:n
1. Type
2. Type
3. {() ⊢ _:Equiv(discr(A);discr(B))}
4. ∀[a:{() ⊢ _:discr(B)}]. (equiv-contr(e;a) ∈ {() ⊢ _:Contractible(Fiber(equiv-fun(e);a))})
5. a1 A
⊢ λa2,eq. Ax ∈ ∀a2:A. (((discrete-fun(equiv-fun(e))(⋅a1) (discrete-fun(equiv-fun(e))(⋅a2) ∈ B)  (a1 a2 ∈ A))

2
.....subterm..... T:t
1:n
1. Type
2. Type
3. {() ⊢ _:Equiv(discr(A);discr(B))}
4. ∀[a:{() ⊢ _:discr(B)}]. (equiv-contr(e;a) ∈ {() ⊢ _:Contractible(Fiber(equiv-fun(e);a))})
5. B
⊢ <equiv-contr(e;discr(b)).1.1(⋅), Ax> ∈ ∃a:A. ((discrete-fun(equiv-fun(e))(⋅a) b ∈ B)


Latex:


Latex:
No  Annotations
\mforall{}[A,B:Type].  \mforall{}[e:\{()  \mvdash{}  \_:Equiv(discr(A);discr(B))\}].
    (equiv-bijection-is(e)  \mmember{}  Bij(A;B;equiv-bijection(e)))


By


Latex:
(Intros
  THEN  (Unfold  `equiv-bijection`  0  THEN  Auto)
  THEN  (InstLemma  `equiv-contr\_wf`  [\mkleeneopen{}()\mkleeneclose{};\mkleeneopen{}discr(B)\mkleeneclose{};\mkleeneopen{}discr(A)\mkleeneclose{};\mkleeneopen{}e\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  RepUR  ``equiv-bijection-is  biject  inject  surject``  0
  THEN  RepeatFor  2  ((MemCD  THEN  Try  ((At  \mkleeneopen{}Type\mkleeneclose{}  (D  0)\mcdot{}  THEN  Trivial)))))




Home Index