---

Step * of Lemma length_one

∀[T:Type]. ∀L:T List. uiff(||L|| = 1 ∈ ℤ;∃x:T. (L = [x] ∈ (T List)))
BY
{ ((UnivCD THENA Auto)
   THEN D 0
   THEN Auto
   THEN Try (Complete ((D (-1) THEN HypSubst' (-1) 0 THEN Reduce 0 THEN Auto)))
   THEN RepeatFor 2 ((D (-2) THEN Reduce (-1) THEN Auto))
   THEN Auto') }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}L:T  List.  uiff(||L||  =  1;\mexists{}x:T.  (L  =  [x]))


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  D  0
  THEN  Auto
  THEN  Try  (Complete  ((D  (-1)  THEN  HypSubst'  (-1)  0  THEN  Reduce  0  THEN  Auto)))
  THEN  RepeatFor  2  ((D  (-2)  THEN  Reduce  (-1)  THEN  Auto))
  THEN  Auto')

---

Home Index