---

Step * 1 1 1 1 of Lemma term-ext


1. opr : Type
2. coterm(opr) ≡ coterm-fun(opr;coterm(opr))
3. X : coterm-fun(opr;coterm(opr))
4. X ∈ coterm(opr)
⊢ (coterm-size(X))↓ ⇒ (X ∈ coterm-fun(opr;term(opr)))
BY
{ (D -2 THEN Unfold `coterm-fun` 0 THEN Auto) }

1
1. opr : Type
2. coterm(opr) ≡ coterm-fun(opr;coterm(opr))
3. y1 : opr
4. y2 : (varname() List × coterm(opr)) List
5. inr <y1, y2>  ∈ coterm(opr)
6. (coterm-size(inr <y1, y2> ))↓
⊢ y2 ∈ (varname() List × term(opr)) List

---

Latex:

---

Latex:

1.  opr  :  Type
2.  coterm(opr)  \mequiv{}  coterm-fun(opr;coterm(opr))
3.  X  :  coterm-fun(opr;coterm(opr))
4.  X  \mmember{}  coterm(opr)
\mvdash{}  (coterm-size(X))\mdownarrow{}  {}\mRightarrow{}  (X  \mmember{}  coterm-fun(opr;term(opr)))


By

---

Latex:
(D  -2  THEN  Unfold  `coterm-fun`  0  THEN  Auto)

---

Home Index