---

Step * 2 2 1 1 1 of Lemma mono-list


1. A : Type
2. u : A
3. v : A List
4. ∀b:Base. (is-above(A List;v;b) ⇒ (v = b ∈ (A List)))
5. b : Base
6. is-above(A List;<u, v>;b)
7. is-above(A × (A List);<u, v>;b)
8. c : Base
9. d : Base
10. b ~ <c, d>
11. is-above(A;u;c)
12. is-above(A List;v;d)
13. v = d ∈ (A List)
14. ∀b:Base. (is-above(A;u;b) ⇒ (u = b ∈ A))
15. u = c ∈ A
⊢ <u, v> = b ∈ (A List)
BY
{ (HypSubst' (-6) 0 THEN Fold `cons` 0 THEN EqCD THEN Auto) }

---

Latex:

---

Latex:

1.  A  :  Type
2.  u  :  A
3.  v  :  A  List
4.  \mforall{}b:Base.  (is-above(A  List;v;b)  {}\mRightarrow{}  (v  =  b))
5.  b  :  Base
6.  is-above(A  List;<u,  v>b)
7.  is-above(A  \mtimes{}  (A  List);<u,  v>b)
8.  c  :  Base
9.  d  :  Base
10.  b  \msim{}  <c,  d>
11.  is-above(A;u;c)
12.  is-above(A  List;v;d)
13.  v  =  d
14.  \mforall{}b:Base.  (is-above(A;u;b)  {}\mRightarrow{}  (u  =  b))
15.  u  =  c
\mvdash{}  <u,  v>  =  b


By

---

Latex:
(HypSubst'  (-6)  0  THEN  Fold  `cons`  0  THEN  EqCD  THEN  Auto)

---

Home Index