Step
*
of Lemma
filter-reverse
∀[T:Type]. ∀[f:T ⟶ 𝔹]. ∀[L:T List].  (filter(f;rev(L)) ~ rev(filter(f;L)))
BY
{ ((InductionOnList THEN Reduce 0 THEN Try (Trivial))
   THEN (RWO "reverse-append filter_append_sq" 0
   THENM (Reduce 0 THEN OldAutoSplit THEN (RWO "-2" 0 THENM RWW "append-nil" 0))
   )
   THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[f:T  {}\mrightarrow{}  \mBbbB{}].  \mforall{}[L:T  List].    (filter(f;rev(L))  \msim{}  rev(filter(f;L)))
By
Latex:
((InductionOnList  THEN  Reduce  0  THEN  Try  (Trivial))
  THEN  (RWO  "reverse-append  filter\_append\_sq"  0
  THENM  (Reduce  0  THEN  OldAutoSplit  THEN  (RWO  "-2"  0  THENM  RWW  "append-nil"  0))
  )
  THEN  Auto)
Home
Index