---

Step * 1 2 1 1 of Lemma cons_functionality_wrt_lequiv


1. T : Type
2. R : T ⟶ T ⟶ ℙ
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|| = ||bs|| ∈ ℤ
10. ∀i:ℕ||as||. R[as[i];bs[i]]
11. ||[a / as]|| = ||[b / bs]|| ∈ ℤ
12. i : ℕ||[a / as]||
13. i = 0 ∈ ℤ
⊢ R[[a / as][i];[b / bs][i]]
BY
{ TACTIC:((HypSubst' (-1) 0 THEN Reduce 0) THEN Auto) }

---

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||  =  ||bs||
10.  \mforall{}i:\mBbbN{}||as||.  R[as[i];bs[i]]
11.  ||[a  /  as]||  =  ||[b  /  bs]||
12.  i  :  \mBbbN{}||[a  /  as]||
13.  i  =  0
\mvdash{}  R[[a  /  as][i];[b  /  bs][i]]


By

---

Latex:
TACTIC:((HypSubst'  (-1)  0  THEN  Reduce  0)  THEN  Auto)

---

Home Index