---

Step * 1 1 of Lemma permutation-iff-count1


1. [T] : Type
2. eq : T ⟶ T ⟶ 𝔹
3. ∀x,y:T.  (↑(eq x y) ⇐⇒ x = y ∈ T)
4. u : T
5. v : T List
6. (∀x:T. (||filter(eq x;[])|| = ||filter(eq x;v)|| ∈ ℤ)) ⇒ permutation(T;[];v)
7. ∀x:T. (||filter(eq x;[])|| = ||filter(eq x;[u / v])|| ∈ ℤ)
⊢ permutation(T;[];[u / v])
BY
{ ((InstHyp [⌜u⌝] (-1)⋅ THEN Auto)
   THEN Reduce (-1)
   THEN SplitOnHypITE -1 
   THEN Reduce (-2)
   THEN Auto'
   THEN D (-1)
   THEN RWO  "3" 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  eq  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbB{}
3.  \mforall{}x,y:T.    (\muparrow{}(eq  x  y)  \mLeftarrow{}{}\mRightarrow{}  x  =  y)
4.  u  :  T
5.  v  :  T  List
6.  (\mforall{}x:T.  (||filter(eq  x;[])||  =  ||filter(eq  x;v)||))  {}\mRightarrow{}  permutation(T;[];v)
7.  \mforall{}x:T.  (||filter(eq  x;[])||  =  ||filter(eq  x;[u  /  v])||)
\mvdash{}  permutation(T;[];[u  /  v])


By

---

Latex:
((InstHyp  [\mkleeneopen{}u\mkleeneclose{}]  (-1)\mcdot{}  THEN  Auto)
  THEN  Reduce  (-1)
  THEN  SplitOnHypITE  -1 
  THEN  Reduce  (-2)
  THEN  Auto'
  THEN  D  (-1)
  THEN  RWO    "3"  0
  THEN  Auto)

---

Home Index