Step
*
of Lemma
s-insert_wf
∀[T:Type]. ∀[x:T]. ∀[L:T List].  (s-insert(x;L) ∈ T List) supposing T ⊆r ℤ
BY
{ (InductionOnList THEN Unfold `s-insert` 0 THEN Reduce 0 THEN Try (Fold `s-insert` 0) THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[x:T].  \mforall{}[L:T  List].    (s-insert(x;L)  \mmember{}  T  List)  supposing  T  \msubseteq{}r  \mBbbZ{}
By
Latex:
(InductionOnList  THEN  Unfold  `s-insert`  0  THEN  Reduce  0  THEN  Try  (Fold  `s-insert`  0)  THEN  Auto)
Home
Index