Step * 1 1 1 1 of Lemma cons_functionality_wrt_permr_upto


1. Type
2. T ⟶ T ⟶ ℙ
3. EquivRel(T;x,y.R[x;y])
4. T
5. T
6. as List
7. bs List
8. R[a;b]
9. as ≡ bs upto x,y.R[x;y] 
10. cs List
11. as ≡(T) cs
12. cs bs upto {x,y.R[x;y]}
⊢ ([a as] ≡(T) [a cs]) ∧ [a cs] [b bs] upto {x,y.R[x;y]}
BY
}

1
1. Type
2. T ⟶ T ⟶ ℙ
3. EquivRel(T;x,y.R[x;y])
4. T
5. T
6. as List
7. bs List
8. R[a;b]
9. as ≡ bs upto x,y.R[x;y] 
10. cs List
11. as ≡(T) cs
12. cs bs upto {x,y.R[x;y]}
⊢ [a as] ≡(T) [a cs]

2
1. Type
2. T ⟶ T ⟶ ℙ
3. EquivRel(T;x,y.R[x;y])
4. T
5. T
6. as List
7. bs List
8. R[a;b]
9. as ≡ bs upto x,y.R[x;y] 
10. cs List
11. as ≡(T) cs
12. cs bs upto {x,y.R[x;y]}
⊢ [a cs] [b bs] upto {x,y.R[x;y]}


Latex:


Latex:

1.  T  :  Type
2.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  EquivRel(T;x,y.R[x;y])
4.  a  :  T
5.  b  :  T
6.  as  :  T  List
7.  bs  :  T  List
8.  R[a;b]
9.  as  \mequiv{}  bs  upto  x,y.R[x;y] 
10.  cs  :  T  List
11.  as  \mequiv{}(T)  cs
12.  cs  =  bs  upto  \{x,y.R[x;y]\}
\mvdash{}  ([a  /  as]  \mequiv{}(T)  [a  /  cs])  \mwedge{}  [a  /  cs]  =  [b  /  bs]  upto  \{x,y.R[x;y]\}


By


Latex:
D  0




Home Index