---

Step * 2 of Lemma f-subset-singleton


1. A : Type
2. eq : EqDecider(A)
3. a : A
4. x : fset(A)
5. (x = {a} ∈ fset(A)) ∨ (x = {} ∈ fset(A))
6. a@0 : A
7. a@0 ∈ x
⊢ a@0 = a ∈ A
BY
{ (D -3 THEN (HypSubst' -3 -1 THENA Auto) THEN Reduce (-1) THEN Auto THEN RWO "member-fset-singleton" (-1) THEN Auto) }

---

Latex:

---

Latex:

1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  a  :  A
4.  x  :  fset(A)
5.  (x  =  \{a\})  \mvee{}  (x  =  \{\})
6.  a@0  :  A
7.  a@0  \mmember{}  x
\mvdash{}  a@0  =  a


By

---

Latex:
(D  -3
  THEN  (HypSubst'  -3  -1  THENA  Auto)
  THEN  Reduce  (-1)
  THEN  Auto
  THEN  RWO  "member-fset-singleton"  (-1)
  THEN  Auto)

---

Home Index