---

Step * 1 2 1 1 1 1 1 of Lemma fpf-vals-nil


1. A : Type
2. eq : EqDecider(A)
3. B : A ─→ Type
4. P : A ─→ 𝔹
5. d : A List
6. f1 : x:{x:A| (x ∈ d)}  ─→ B[x]
7. a : A
8. ¬(a ∈ d)
9. ∀b:A. (↑(P b) ⇐⇒ b = a ∈ A)
10. ∀L:A List. (no_repeats(A;L) ⇒ (filter(P;L) = if a ∈b L) then [a] else [] fi  ∈ (A List)))
11. (a ∈ remove-repeats(eq;d))
12. filter(P;remove-repeats(eq;d)) = [a] ∈ (A List)@i
⊢ filter(P;remove-repeats(eq;d)) = [] ∈ (A List)
BY
{ ((((InstLemma `remove-repeats_property` [A; eq; d])⋅ THENA Auto) THEN ExRepD THEN (InstHyp [a] (-1))⋅) THENA Auto) }

1
1. A : Type
2. eq : EqDecider(A)
3. B : A ─→ Type
4. P : A ─→ 𝔹
5. d : A List
6. f1 : x:{x:A| (x ∈ d)}  ─→ B[x]
7. a : A
8. ¬(a ∈ d)
9. ∀b:A. (↑(P b) ⇐⇒ b = a ∈ A)
10. ∀L:A List. (no_repeats(A;L) ⇒ (filter(P;L) = if a ∈b L) then [a] else [] fi  ∈ (A List)))
11. (a ∈ remove-repeats(eq;d))
12. filter(P;remove-repeats(eq;d)) = [a] ∈ (A List)@i
13. no_repeats(A;remove-repeats(eq;d))
14. ∀a:A. ((a ∈ remove-repeats(eq;d)) ⇐⇒ (a ∈ d))
15. (a ∈ remove-repeats(eq;d)) ⇐⇒ (a ∈ d)
⊢ filter(P;remove-repeats(eq;d)) = [] ∈ (A List)

---

Latex:



1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  B  :  A  {}\mrightarrow{}  Type
4.  P  :  A  {}\mrightarrow{}  \mBbbB{}
5.  d  :  A  List
6.  f1  :  x:\{x:A|  (x  \mmember{}  d)\}    {}\mrightarrow{}  B[x]
7.  a  :  A
8.  \mneg{}(a  \mmember{}  d)
9.  \mforall{}b:A.  (\muparrow{}(P  b)  \mLeftarrow{}{}\mRightarrow{}  b  =  a)
10.  \mforall{}L:A  List.  (no\_repeats(A;L)  {}\mRightarrow{}  (filter(P;L)  =  if  a  \mmember{}\msubb{}  L)  then  [a]  else  []  fi  ))
11.  (a  \mmember{}  remove-repeats(eq;d))
12.  filter(P;remove-repeats(eq;d))  =  [a]@i
\mvdash{}  filter(P;remove-repeats(eq;d))  =  []


By

((((InstLemma  `remove-repeats\_property`  [A;  eq;  d])\mcdot{}  THENA  Auto)
    THEN  ExRepD
    THEN  (InstHyp  [a]  (-1))\mcdot{})
  THENA  Auto
  )

---

Home Index