Step
*
of Lemma
co-w-select-wfd
∀[A:Type]. ∀[s:A List]. ∀[w:wfd-tree(A)].  (w@s ∈ wfd-tree(A))
BY
{ (InductionOnList
   THEN RecUnfold `co-w-select` 0
   THEN Reduce 0
   THEN (Try (Fold `co-w-null` 0) THEN Try (Fold `wfd-subtrees` 0))
   THEN Auto) }
Latex:
Latex:
\mforall{}[A:Type].  \mforall{}[s:A  List].  \mforall{}[w:wfd-tree(A)].    (w@s  \mmember{}  wfd-tree(A))
By
Latex:
(InductionOnList
  THEN  RecUnfold  `co-w-select`  0
  THEN  Reduce  0
  THEN  (Try  (Fold  `co-w-null`  0)  THEN  Try  (Fold  `wfd-subtrees`  0))
  THEN  Auto)
Home
Index