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


1. opr Type
2. coterm(opr) ≡ coterm-fun(opr;coterm(opr))
3. y1 opr
4. varname() List × term(opr)
5. (varname() List × term(opr)) List
6. (1 reduce(λx,y. (x y);0;map(λbt.coterm-size(snd(bt));v)))↓
⊢ (coterm-size(snd(u)) reduce(λx,y. (x y);0;map(λbt.coterm-size(snd(bt));v)))↓
BY
(BLemma `add-has-value-iff` THEN Auto) }

1
1. opr Type
2. coterm(opr) ≡ coterm-fun(opr;coterm(opr))
3. y1 opr
4. varname() List × term(opr)
5. (varname() List × term(opr)) List
6. (1 reduce(λx,y. (x y);0;map(λbt.coterm-size(snd(bt));v)))↓
⊢ (coterm-size(snd(u)))↓


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))  +  1  +  reduce(\mlambda{}x,y.  (x  +  y);0;map(\mlambda{}bt.coterm-size(snd(bt));v)))\mdownarrow{}


By


Latex:
(BLemma  `add-has-value-iff`  THEN  Auto)




Home Index