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


1. CRng
2. Atom
3. Atom
4. PowerSeries(r)
5. ¬(x y ∈ Atom)
6. ∀b:bag(Atom). ((f (({x} {y}) b)) ((f ({x} b)) +r (f ({y} b))) ∈ |r|)
7. bag(Atom)
8. x1 bag(Atom)
9. ¬x ↓∈ x1
10. x2 bag(Atom)
11. ({x} x2) ∈ bag(Atom)
12. ({y} x1) ∈ bag(Atom)
13. y ↓∈ x2
⊢ ((f b) +r ((-r (f x1)) +r (-r (f x2)))) (-r (f x1)) ∈ |r|
BY
TACTIC:((Assert x ↓∈ BY
                 ((SubstFor ⌜b⌝ 0⋅ THEN Auto)
                  THEN BagMemberD 0
                  THEN Auto
                  THEN (D THEN Auto)
                  THEN OrLeft
                  THEN Auto
                  THEN BagMemberD 0
                  THEN Auto))
          THEN ((HypSubst' (-3) (-1) THENA Auto)
                THEN BagMemberD (-1)
                THEN Auto
                THEN SquashExRepD
                THEN -1
                THEN Auto
                THEN BagMemberD (-1)
                THEN Auto)⋅
          )⋅ }


Latex:


Latex:

1.  r  :  CRng
2.  x  :  Atom
3.  y  :  Atom
4.  f  :  PowerSeries(r)
5.  \mneg{}(x  =  y)
6.  \mforall{}b:bag(Atom).  ((f  ((\{x\}  +  \{y\})  +  b))  =  ((f  (\{x\}  +  b))  +r  (f  (\{y\}  +  b))))
7.  b  :  bag(Atom)
8.  x1  :  bag(Atom)
9.  \mneg{}x  \mdownarrow{}\mmember{}  x1
10.  x2  :  bag(Atom)
11.  b  =  (\{x\}  +  x2)
12.  b  =  (\{y\}  +  x1)
13.  y  \mdownarrow{}\mmember{}  x2
\mvdash{}  ((f  b)  +r  ((-r  (f  x1))  +r  (-r  (f  x2))))  =  (-r  (f  x1))


By


Latex:
TACTIC:((Assert  x  \mdownarrow{}\mmember{}  b  BY
                              ((SubstFor  \mkleeneopen{}b\mkleeneclose{}  0\mcdot{}  THEN  Auto)
                                THEN  BagMemberD  0
                                THEN  Auto
                                THEN  (D  0  THEN  Auto)
                                THEN  OrLeft
                                THEN  Auto
                                THEN  BagMemberD  0
                                THEN  Auto))
                THEN  ((HypSubst'  (-3)  (-1)  THENA  Auto)
                            THEN  BagMemberD  (-1)
                            THEN  Auto
                            THEN  SquashExRepD
                            THEN  D  -1
                            THEN  Auto
                            THEN  BagMemberD  (-1)
                            THEN  Auto)\mcdot{}
                )\mcdot{}




Home Index