Step * of Lemma bag-null-bag-union

[T:Type]. ∀[bbs:bag(bag(T))].  ↑bag-null(bag-union(bbs)) supposing ∀bs:bag(T). (bs ↓∈ bbs  (↑bag-null(bs)))
BY
... }

1
1. Type
2. bag(T)
3. bag(T) List
4. (∀bs:bag(T). (bs ↓∈  (↑bag-null(bs))))  (↑bag-null(bag-union(v)))
5. ∀bs:bag(T). (bs ↓∈ u.v  (↑bag-null(bs)))
6. {} ∈ bag(T)
⊢ ↑bag-null(bag-union(v))


Latex:


Latex:
\mforall{}[T:Type].  \mforall{}[bbs:bag(bag(T))].
    \muparrow{}bag-null(bag-union(bbs))  supposing  \mforall{}bs:bag(T).  (bs  \mdownarrow{}\mmember{}  bbs  {}\mRightarrow{}  (\muparrow{}bag-null(bs)))


By


Latex:
((UnivCD  THENA  Auto)
  THEN  MoveToConcl  (-1)
  THEN  (BagToList  (-1)  THENA  Auto)
  THEN  ListInd  (-1)
  THEN  Try  (Fold  `empty-bag`  0)
  THEN  Try  (Fold  `cons-bag`  0)
  THEN  Reduce  0
  THEN  (UnivCD  THENA  Auto)
  THEN  (RWO  "bag-null-append"  0  THENA  Auto)
  THEN  RW  assert\_pushdownC  0
  THEN  Auto
  THEN  (RWO  "assert-bag-null<"  0  THENA  Auto)
  THEN  Try  (Complete  ((BackThruSomeHyp  THEN  BagMemberD  0  THEN  D  0  THEN  Auto  THEN  OrLeft  THEN  Auto)))
  THEN  skip\{(BHyp  (-2)
                        THEN  Auto
                        THEN  BHyp  (-3)
                        THEN  Auto
                        THEN  BagMemberD  0
                        THEN  D  0
                        THEN  Auto
                        THEN  OrRight
                        THEN  Auto)\})




Home Index