Step * 2 of Lemma discrete-equiv-iff


1. A : Type
2. B : Type
3. A ~ B
⊢ {() ⊢ _:Equiv(discr(A);discr(B))}
BY
{ (RenameVar `e' (-1) THEN UseWitness ⌜bijection-equiv(();A;B;fst(e);bij_inv(snd(e)))⌝⋅ THEN D -1 THEN Reduce 0) }

1
1. A : Type
2. B : Type
3. f : A ⟶ B
4. e1 : Bij(A;B;f)
⊢ bijection-equiv(();A;B;f;bij_inv(e1)) ∈ {() ⊢ _:Equiv(discr(A);discr(B))}


Latex:


Latex:

1.  A  :  Type
2.  B  :  Type
3.  A  \msim{}  B
\mvdash{}  \{()  \mvdash{}  \_:Equiv(discr(A);discr(B))\}


By


Latex:
(RenameVar  `e'  (-1)
  THEN  UseWitness  \mkleeneopen{}bijection-equiv(();A;B;fst(e);bij\_inv(snd(e)))\mkleeneclose{}\mcdot{}
  THEN  D  -1
  THEN  Reduce  0)




Home Index