---

Step * 1 2 1 1 2 1 1 of Lemma permutation-sign-flip


1. n : ℕ
2. ∀[f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} ]. ∀[u:ℕn - 1].  (permutation-sign(n;f o (u, u + 1)) = (-permutation-sign(n;f)) ∈ ℤ)
3. d : ℤ
4. 0 < d
5. ∀[f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} ]. ∀[u,v:ℕn].
     permutation-sign(n;f o (u, v)) = (-permutation-sign(n;f)) ∈ ℤ supposing (¬(u = v ∈ ℤ)) ∧ (|u - v| ≤ ((d - 1) + 1))
6. f : {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} 
7. u : ℕn
8. v : ℕn
9. u < v
10. |u - v| ≤ (d + 1)
11. ¬(u = (v - 1) ∈ ℤ)
12. x : ℕn
13. x = v ∈ ℤ
⊢ ((u, v) x) = ((v, v - 1) ((u, v - 1) ((v, v - 1) x))) ∈ ℕn
BY
{ ((Subst' (v, v - 1) x ~ v - 1 0 THENA (RepUR ``flip`` 0 THEN AutoSplit))
   THEN (Subst' (u, v) x ~ u 0 THENA (RepUR ``flip`` 0 THEN AutoSplit))
   THEN (Subst' (u, v - 1) (v - 1) ~ u 0 THENA (RepUR ``flip`` 0 THEN AutoSplit))
   THEN RepUR ``flip`` 0
   THEN AutoSplit) }

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  \mforall{}[f:\{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}  ].  \mforall{}[u:\mBbbN{}n  -  1].
          (permutation-sign(n;f  o  (u,  u  +  1))  =  (-permutation-sign(n;f)))
3.  d  :  \mBbbZ{}
4.  0  <  d
5.  \mforall{}[f:\{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}  ].  \mforall{}[u,v:\mBbbN{}n].
          permutation-sign(n;f  o  (u,  v))  =  (-permutation-sign(n;f)) 
          supposing  (\mneg{}(u  =  v))  \mwedge{}  (|u  -  v|  \mleq{}  ((d  -  1)  +  1))
6.  f  :  \{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\} 
7.  u  :  \mBbbN{}n
8.  v  :  \mBbbN{}n
9.  u  <  v
10.  |u  -  v|  \mleq{}  (d  +  1)
11.  \mneg{}(u  =  (v  -  1))
12.  x  :  \mBbbN{}n
13.  x  =  v
\mvdash{}  ((u,  v)  x)  =  ((v,  v  -  1)  ((u,  v  -  1)  ((v,  v  -  1)  x)))


By

---

Latex:
((Subst'  (v,  v  -  1)  x  \msim{}  v  -  1  0  THENA  (RepUR  ``flip``  0  THEN  AutoSplit))
  THEN  (Subst'  (u,  v)  x  \msim{}  u  0  THENA  (RepUR  ``flip``  0  THEN  AutoSplit))
  THEN  (Subst'  (u,  v  -  1)  (v  -  1)  \msim{}  u  0  THENA  (RepUR  ``flip``  0  THEN  AutoSplit))
  THEN  RepUR  ``flip``  0
  THEN  AutoSplit)

---

Home Index