---

Step * 1 2 1 1 1 of Lemma append_functionality_wrt_permr


1. T : Type
2. as : T List
3. as' : T List
4. bs : T List
5. bs' : T List
6. ||as|| = ||as'|| ∈ ℤ
7. pa : Sym(||as||)
8. ∀i:ℕ||as||. (as[pa.f i] = as'[i] ∈ T)
9. ||bs|| = ||bs'|| ∈ ℤ
10. pb : Sym(||bs||)
11. ∀i:ℕ||bs||. (bs[pb.f i] = bs'[i] ∈ T)
12. ||as @ bs|| = ||as' @ bs'|| ∈ ℤ
⊢ ∀i:ℕ||as|| + ||bs||. (as @ bs[app_perm(||as||;||bs||;pa;pb).f i] = as' @ bs'[i] ∈ T)
BY
{ ((D 0 THENA Auto) THEN AbReduce 0) }

1
1. T : Type
2. as : T List
3. as' : T List
4. bs : T List
5. bs' : T List
6. ||as|| = ||as'|| ∈ ℤ
7. pa : Sym(||as||)
8. ∀i:ℕ||as||. (as[pa.f i] = as'[i] ∈ T)
9. ||bs|| = ||bs'|| ∈ ℤ
10. pb : Sym(||bs||)
11. ∀i:ℕ||bs||. (bs[pb.f i] = bs'[i] ∈ T)
12. ||as @ bs|| = ||as' @ bs'|| ∈ ℤ
13. i : ℕ||as|| + ||bs||
⊢ as @ bs[app_permf(||as||;||bs||;pa.f;pb.f) i] = as' @ bs'[i] ∈ T

---

Latex:

---

Latex:

1.  T  :  Type
2.  as  :  T  List
3.  as'  :  T  List
4.  bs  :  T  List
5.  bs'  :  T  List
6.  ||as||  =  ||as'||
7.  pa  :  Sym(||as||)
8.  \mforall{}i:\mBbbN{}||as||.  (as[pa.f  i]  =  as'[i])
9.  ||bs||  =  ||bs'||
10.  pb  :  Sym(||bs||)
11.  \mforall{}i:\mBbbN{}||bs||.  (bs[pb.f  i]  =  bs'[i])
12.  ||as  @  bs||  =  ||as'  @  bs'||
\mvdash{}  \mforall{}i:\mBbbN{}||as||  +  ||bs||.  (as  @  bs[app\_perm(||as||;||bs||;pa;pb).f  i]  =  as'  @  bs'[i])


By

---

Latex:
((D  0  THENA  Auto)  THEN  AbReduce  0)

---

Home Index