Step
*
of Lemma
sub-bag-size
∀[T:Type]. ∀[a,b:bag(T)].  #(a) ≤ #(b) supposing sub-bag(T;a;b)
BY
{ (Auto THEN D (-1) THEN (HypSubst (-1) 0 THENA Auto) THEN RWO "bag-size-append" 0 THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[a,b:bag(T)].    \#(a)  \mleq{}  \#(b)  supposing  sub-bag(T;a;b)
By
Latex:
(Auto  THEN  D  (-1)  THEN  (HypSubst  (-1)  0  THENA  Auto)  THEN  RWO  "bag-size-append"  0  THEN  Auto)
Home
Index