---

Step * 1 of Lemma equipollent-singleton-domain


1. [S] : Type
2. u : S
3. s1 : ∀a':S. (a' = u ∈ S)
4. [A] : S ⟶ Type
⊢ A (fst(<u, s1>)) ~ u:S ⟶ (A u)
BY
{ (D 0 With ⌜λa,x. a⌝  THEN Auto) }

1
1. [S] : Type
2. u : S
3. s1 : ∀a':S. (a' = u ∈ S)
4. [A] : S ⟶ Type
⊢ Bij(A (fst(<u, s1>));u:S ⟶ (A u);λa,x. a)

---

Latex:

---

Latex:

1.  [S]  :  Type
2.  u  :  S
3.  s1  :  \mforall{}a':S.  (a'  =  u)
4.  [A]  :  S  {}\mrightarrow{}  Type
\mvdash{}  A  (fst(<u,  s1>))  \msim{}  u:S  {}\mrightarrow{}  (A  u)


By

---

Latex:
(D  0  With  \mkleeneopen{}\mlambda{}a,x.  a\mkleeneclose{}    THEN  Auto)

---

Home Index