Step
*
of Lemma
insert-by_wf
∀[T:Type]. ∀[eq,r:T ⟶ T ⟶ 𝔹]. ∀[x:T]. ∀[L:T List].  (insert-by(eq;r;x;L) ∈ T List)
BY
{ (InductionOnList THEN Unfold `insert-by` 0 THEN Reduce 0 THEN Try (Fold `insert-by` 0) THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[eq,r:T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbB{}].  \mforall{}[x:T].  \mforall{}[L:T  List].    (insert-by(eq;r;x;L)  \mmember{}  T  List)
By
Latex:
(InductionOnList  THEN  Unfold  `insert-by`  0  THEN  Reduce  0  THEN  Try  (Fold  `insert-by`  0)  THEN  Auto)
Home
Index