---

Step * 1 of Lemma is-interface-right


1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top + Top)
4. e : E
5. v : bag(Top + Top)@i
6. (X es e) = v ∈ bag(Top + Top)@i
7. #(v) = 1 ∈ ℤ
⊢ uiff(↑(#(snd(bag-separate(v))) =z 1);True ∧ (¬↑isl(only(v))))
BY
{ ((ElimBagSizeOne THEN Try ((BLemma `single-valued-bag-if-le1` THEN Auto)))
   THEN D -1
   THEN RepUR ``bag-separate single-bag bag-mapfilter bag-filter bag-only`` 0
   THEN RepUR ``bag-size bag-map`` 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  es  :  EO+(Info)
3.  X  :  EClass(Top  +  Top)
4.  e  :  E
5.  v  :  bag(Top  +  Top)@i
6.  (X  es  e)  =  v@i
7.  \#(v)  =  1
\mvdash{}  uiff(\muparrow{}(\#(snd(bag-separate(v)))  =\msubz{}  1);True  \mwedge{}  (\mneg{}\muparrow{}isl(only(v))))


By

---

Latex:
((ElimBagSizeOne  THEN  Try  ((BLemma  `single-valued-bag-if-le1`  THEN  Auto)))
  THEN  D  -1
  THEN  RepUR  ``bag-separate  single-bag  bag-mapfilter  bag-filter  bag-only``  0
  THEN  RepUR  ``bag-size  bag-map``  0
  THEN  Auto)

---

Home Index