Step * of Lemma W-select_wf

[A:Type]. ∀[B:A ⟶ Type]. ∀[s:(a:A ⟶ (B[a]?)) List]. ∀[w:co-W(A;a.B[a])].  (W-select(w;s) ∈ co-W(A;a.B[a])?)
BY
(InductionOnList
   THEN RecUnfold `W-select` 0
   THEN Reduce 0
   THEN Auto
   THEN co_WD (-1)
   THEN -1
   THEN Reduce 0
   THEN Auto) }


Latex:


Latex:
\mforall{}[A:Type].  \mforall{}[B:A  {}\mrightarrow{}  Type].  \mforall{}[s:(a:A  {}\mrightarrow{}  (B[a]?))  List].  \mforall{}[w:co-W(A;a.B[a])].
    (W-select(w;s)  \mmember{}  co-W(A;a.B[a])?)


By


Latex:
(InductionOnList
  THEN  RecUnfold  `W-select`  0
  THEN  Reduce  0
  THEN  Auto
  THEN  co\_WD  (-1)
  THEN  D  -1
  THEN  Reduce  0
  THEN  Auto)




Home Index