---

Step * 1 of Lemma cons_remove1_permr


1. s : DSet
2. a : |s|
3. bs : |s| List
4. ↑(a ∈b bs)
⊢ [a / (bs \ a)] ≡(|s|) bs
BY
{ (New [`b'; `bs\''] (ListInd 3) THEN AbReduce 0) }

1
1. s : DSet
2. a : |s|
⊢ False ⇒ ([a] ≡(|s|) [])

2
1. s : DSet
2. a : |s|
3. b1 : |s|
4. bs' : |s| List
5. b : (↑(a ∈b bs')) ⇒ ([a / (bs' \ a)] ≡(|s|) bs')
⊢ (↑((b1 (=b) a) ∨b(a ∈b bs'))) ⇒ ([a / if b1 (=b) a then bs' else [b1 / (bs' \ a)] fi ] ≡(|s|) [b1 / bs'])

---

Latex:

---

Latex:

1.  s  :  DSet
2.  a  :  |s|
3.  bs  :  |s|  List
4.  \muparrow{}(a  \mmember{}\msubb{}  bs)
\mvdash{}  [a  /  (bs  \mbackslash{}  a)]  \mequiv{}(|s|)  bs


By

---

Latex:
(New  [`b';  `bs\mbackslash{}'']  (ListInd  3)  THEN  AbReduce  0)

---

Home Index