---

Step * 2 of Lemma fpf-join-idempotent


1. A : Type
2. B : A ─→ Type
3. d : A List
4. f1 : a:{a:A| (a ∈ d)}  ─→ B[a]
5. eq : EqDecider(A)
⊢ <d @ [], λa.if a ∈b d) then f1 a else f1 a fi > = <d, f1> ∈ (d:A List × (a:{a:A| (a ∈ d)}  ─→ B[a]))
BY
{ ((RWO "append_nil_sq" 0 THENA Auto) THEN EqCD THEN Auto) }

---

Latex:



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{}  <d  @  [],  \mlambda{}a.if  a  \mmember{}\msubb{}  d)  then  f1  a  else  f1  a  fi  >  =  <d,  f1>


By

((RWO  "append\_nil\_sq"  0  THENA  Auto)  THEN  EqCD  THEN  Auto)

---

Home Index