---

Step * 1 1 1 of Lemma cycle-append


1. n : ℕ
2. as : ℕn List
3. bs : ℕn List
4. no_repeats(ℕn;as @ bs)
5. x : ℕn
6. i : ℕ
7. i < ||as @ bs||
8. x = as @ bs[i] ∈ ℕn
9. i1 : ℕ
10. i1 < ||bs @ as||
11. x = bs @ as[i1] ∈ ℕn
⊢ (cycle(as @ bs) as @ bs[i]) = (cycle(bs @ as) bs @ as[i1]) ∈ ℕn
BY
{ TACTIC:(Assert no_repeats(ℕn;bs @ as) BY
                ((RWO "no_repeats-append" 0 THEN Auto)
                 THEN RWO "no_repeats-append" 4
                 THEN Auto
                 THEN (All (Unfold `guard`) THEN Auto)
                 THEN BLemma `l_disjoint-symmetry`
                 THEN Auto)) }

1
1. n : ℕ
2. as : ℕn List
3. bs : ℕn List
4. no_repeats(ℕn;as @ bs)
5. x : ℕn
6. i : ℕ
7. i < ||as @ bs||
8. x = as @ bs[i] ∈ ℕn
9. i1 : ℕ
10. i1 < ||bs @ as||
11. x = bs @ as[i1] ∈ ℕn
12. no_repeats(ℕn;bs @ as)
⊢ (cycle(as @ bs) as @ bs[i]) = (cycle(bs @ as) bs @ as[i1]) ∈ ℕn

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  as  :  \mBbbN{}n  List
3.  bs  :  \mBbbN{}n  List
4.  no\_repeats(\mBbbN{}n;as  @  bs)
5.  x  :  \mBbbN{}n
6.  i  :  \mBbbN{}
7.  i  <  ||as  @  bs||
8.  x  =  as  @  bs[i]
9.  i1  :  \mBbbN{}
10.  i1  <  ||bs  @  as||
11.  x  =  bs  @  as[i1]
\mvdash{}  (cycle(as  @  bs)  as  @  bs[i])  =  (cycle(bs  @  as)  bs  @  as[i1])


By

---

Latex:
TACTIC:(Assert  no\_repeats(\mBbbN{}n;bs  @  as)  BY
                            ((RWO  "no\_repeats-append"  0  THEN  Auto)
                              THEN  RWO  "no\_repeats-append"  4
                              THEN  Auto
                              THEN  (All  (Unfold  `guard`)  THEN  Auto)
                              THEN  BLemma  `l\_disjoint-symmetry`
                              THEN  Auto))

---

Home Index