---

Step * 1 1 2 of Lemma assert-palindrome-test


1. T : Type
2. eq : EqDecider(T)
3. L : T List
4. R : T List
5. rev(L) = R ∈ (T List)
6. ||R|| = ||L|| ∈ ℤ
⊢ accumulate (with value a and list item p):
   let x,x' = p 
   in eval b = a ∧b (eq x x') in
      b
  over list:
    zip(R;L)
  with starting value:
   tt) ~ list-deq(eq) R L
BY
{ Subst' list-deq(eq) R L ~ tt ∧b (list-deq(eq) R L) 0 }

1
.....equality..... 
1. T : Type
2. eq : EqDecider(T)
3. L : T List
4. R : T List
5. rev(L) = R ∈ (T List)
6. ||R|| = ||L|| ∈ ℤ
⊢ list-deq(eq) R L ~ tt ∧b (list-deq(eq) R L)

2
1. T : Type
2. eq : EqDecider(T)
3. L : T List
4. R : T List
5. rev(L) = R ∈ (T List)
6. ||R|| = ||L|| ∈ ℤ
⊢ accumulate (with value a and list item p):
   let x,x' = p 
   in eval b = a ∧b (eq x x') in
      b
  over list:
    zip(R;L)
  with starting value:
   tt) ~ tt ∧b (list-deq(eq) R L)

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  L  :  T  List
4.  R  :  T  List
5.  rev(L)  =  R
6.  ||R||  =  ||L||
\mvdash{}  accumulate  (with  value  a  and  list  item  p):
      let  x,x'  =  p 
      in  eval  b  =  a  \mwedge{}\msubb{}  (eq  x  x')  in
            b
    over  list:
        zip(R;L)
    with  starting  value:
      tt)  \msim{}  list-deq(eq)  R  L


By

---

Latex:
Subst'  list-deq(eq)  R  L  \msim{}  tt  \mwedge{}\msubb{}  (list-deq(eq)  R  L)  0

---

Home Index