---

Step * 2 1 1 of Lemma agree_on_common_iseg

.....equality..... 
1. T : Type
2. u : T
3. v : T List
4. ∀bs2,as1,bs1:T List.  (as1 ≤ v ⇒ bs1 ≤ bs2 ⇒ agree_on_common(T;v;bs2) ⇒ agree_on_common(T;as1;bs1))
5. as1 : T List
6. bs1 : T List
7. as1 ≤ [u / v]
8. bs1 ≤ []
9. agree_on_common(T;[u / v];[])
⊢ bs1 = [] ∈ (T List)
BY
{ (AllHyps (\h. ((RWO "iseg_nil" h THENA Auto) THEN RW assert_pushdownC h)) THEN Auto) }

---

Latex:

---

Latex:
.....equality..... 
1.  T  :  Type
2.  u  :  T
3.  v  :  T  List
4.  \mforall{}bs2,as1,bs1:T  List.
          (as1  \mleq{}  v  {}\mRightarrow{}  bs1  \mleq{}  bs2  {}\mRightarrow{}  agree\_on\_common(T;v;bs2)  {}\mRightarrow{}  agree\_on\_common(T;as1;bs1))
5.  as1  :  T  List
6.  bs1  :  T  List
7.  as1  \mleq{}  [u  /  v]
8.  bs1  \mleq{}  []
9.  agree\_on\_common(T;[u  /  v];[])
\mvdash{}  bs1  =  []


By

---

Latex:
(AllHyps  (\mbackslash{}h.  ((RWO  "iseg\_nil"  h  THENA  Auto)  THEN  RW  assert\_pushdownC  h))  THEN  Auto)

---

Home Index