---

Step * 1 1 of Lemma alpha-equal-varterm


1. opr : Type
2. v : {v:varname()| ¬(v = nullvar() ∈ varname())} 
3. t : term(opr)
4. alpha-eq-terms(opr;varterm(v);t)
5. isvarterm(t) = tt
6. v1 : varname()
7. ¬(v1 = nullvar() ∈ varname())
8. t = varterm(v1) ∈ term(opr)
9. alpha-eq-terms(opr;varterm(v);varterm(v1))
⊢ varterm(v1) = varterm(v) ∈ term(opr)
BY
{ (RW (TagC (mk_tag_term 4)) (-1) THEN Reduce -1) }

1
1. opr : Type
2. v : {v:varname()| ¬(v = nullvar() ∈ varname())} 
3. t : term(opr)
4. alpha-eq-terms(opr;varterm(v);t)
5. isvarterm(t) = tt
6. v1 : varname()
7. ¬(v1 = nullvar() ∈ varname())
8. t = varterm(v1) ∈ term(opr)
9. ↑same-binding([];[];v;v1)
⊢ varterm(v1) = varterm(v) ∈ term(opr)

---

Latex:

---

Latex:

1.  opr  :  Type
2.  v  :  \{v:varname()|  \mneg{}(v  =  nullvar())\} 
3.  t  :  term(opr)
4.  alpha-eq-terms(opr;varterm(v);t)
5.  isvarterm(t)  =  tt
6.  v1  :  varname()
7.  \mneg{}(v1  =  nullvar())
8.  t  =  varterm(v1)
9.  alpha-eq-terms(opr;varterm(v);varterm(v1))
\mvdash{}  varterm(v1)  =  varterm(v)


By

---

Latex:
(RW  (TagC  (mk\_tag\_term  4))  (-1)  THEN  Reduce  -1)

---

Home Index