---

Step * 1 2 2 1 of Lemma cons_remove1_permr


1. s : DSet
2. a : |s|
3. b1 : |s|
4. bs' : |s| List
5. b : (↑(a ∈b bs')) ⟶ ([a / (bs' \ a)] ≡(|s|) bs')
6. ¬(b1 = a ∈ |s|)
7. ↑(a ∈b bs')
8. [a / (bs' \ a)] ≡(|s|) bs'
⊢ [a; [b1 / (bs' \ a)]] ≡(|s|) [b1 / bs']
BY
{ ((RWN 2 (RevHypC (-1)) 0 
THENM BLemma `hd_two_swap_permr`) THEN Auto) }

---

Latex:

---

Latex:

1.  s  :  DSet
2.  a  :  |s|
3.  b1  :  |s|
4.  bs'  :  |s|  List
5.  b  :  (\muparrow{}(a  \mmember{}\msubb{}  bs'))  {}\mrightarrow{}  ([a  /  (bs'  \mbackslash{}  a)]  \mequiv{}(|s|)  bs')
6.  \mneg{}(b1  =  a)
7.  \muparrow{}(a  \mmember{}\msubb{}  bs')
8.  [a  /  (bs'  \mbackslash{}  a)]  \mequiv{}(|s|)  bs'
\mvdash{}  [a;  [b1  /  (bs'  \mbackslash{}  a)]]  \mequiv{}(|s|)  [b1  /  bs']


By

---

Latex:
((RWN  2  (RevHypC  (-1))  0 
THENM  BLemma  `hd\_two\_swap\_permr`)  THEN  Auto)

---

Home Index