Step
*
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)
⊢ t = varterm(v) ∈ term(opr)
BY
{ (NthHypEqTrans (-1) THEN (Assert alpha-eq-terms(opr;varterm(v);varterm(v1)) BY Auto)) }
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. alpha-eq-terms(opr;varterm(v);varterm(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)
\mvdash{}  t  =  varterm(v)
By
Latex:
(NthHypEqTrans  (-1)  THEN  (Assert  alpha-eq-terms(opr;varterm(v);varterm(v1))  BY  Auto))
Home
Index