---

Step * 1 of Lemma agree_on_common_iseg


1. [T] : Type
⊢ ∀bs2,as1,bs1:T List.  (as1 ≤ [] ⇒ bs1 ≤ bs2 ⇒ agree_on_common(T;[];bs2) ⇒ agree_on_common(T;as1;bs1))
BY
{ ((Auto THEN Subst as1 = [] ∈ (T List) 0) THEN Auto) }

1
.....equality..... 
1. T : Type
2. bs2 : T List
3. as1 : T List
4. bs1 : T List
5. as1 ≤ []
6. bs1 ≤ bs2
7. agree_on_common(T;[];bs2)
⊢ as1 = [] ∈ (T List)

---

Latex:

---

Latex:

1.  [T]  :  Type
\mvdash{}  \mforall{}bs2,as1,bs1:T  List.
        (as1  \mleq{}  []  {}\mRightarrow{}  bs1  \mleq{}  bs2  {}\mRightarrow{}  agree\_on\_common(T;[];bs2)  {}\mRightarrow{}  agree\_on\_common(T;as1;bs1))


By

---

Latex:
((Auto  THEN  Subst  as1  =  []  0)  THEN  Auto)

---

Home Index