---

Step * 2 of Lemma s-insert-sorted


1. T : Type
2. T ⊆r ℤ
3. x : T
4. u : T
5. v : T List
6. sorted(s-insert(x;v)) supposing sorted(v)
⊢ sorted(s-insert(x;[u / v])) supposing sorted([u / v])
BY
{ TACTIC:(Unfold `s-insert` 0 THEN Reduce 0 THEN Try (Fold `s-insert` 0) THEN Auto) }

1
1. T : Type
2. T ⊆r ℤ
3. x : T
4. u : T
5. v : T List
6. sorted(s-insert(x;v)) supposing sorted(v)
7. sorted([u / v])
⊢ sorted(if (x =z u) then [u / v]
if x <z u then [x; [u / v]]
else [u / s-insert(x;v)]
fi )

---

Latex:

---

Latex:

1.  T  :  Type
2.  T  \msubseteq{}r  \mBbbZ{}
3.  x  :  T
4.  u  :  T
5.  v  :  T  List
6.  sorted(s-insert(x;v))  supposing  sorted(v)
\mvdash{}  sorted(s-insert(x;[u  /  v]))  supposing  sorted([u  /  v])


By

---

Latex:
TACTIC:(Unfold  `s-insert`  0  THEN  Reduce  0  THEN  Try  (Fold  `s-insert`  0)  THEN  Auto)

---

Home Index