---

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


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

1
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))↓

---

Latex:

---

Latex:

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


By

---

Latex:
(D  -3  THEN  All  Reduce)

---

Home Index