Step
*
1
1
1
of Lemma
assert-not-isvarterm
1. ∀[opr:Type]. term(opr) ≡ coterm-fun(opr;term(opr))
2. [opr] : Type
3. term(opr) ≡ coterm-fun(opr;term(opr))
4. y : opr × ((varname() List × term(opr)) List)
5. ¬False
⊢ ∃f:opr. ∃bts:bound-term(opr) List. ((inr y ) = mkterm(f;bts) ∈ term(opr))
BY
{ (((D -2 THEN Fold `bound-term` (-2)) THEN Fold `mkterm` 0) THEN Auto) }
Latex:
Latex:
1.  \mforall{}[opr:Type].  term(opr)  \mequiv{}  coterm-fun(opr;term(opr))
2.  [opr]  :  Type
3.  term(opr)  \mequiv{}  coterm-fun(opr;term(opr))
4.  y  :  opr  \mtimes{}  ((varname()  List  \mtimes{}  term(opr))  List)
5.  \mneg{}False
\mvdash{}  \mexists{}f:opr.  \mexists{}bts:bound-term(opr)  List.  ((inr  y  )  =  mkterm(f;bts))
By
Latex:
(((D  -2  THEN  Fold  `bound-term`  (-2))  THEN  Fold  `mkterm`  0)  THEN  Auto)
Home
Index