---

Step * of Lemma fset-union_wf

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[x,y:fset(T)].  (x ⋃ y ∈ fset(T))
BY
{ (Auto THEN (DVar `x' THENA Auto) THEN (DVar `y' THENA Auto) THEN Unfold `fset-union` 0 THEN EqTypeCD THEN Auto) }

1
.....antecedent..... 
1. T : Type
2. eq : EqDecider(T)
3. x : Base
4. x1 : Base
5. x = x1 ∈ pertype(λx,y. ((x ∈ T List) ∧ (y ∈ T List) ∧ set-equal(T;x;y)))
6. x ∈ T List
7. x1 ∈ T List
8. set-equal(T;x;x1)
9. y : Base
10. y1 : Base
11. y = y1 ∈ pertype(λx,y. ((x ∈ T List) ∧ (y ∈ T List) ∧ set-equal(T;x;y)))
12. y ∈ T List
13. y1 ∈ T List
14. set-equal(T;y;y1)
⊢ set-equal(T;x ⋃ y;x1 ⋃ y1)

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[x,y:fset(T)].    (x  \mcup{}  y  \mmember{}  fset(T))


By

---

Latex:
(Auto
  THEN  (DVar  `x'  THENA  Auto)
  THEN  (DVar  `y'  THENA  Auto)
  THEN  Unfold  `fset-union`  0
  THEN  EqTypeCD
  THEN  Auto)

---

Home Index