Step
*
of Lemma
fpf-join-list-domain2
∀[A:Type]. ∀eq:EqDecider(A). ∀L:a:A fp-> Top List. ∀x:A.  ((x ∈ fpf-domain(⊕(L))) 
⇐⇒ (∃f∈L. (x ∈ fpf-domain(f))))
BY
{ (InstLemma `fpf-join-list-dom2` []
   THEN RepeatFor 4 ((ParallelLast THEN Thin (-3)))
   THEN (RWO "member-fpf-domain" (-1) THENA Auto)
   THEN RepeatFor 3 (ParallelLast)
   THEN (All (RWO "member-fpf-domain")⋅ THEN Auto)⋅) }
Latex:
\mforall{}[A:Type]
    \mforall{}eq:EqDecider(A).  \mforall{}L:a:A  fp->  Top  List.  \mforall{}x:A.
        ((x  \mmember{}  fpf-domain(\moplus{}(L)))  \mLeftarrow{}{}\mRightarrow{}  (\mexists{}f\mmember{}L.  (x  \mmember{}  fpf-domain(f))))
By
(InstLemma  `fpf-join-list-dom2`  []
  THEN  RepeatFor  4  ((ParallelLast  THEN  Thin  (-3)))
  THEN  (RWO  "member-fpf-domain"  (-1)  THENA  Auto)
  THEN  RepeatFor  3  (ParallelLast)
  THEN  (All  (RWO  "member-fpf-domain")\mcdot{}  THEN  Auto)\mcdot{})
Home
Index