---

Step * 1 of Lemma agree_on_common_cons


1. [T] : Type
2. as : T List
3. bs : T List
4. x : T
5. agree_on_common(T;[x / as];[x / bs])
⊢ agree_on_common(T;as;bs)
BY
{ (RecUnfold `agree_on_common` (-1) THEN Reduce (-1) THEN SplitOrHyps THEN Auto THEN D -2 THEN GenListD 0 THEN Auto) }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  as  :  T  List
3.  bs  :  T  List
4.  x  :  T
5.  agree\_on\_common(T;[x  /  as];[x  /  bs])
\mvdash{}  agree\_on\_common(T;as;bs)


By

---

Latex:
(RecUnfold  `agree\_on\_common`  (-1)
  THEN  Reduce  (-1)
  THEN  SplitOrHyps
  THEN  Auto
  THEN  D  -2
  THEN  GenListD  0
  THEN  Auto)

---

Home Index