---

Step * 1 3 1 1 1 4 of Lemma no_repeats-before-equality


1. T : Type
2. u : T
3. v : T List
4. ∀bs:T List
     (no_repeats(T;v)
     ⇒ no_repeats(T;bs)
     ⇒ (∀x:T. ((x ∈ v) ⇐⇒ (x ∈ bs)))
     ⇒ (∀x,y:T.  (x before y ∈ v ⇐⇒ x before y ∈ bs))
     ⇒ (v = bs ∈ (T List)))
5. u1 : T
6. v1 : T List
7. no_repeats(T;v)
8. ¬(u ∈ v)
9. no_repeats(T;v1)
10. ¬(u1 ∈ v1)
11. ∀x:T. ((x = u ∈ T) ∨ (x ∈ v) ⇐⇒ (x = u1 ∈ T) ∨ (x ∈ v1))
12. ∀x,y:T.  (((x = u ∈ T) ∧ (y ∈ v)) ∨ x before y ∈ v ⇐⇒ ((x = u1 ∈ T) ∧ (y ∈ v1)) ∨ x before y ∈ v1)
13. x : T
14. (x ∈ v1)
15. (x = u ∈ T) ∨ (x ∈ v)
⊢ (x ∈ v)
BY
{ xxx((((((D (-1)) THEN Auto THEN (InstHyp [⌜u1⌝; ⌜u⌝] (-4))⋅) THENA Auto) THEN (D (-1)) THEN (D (-1)))
       THENL [OrLeft; (D (-1))]
      )
      THEN Auto
      THEN (FLemma `l_before_member` [(-1)])
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  T  :  Type
2.  u  :  T
3.  v  :  T  List
4.  \mforall{}bs:T  List
          (no\_repeats(T;v)
          {}\mRightarrow{}  no\_repeats(T;bs)
          {}\mRightarrow{}  (\mforall{}x:T.  ((x  \mmember{}  v)  \mLeftarrow{}{}\mRightarrow{}  (x  \mmember{}  bs)))
          {}\mRightarrow{}  (\mforall{}x,y:T.    (x  before  y  \mmember{}  v  \mLeftarrow{}{}\mRightarrow{}  x  before  y  \mmember{}  bs))
          {}\mRightarrow{}  (v  =  bs))
5.  u1  :  T
6.  v1  :  T  List
7.  no\_repeats(T;v)
8.  \mneg{}(u  \mmember{}  v)
9.  no\_repeats(T;v1)
10.  \mneg{}(u1  \mmember{}  v1)
11.  \mforall{}x:T.  ((x  =  u)  \mvee{}  (x  \mmember{}  v)  \mLeftarrow{}{}\mRightarrow{}  (x  =  u1)  \mvee{}  (x  \mmember{}  v1))
12.  \mforall{}x,y:T.    (((x  =  u)  \mwedge{}  (y  \mmember{}  v))  \mvee{}  x  before  y  \mmember{}  v  \mLeftarrow{}{}\mRightarrow{}  ((x  =  u1)  \mwedge{}  (y  \mmember{}  v1))  \mvee{}  x  before  y  \mmember{}  v1)
13.  x  :  T
14.  (x  \mmember{}  v1)
15.  (x  =  u)  \mvee{}  (x  \mmember{}  v)
\mvdash{}  (x  \mmember{}  v)


By

---

Latex:
xxx((((((D  (-1))  THEN  Auto  THEN  (InstHyp  [\mkleeneopen{}u1\mkleeneclose{};  \mkleeneopen{}u\mkleeneclose{}]  (-4))\mcdot{})  THENA  Auto)
            THEN  (D  (-1))
            THEN  (D  (-1)))
          THENL  [OrLeft;  (D  (-1))]
        )
        THEN  Auto
        THEN  (FLemma  `l\_before\_member`  [(-1)])
        THEN  Auto)xxx

---

Home Index