---

Step * of Lemma fpf-normalize_wf

∀[A:Type]. ∀[eq:EqDecider(A)]. ∀[B:A ─→ Type]. ∀[g:x:A fp-> B[x]].  (fpf-normalize(eq;g) ∈ x:A fp-> B[x])
BY
{ (Auto
   THEN (D (-1))
   THEN Unfold `fpf-normalize` 0
   THEN Reduce 0
   THEN (InstLemma `list-subtype` [⌈A⌉; ⌈d⌉])⋅
   THEN Auto) }

---

Latex:


\mforall{}[A:Type].  \mforall{}[eq:EqDecider(A)].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[g:x:A  fp->  B[x]].
    (fpf-normalize(eq;g)  \mmember{}  x:A  fp->  B[x])


By

(Auto
  THEN  (D  (-1))
  THEN  Unfold  `fpf-normalize`  0
  THEN  Reduce  0
  THEN  (InstLemma  `list-subtype`  [\mkleeneopen{}A\mkleeneclose{};  \mkleeneopen{}d\mkleeneclose{}])\mcdot{}
  THEN  Auto)

---

Home Index