Step
*
of Lemma
l-union-subset
∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[as,bs:T List].  as ⋃ bs ~ as supposing bs ⊆ as
BY
{ ((UnivCD THENA Auto) THEN Unfold `l-union` 0) }
1
1. T : Type
2. eq : EqDecider(T)
3. as : T List
4. bs : T List
5. bs ⊆ as
⊢ reduce(λa,L. insert(a;L);as;bs) ~ as
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[as,bs:T  List].    as  \mcup{}  bs  \msim{}  as  supposing  bs  \msubseteq{}  as
By
Latex:
((UnivCD  THENA  Auto)  THEN  Unfold  `l-union`  0)
Home
Index