Step
*
1
of Lemma
fpf-join-empty
.....equality..... 
1. A : Type
2. B : A ─→ Type
3. d : A List
4. f1 : a:{a:A| (a ∈ d)}  ─→ B[a]
5. eq : EqDecider(A)
⊢ filter(λa.tt;d) ~ d
BY
{ (Lemmaize []⋅ THEN ObviousListInduction⋅)⋅ }
Latex:
.....equality..... 
1.  A  :  Type
2.  B  :  A  {}\mrightarrow{}  Type
3.  d  :  A  List
4.  f1  :  a:\{a:A|  (a  \mmember{}  d)\}    {}\mrightarrow{}  B[a]
5.  eq  :  EqDecider(A)
\mvdash{}  filter(\mlambda{}a.tt;d)  \msim{}  d
By
(Lemmaize  []\mcdot{}  THEN  ObviousListInduction\mcdot{})\mcdot{}
Home
Index