---

Step * 2 1 of Lemma term-opr_functionality


1. opr : Type
2. t : term(opr)
3. t' : term(opr)
4. ¬↑isvarterm(t)
5. alpha-eq-terms(opr;t;t')
6. f : opr
7. bts : {bt:bound-term(opr)| bound-term-size(bt) < term-size(t)}  List
8. t = mkterm(f;bts) ∈ term(opr)
9. v : varname()
10. ¬(v = nullvar() ∈ varname())
11. t' = varterm(v) ∈ term(opr)
⊢ term-opr(t) = term-opr(t') ∈ opr
BY
{ (Assert alpha-eq-terms(opr;mkterm(f;bts);varterm(v)) BY
         Auto) }

1
1. opr : Type
2. t : term(opr)
3. t' : term(opr)
4. ¬↑isvarterm(t)
5. alpha-eq-terms(opr;t;t')
6. f : opr
7. bts : {bt:bound-term(opr)| bound-term-size(bt) < term-size(t)}  List
8. t = mkterm(f;bts) ∈ term(opr)
9. v : varname()
10. ¬(v = nullvar() ∈ varname())
11. t' = varterm(v) ∈ term(opr)
12. alpha-eq-terms(opr;mkterm(f;bts);varterm(v))
⊢ term-opr(t) = term-opr(t') ∈ opr

---

Latex:

---

Latex:

1.  opr  :  Type
2.  t  :  term(opr)
3.  t'  :  term(opr)
4.  \mneg{}\muparrow{}isvarterm(t)
5.  alpha-eq-terms(opr;t;t')
6.  f  :  opr
7.  bts  :  \{bt:bound-term(opr)|  bound-term-size(bt)  <  term-size(t)\}    List
8.  t  =  mkterm(f;bts)
9.  v  :  varname()
10.  \mneg{}(v  =  nullvar())
11.  t'  =  varterm(v)
\mvdash{}  term-opr(t)  =  term-opr(t')


By

---

Latex:
(Assert  alpha-eq-terms(opr;mkterm(f;bts);varterm(v))  BY
              Auto)

---

Home Index