---

Step * of Lemma subtype-deq

∀[A,B:Type].  (EqDecider(B) ⊆r EqDecider(A)) supposing ((∀x,y:A.  ((x = y ∈ B) ⇒ (x = y ∈ A))) and (A ⊆r B))
BY
{ (Auto THEN (D 0 THENA Auto) THEN D -1 THEN MemTypeCD THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Type].
    (EqDecider(B)  \msubseteq{}r  EqDecider(A))  supposing  ((\mforall{}x,y:A.    ((x  =  y)  {}\mRightarrow{}  (x  =  y)))  and  (A  \msubseteq{}r  B))


By

---

Latex:
(Auto  THEN  (D  0  THENA  Auto)  THEN  D  -1  THEN  MemTypeCD  THEN  Auto)

---

Home Index