---

Step * 1 1 1 of Lemma fset-size-one


1. T : Type
2. eq : EqDecider(T)
3. istype(T List)
4. ∀x,y1:T List.  istype(set-equal(T;x;y1))
5. ∀x:T List. set-equal(T;x;x)
6. a : Base
7. b : Base
8. c : a = b ∈ pertype(λx,y. ((x ∈ T List) ∧ (y ∈ T List) ∧ set-equal(T;x;y)))
9. a ∈ T List
10. b ∈ T List
11. set-equal(T;a;b)
12. ||a|| = 1 ∈ ℤ
13. item(a) ∈ T
14. item(a) ∈ a
15. y : T
16. y ∈ a
⊢ y = item(a) ∈ T
BY
{ (All (Unfolds ``fset-member fset-size``)
   THEN (All (RW assert_pushdownC)  THENA Auto)
   THEN (RWO "remove-repeats-length-one" 12 THENA Auto))⋅ }

1
1. T : Type
2. eq : EqDecider(T)
3. istype(T List)
4. ∀x,y1:T List.  istype(set-equal(T;x;y1))
5. ∀x:T List. set-equal(T;x;x)
6. a : Base
7. b : Base
8. c : a = b ∈ pertype(λx,y. ((x ∈ T List) ∧ (y ∈ T List) ∧ set-equal(T;x;y)))
9. a ∈ T List
10. b ∈ T List
11. set-equal(T;a;b)
12. ∃x:T. ((x ∈ a) ∧ (∀y:T. y = x ∈ T supposing (y ∈ a)))
13. item(a) ∈ T
14. (item(a) ∈ a)
15. y : T
16. (y ∈ a)
⊢ y = item(a) ∈ T

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  istype(T  List)
4.  \mforall{}x,y1:T  List.    istype(set-equal(T;x;y1))
5.  \mforall{}x:T  List.  set-equal(T;x;x)
6.  a  :  Base
7.  b  :  Base
8.  c  :  a  =  b
9.  a  \mmember{}  T  List
10.  b  \mmember{}  T  List
11.  set-equal(T;a;b)
12.  ||a||  =  1
13.  item(a)  \mmember{}  T
14.  item(a)  \mmember{}  a
15.  y  :  T
16.  y  \mmember{}  a
\mvdash{}  y  =  item(a)


By

---

Latex:
(All  (Unfolds  ``fset-member  fset-size``)
  THEN  (All  (RW  assert\_pushdownC)    THENA  Auto)
  THEN  (RWO  "remove-repeats-length-one"  12  THENA  Auto))\mcdot{}

---

Home Index