Step
*
of Lemma
pv11_p1_about_threshold
∀[T:Type]. ∀[as,bs:bag(T)].  (#(as) < (#(as + bs) + 1) ÷ 2 
⇒ #(as) < #(bs))
BY
{ (Auto THEN (RWO "bag-size-append" (-1) THENA Auto) THEN FLemma `add-plus-1-div-2-implies-lt` [-1] THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[as,bs:bag(T)].    (\#(as)  <  (\#(as  +  bs)  +  1)  \mdiv{}  2  {}\mRightarrow{}  \#(as)  <  \#(bs))
By
Latex:
(Auto
  THEN  (RWO  "bag-size-append"  (-1)  THENA  Auto)
  THEN  FLemma  `add-plus-1-div-2-implies-lt`  [-1]
  THEN  Auto)
Home
Index