---

Step * 2 2 2 1 2 1 1 1 of Lemma term-ext


1. opr : Type
2. coterm(opr) ≡ coterm-fun(opr;coterm(opr))
3. y1 : opr
4. u1 : varname() List
5. u2 : term(opr)
6. v : (varname() List × term(opr)) List
7. (1 + reduce(λx,y. (x + y);0;map(λbt.coterm-size(snd(bt));v)))↓
⊢ (coterm-size(u2))↓
BY
{ (D -3 THEN Auto) }

---

Latex:

---

Latex:

1.  opr  :  Type
2.  coterm(opr)  \mequiv{}  coterm-fun(opr;coterm(opr))
3.  y1  :  opr
4.  u1  :  varname()  List
5.  u2  :  term(opr)
6.  v  :  (varname()  List  \mtimes{}  term(opr))  List
7.  (1  +  reduce(\mlambda{}x,y.  (x  +  y);0;map(\mlambda{}bt.coterm-size(snd(bt));v)))\mdownarrow{}
\mvdash{}  (coterm-size(u2))\mdownarrow{}


By

---

Latex:
(D  -3  THEN  Auto)

---

Home Index