Step * 2 3 of Lemma apply-alist-cases


1. Type
2. eq EqDecider(T)
3. T
4. T × Top
5. (T × Top) List
6. apply-alist(eq;v;x) ff supposing ¬(x ∈ map(λp.(fst(p));v))
∧ (∀[i:ℕ||v||]
     (apply-alist(eq;v;x) inl (snd(v[i]))) supposing (((fst(v[i])) x ∈ T) and (∀j:ℕi. ((fst(v[j])) x ∈ T)))))
7. ¬((fst(u)) x ∈ T)
8. ¬(x ∈ [fst(u) map(λp.(fst(p));v)])
⊢ apply-alist(eq;v;x) ff
BY
(D -3 THEN -4 THEN Auto) }


Latex:


Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  x  :  T
4.  u  :  T  \mtimes{}  Top
5.  v  :  (T  \mtimes{}  Top)  List
6.  apply-alist(eq;v;x)  \msim{}  ff  supposing  \mneg{}(x  \mmember{}  map(\mlambda{}p.(fst(p));v))
\mwedge{}  (\mforall{}[i:\mBbbN{}||v||]
          (apply-alist(eq;v;x)  \msim{}  inl  (snd(v[i])))  supposing 
                (((fst(v[i]))  =  x)  and 
                (\mforall{}j:\mBbbN{}i.  (\mneg{}((fst(v[j]))  =  x)))))
7.  \mneg{}((fst(u))  =  x)
8.  \mneg{}(x  \mmember{}  [fst(u)  /  map(\mlambda{}p.(fst(p));v)])
\mvdash{}  apply-alist(eq;v;x)  \msim{}  ff


By


Latex:
(D  -3  THEN  D  -4  THEN  Auto)




Home Index