Step
*
2
of Lemma
subterm-mkterm
1. [opr] : Type
2. s : term(opr)
3. f : opr
4. bts : bound-term(opr) List
5. ∃i:ℕ||bts||. ((s = (snd(bts[i])) ∈ term(opr)) ∨ s << snd(bts[i]))
⊢ s << mkterm(f;bts)
BY
{ (ExRepD
   THEN (Enough to prove snd(bts[i]) << mkterm(f;bts)
          Because (D -2 THEN Auto THEN FLemma `subterm_transitivity` [-1;-2] THEN Auto))
   THEN Auto) }
Latex:
Latex:
1.  [opr]  :  Type
2.  s  :  term(opr)
3.  f  :  opr
4.  bts  :  bound-term(opr)  List
5.  \mexists{}i:\mBbbN{}||bts||.  ((s  =  (snd(bts[i])))  \mvee{}  s  <<  snd(bts[i]))
\mvdash{}  s  <<  mkterm(f;bts)
By
Latex:
(ExRepD
  THEN  (Enough  to  prove  snd(bts[i])  <<  mkterm(f;bts)
                Because  (D  -2  THEN  Auto  THEN  FLemma  `subterm\_transitivity`  [-1;-2]  THEN  Auto))
  THEN  Auto)
Home
Index