Step
*
of Lemma
member-fset-add
∀[T:Type]. ∀eq:EqDecider(T). ∀s:fset(T). ∀x,y:T.  (x ∈ fset-add(eq;y;s) 
⇐⇒ (x = y ∈ T) ∨ x ∈ s)
BY
{ ((UnivCD THENA Auto)
   THEN Unfold `fset-add` 0
   THEN (RWO "member-fset-union" 0 THENM RWO "member-fset-singleton" 0)
   THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}eq:EqDecider(T).  \mforall{}s:fset(T).  \mforall{}x,y:T.    (x  \mmember{}  fset-add(eq;y;s)  \mLeftarrow{}{}\mRightarrow{}  (x  =  y)  \mvee{}  x  \mmember{}  s)
By
Latex:
((UnivCD  THENA  Auto)
  THEN  Unfold  `fset-add`  0
  THEN  (RWO  "member-fset-union"  0  THENM  RWO  "member-fset-singleton"  0)
  THEN  Auto)
Home
Index