Step
*
1
2
of Lemma
list-functionality-induction
1. T : Type
2. A : Type
3. F : Base
4. F[[]] ∈ A
5. ∀a1,a2,L1,L2:Base.  ((a1 = a2 ∈ T) 
⇒ (F[L1] = F[L2] ∈ A) 
⇒ (F[[a1 / L1]] = F[[a2 / L2]] ∈ A))
6. L : Base
7. L1 : Base
8. L = L1 ∈ (T List)
9. ∀n:ℕ. ∀L,L2:Base.  ((L = L2 ∈ (T List)) 
⇒ (colength(L) = n ∈ ℤ) 
⇒ (F[L] = F[L2] ∈ A))
⊢ F[L] = F[L1] ∈ A
BY
{ (InstHyp [⌜colength(L)⌝; ⌜L⌝;⌜L1⌝] (-1)⋅ THEN Try (Complete (Auto)) THEN GenConcl ⌜L = X ∈ (T List)⌝⋅ THEN Auto) }
Latex:
Latex:
1.  T  :  Type
2.  A  :  Type
3.  F  :  Base
4.  F[[]]  \mmember{}  A
5.  \mforall{}a1,a2,L1,L2:Base.    ((a1  =  a2)  {}\mRightarrow{}  (F[L1]  =  F[L2])  {}\mRightarrow{}  (F[[a1  /  L1]]  =  F[[a2  /  L2]]))
6.  L  :  Base
7.  L1  :  Base
8.  L  =  L1
9.  \mforall{}n:\mBbbN{}.  \mforall{}L,L2:Base.    ((L  =  L2)  {}\mRightarrow{}  (colength(L)  =  n)  {}\mRightarrow{}  (F[L]  =  F[L2]))
\mvdash{}  F[L]  =  F[L1]
By
Latex:
(InstHyp  [\mkleeneopen{}colength(L)\mkleeneclose{};  \mkleeneopen{}L\mkleeneclose{};\mkleeneopen{}L1\mkleeneclose{}]  (-1)\mcdot{}
  THEN  Try  (Complete  (Auto))
  THEN  GenConcl  \mkleeneopen{}L  =  X\mkleeneclose{}\mcdot{}
  THEN  Auto)
Home
Index