---

Step * of Lemma equipollent_weakening_ext-eq

∀[A,B:Type].  A ~ B supposing A ≡ B
BY
{ (Auto THEN D -1 THEN With ⌜λx.x⌝ (D 0)⋅ THEN Auto THEN RepeatFor 2 (D 0) THEN Reduce 0 THEN Auto) }

1
1. [A] : Type
2. [B] : Type
3. A ⊆r B
4. B ⊆r A
5. b : B@i
⊢ ∃a:A. (a = b ∈ B)

---

Latex:

---

Latex:
\mforall{}[A,B:Type].    A  \msim{}  B  supposing  A  \mequiv{}  B


By

---

Latex:
(Auto  THEN  D  -1  THEN  With  \mkleeneopen{}\mlambda{}x.x\mkleeneclose{}  (D  0)\mcdot{}  THEN  Auto  THEN  RepeatFor  2  (D  0)  THEN  Reduce  0  THEN  Auto)

---

Home Index