---

Step * 1 1 2 1 2 1 of Lemma fps-Pascal-iff

.....equality..... 
1. r : CRng
2. x : Atom
3. y : Atom
4. f : PowerSeries(r)
5. ¬(x = y ∈ Atom)
6. b : bag(Atom)
7. (+r (-r (f ({y} + b))) 
    (+r (-r case bag-diff(AtomDeq;({x} + {y}) + b;{y}) of inl(d) => f d | inr(z) => 0) (f (({x} + {y}) + b))))
= (+r (-r 0) 
   (+r 0 
    (+r 0 
     (+r 
      (-r 
       case bag-diff(AtomDeq;({x} + {y}) + b;{y})
        of inl(d) =>
        if bag-deq-member(AtomDeq;x;d) then 0 else f d fi 
        | inr(z) =>
        0) 
      (-r if bag-deq-member(AtomDeq;y;{y} + b) then 0 else f ({y} + b) fi )))))
∈ |r|
⊢ bag-diff(AtomDeq;({x} + {y}) + b;{y}) = (inl ({x} + b)) ∈ (bag(Atom)?)
BY
{ TACTIC:(BLemma `bag-diff-equal-inl` THEN Auto) }

---

Latex:

---

Latex:
.....equality..... 
1.  r  :  CRng
2.  x  :  Atom
3.  y  :  Atom
4.  f  :  PowerSeries(r)
5.  \mneg{}(x  =  y)
6.  b  :  bag(Atom)
7.  (+r  (-r  (f  (\{y\}  +  b))) 
        (+r  (-r  case  bag-diff(AtomDeq;(\{x\}  +  \{y\})  +  b;\{y\})  of  inl(d)  =>  f  d  |  inr(z)  =>  0) 
          (f  ((\{x\}  +  \{y\})  +  b))))
=  (+r  (-r  0) 
      (+r  0 
        (+r  0 
          (+r 
            (-r 
              case  bag-diff(AtomDeq;(\{x\}  +  \{y\})  +  b;\{y\})
                of  inl(d)  =>
                if  bag-deq-member(AtomDeq;x;d)  then  0  else  f  d  fi 
                |  inr(z)  =>
                0) 
            (-r  if  bag-deq-member(AtomDeq;y;\{y\}  +  b)  then  0  else  f  (\{y\}  +  b)  fi  )))))
\mvdash{}  bag-diff(AtomDeq;(\{x\}  +  \{y\})  +  b;\{y\})  =  (inl  (\{x\}  +  b))


By

---

Latex:
TACTIC:(BLemma  `bag-diff-equal-inl`  THEN  Auto)

---

Home Index