---

Step * 1 2 2 1 of Lemma permutation-generators5


1. n : ℕ
2. [P] : {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)}  ⟶ ℙ
3. P[λx.x]
4. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i:ℕn - 1.  (P[f] ⇒ P[f o (i, i + 1)])
5. d : ℤ
6. [%5] : 0 < d
7. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i,j:ℕn.  P[f] ⇒ P[f o (i, j)] supposing (¬(i = j ∈ ℤ)) ∧ (|i - j| ≤ ((d - 1) + 1))
8. f : {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} 
9. i : ℕn
10. j : ℕn
11. ¬(i = j ∈ ℤ)
12. |i - j| ≤ (d + 1)
13. P[f]
14. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i,j:ℕn.  P[f] ⇒ P[f o (i, j)] supposing i < j ∧ (|i - j| ≤ (d + 1))
15. ¬i < j
⊢ P[f o (i, j)]
BY
{ ((Assert |i - j| = |j - i| ∈ ℤ BY
          Auto)
   THEN (InstHyp [⌜f⌝;⌜j⌝;⌜i⌝] (-3)⋅ THENA Auto)
   THEN Try ((NthHypEq (-1) THEN EqCDA))) }

1
.....subterm..... T:t
2:n
1. n : ℕ
2. P : {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)}  ⟶ ℙ
3. P[λx.x]
4. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i:ℕn - 1.  (P[f] ⇒ P[f o (i, i + 1)])
5. d : ℤ
6. 0 < d
7. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i,j:ℕn.  P[f] ⇒ P[f o (i, j)] supposing (¬(i = j ∈ ℤ)) ∧ (|i - j| ≤ ((d - 1) + 1))
8. f : {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} 
9. i : ℕn
10. j : ℕn
11. ¬(i = j ∈ ℤ)
12. |i - j| ≤ (d + 1)
13. P[f]
14. ∀f:{f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} . ∀i,j:ℕn.  P[f] ⇒ P[f o (i, j)] supposing i < j ∧ (|i - j| ≤ (d + 1))
15. ¬i < j
16. |i - j| = |j - i| ∈ ℤ
17. P[f o (j, i)]
⊢ (f o (i, j)) = (f o (j, i)) ∈ {f:ℕn ⟶ ℕn| Inj(ℕn;ℕn;f)} 

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  [P]  :  \{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}    {}\mrightarrow{}  \mBbbP{}
3.  P[\mlambda{}x.x]
4.  \mforall{}f:\{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}  .  \mforall{}i:\mBbbN{}n  -  1.    (P[f]  {}\mRightarrow{}  P[f  o  (i,  i  +  1)])
5.  d  :  \mBbbZ{}
6.  [\%5]  :  0  <  d
7.  \mforall{}f:\{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}  .  \mforall{}i,j:\mBbbN{}n.
          P[f]  {}\mRightarrow{}  P[f  o  (i,  j)]  supposing  (\mneg{}(i  =  j))  \mwedge{}  (|i  -  j|  \mleq{}  ((d  -  1)  +  1))
8.  f  :  \{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\} 
9.  i  :  \mBbbN{}n
10.  j  :  \mBbbN{}n
11.  \mneg{}(i  =  j)
12.  |i  -  j|  \mleq{}  (d  +  1)
13.  P[f]
14.  \mforall{}f:\{f:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}n|  Inj(\mBbbN{}n;\mBbbN{}n;f)\}  .  \mforall{}i,j:\mBbbN{}n.
            P[f]  {}\mRightarrow{}  P[f  o  (i,  j)]  supposing  i  <  j  \mwedge{}  (|i  -  j|  \mleq{}  (d  +  1))
15.  \mneg{}i  <  j
\mvdash{}  P[f  o  (i,  j)]


By

---

Latex:
((Assert  |i  -  j|  =  |j  -  i|  BY
                Auto)
  THEN  (InstHyp  [\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}j\mkleeneclose{};\mkleeneopen{}i\mkleeneclose{}]  (-3)\mcdot{}  THENA  Auto)
  THEN  Try  ((NthHypEq  (-1)  THEN  EqCDA)))

---

Home Index