Step
*
of Lemma
concat-map-nil
∀[L:Top List]. (concat(map(λx.[];L)) ~ [])
BY
{ (InductionOnList THEN Reduce 0 THEN Auto THEN (RWO "concat-cons" 0 THENA Auto) THEN Reduce 0 THEN Auto) }
Latex:
Latex:
\mforall{}[L:Top  List].  (concat(map(\mlambda{}x.[];L))  \msim{}  [])
By
Latex:
(InductionOnList
  THEN  Reduce  0
  THEN  Auto
  THEN  (RWO  "concat-cons"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto)
Home
Index