---

Step * of Lemma ds_property

∀[A:Type]. ∀[d:DS(A)]. ∀[a:A]. ∀[x,y:dstype(A; d; a)].  {uiff(x = y ∈ dstype(A; d; a);↑x = y)}
BY
{ (Unfold `guard` 0
   THEN RepeatFor 3 ((D 0 THENA Auto))
   THEN Unfold `eq_ds` 0
   THEN Unfold `dseq` 0
   THEN (InstLemma `deq_property`  [⌜dstype(A; d; a)⌝; ⌜(snd(d)) a⌝])⋅
   THEN Auto) }

1
.....wf..... 
1. A : Type
2. d : DS(A)
3. a : A
⊢ (snd(d)) a ∈ EqDecider(dstype(A; d; a))

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[d:DS(A)].  \mforall{}[a:A].  \mforall{}[x,y:dstype(A;  d;  a)].    \{uiff(x  =  y;\muparrow{}x  =  y)\}


By

---

Latex:
(Unfold  `guard`  0
  THEN  RepeatFor  3  ((D  0  THENA  Auto))
  THEN  Unfold  `eq\_ds`  0
  THEN  Unfold  `dseq`  0
  THEN  (InstLemma  `deq\_property`    [\mkleeneopen{}dstype(A;  d;  a)\mkleeneclose{};  \mkleeneopen{}(snd(d))  a\mkleeneclose{}])\mcdot{}
  THEN  Auto)

---

Home Index