Step
*
1
1
of Lemma
remove_repeats_cons_lemma
1. v : Top@i
2. u : Top@i
3. eq : Top@i
⊢ [u / filter(λx.(¬b(eq x u));rec-case(v) of [] => [] | h::t => r.[h / filter(λx.(¬b(eq x h));r)])] 
~ [u / filter(λx.(¬b(eq x u));remove-repeats(eq;v))]
BY
{ Try (RW (AddrC [2] (UnfoldC `remove-repeats`⋅)) 0)⋅ }
1
1. v : Top@i
2. u : Top@i
3. eq : Top@i
⊢ [u / filter(λx.(¬b(eq x u));rec-case(v) of [] => [] | h::t => r.[h / filter(λx.(¬b(eq x h));r)])] 
~ [u / filter(λx.(¬b(eq x u));rec-case(v) of [] => [] | a::as => r.[a / filter(λx.(¬b(eq x a));r)])]
Latex:
Latex:
1.  v  :  Top@i
2.  u  :  Top@i
3.  eq  :  Top@i
\mvdash{}  [u  /  filter(\mlambda{}x.(\mneg{}\msubb{}(eq  x  u));rec-case(v)  of  []  =>  []  |  h::t  =>  r.[h  /  filter(\mlambda{}x.(\mneg{}\msubb{}(eq  x  h));r)])] 
\msim{}  [u  /  filter(\mlambda{}x.(\mneg{}\msubb{}(eq  x  u));remove-repeats(eq;v))]
By
Latex:
Try  (RW  (AddrC  [2]  (UnfoldC  `remove-repeats`\mcdot{}))  0)\mcdot{}
Home
Index