Step
*
of Lemma
f-union-subset
∀[A:Type]. ∀[eq:EqDecider(A)]. ∀[x,y,z:fset(A)].  uiff(x ⋃ y ⊆ z;x ⊆ z ∧ y ⊆ z)
BY
{ (Auto
   THEN Unfold `f-subset` 0
   THEN Unfold `f-subset` -1
   THEN Auto
   THEN Try ((BackThruSomeHyp THEN BLemma `member-fset-union` THEN Auto))) }
1
1. A : Type
2. eq : EqDecider(A)
3. x : fset(A)
4. y : fset(A)
5. z : fset(A)
6. x ⊆ z
7. ∀a:A. a ∈ z supposing a ∈ y
8. a : A@i
9. a ∈ x ⋃ y
⊢ a ∈ z
Latex:
Latex:
\mforall{}[A:Type].  \mforall{}[eq:EqDecider(A)].  \mforall{}[x,y,z:fset(A)].    uiff(x  \mcup{}  y  \msubseteq{}  z;x  \msubseteq{}  z  \mwedge{}  y  \msubseteq{}  z)
By
Latex:
(Auto
  THEN  Unfold  `f-subset`  0
  THEN  Unfold  `f-subset`  -1
  THEN  Auto
  THEN  Try  ((BackThruSomeHyp  THEN  BLemma  `member-fset-union`  THEN  Auto)))
Home
Index