---

Step * 1 4 2 of Lemma perm_induction_a


1. n : ℕ@i
2. Q : Sym(n) ⟶ ℙ@i'
3. Q[id_perm()]@i
4. ∀p:Sym(n). (Q[p] ⇒ (∀i:{1..n-}. Q[txpose_perm(i;0) O p]))@i
5. p : Sym(n)@i
6. Q[p]@i
7. i : ℕn@i
8. j : ℕn@i
9. ¬(i = 0 ∈ ℤ)
10. ¬(j = 0 ∈ ℤ)
11. ¬(i = j ∈ ℤ)
⊢ Q[txpose_perm(i
                ;j)
     O p]
BY
{ ((RWH (LemmaWithC [`k',0] `triple_txpose_perm`) 0 THENM RW PermNormC 0) THENA Auto) }

1
1. n : ℕ@i
2. Q : Sym(n) ⟶ ℙ@i'
3. Q[id_perm()]@i
4. ∀p:Sym(n). (Q[p] ⇒ (∀i:{1..n-}. Q[txpose_perm(i;0) O p]))@i
5. p : Sym(n)@i
6. Q[p]@i
7. i : ℕn@i
8. j : ℕn@i
9. ¬(i = 0 ∈ ℤ)
10. ¬(j = 0 ∈ ℤ)
11. ¬(i = j ∈ ℤ)
⊢ Q[txpose_perm(i
                ;0)
     O txpose_perm(j
                   ;0)
        O txpose_perm(i
                      ;0)
           O p]

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}@i
2.  Q  :  Sym(n)  {}\mrightarrow{}  \mBbbP{}@i'
3.  Q[id\_perm()]@i
4.  \mforall{}p:Sym(n).  (Q[p]  {}\mRightarrow{}  (\mforall{}i:\{1..n\msupminus{}\}.  Q[txpose\_perm(i;0)  O  p]))@i
5.  p  :  Sym(n)@i
6.  Q[p]@i
7.  i  :  \mBbbN{}n@i
8.  j  :  \mBbbN{}n@i
9.  \mneg{}(i  =  0)
10.  \mneg{}(j  =  0)
11.  \mneg{}(i  =  j)
\mvdash{}  Q[txpose\_perm(i
                                ;j)
          O  p]


By

---

Latex:
((RWH  (LemmaWithC  [`k',0]  `triple\_txpose\_perm`)  0  THENM  RW  PermNormC  0)  THENA  Auto)

---

Home Index