---

Step * 1 1 1 of Lemma rec-class-val

.....wf..... 
1. Info : Type@i'
2. T : Type@i'
3. G : es:EO+(Info) ⟶ E ⟶ bag(T)@i'
4. F : es:EO+(Info) ⟶ e':E ⟶ T ⟶ {e:E| (e' <loc e)}  ⟶ bag(T)@i'
5. es : EO+(Info)@i'
6. e : E@i
7. X : EClass(T)@i'
8. B : bag(E(X))@i
9. (prior(X) es e) = B ∈ bag(E(X))@i
10. #(B) = 1 ∈ ℤ
⊢ F[es;prior(X)(e);X(prior(X)(e));e] ∈ bag(T)
BY
{ ((RevHypSubst (-2) (-1) THENA Auto) THEN (RW assert_pushupC (-1) THENA Auto) THEN Fold `in-eclass` (-1) THEN Auto) }

1
1. Info : Type@i'
2. T : Type@i'
3. G : es:EO+(Info) ⟶ E ⟶ bag(T)@i'
4. F : es:EO+(Info) ⟶ e':E ⟶ T ⟶ {e:E| (e' <loc e)}  ⟶ bag(T)@i'
5. es : EO+(Info)@i'
6. e : E@i
7. X : EClass(T)@i'
8. B : bag(E(X))@i
9. (prior(X) es e) = B ∈ bag(E(X))@i
10. ↑e ∈b prior(X)
⊢ prior(X)(e) ∈ E

2
1. Info : Type@i'
2. T : Type@i'
3. G : es:EO+(Info) ⟶ E ⟶ bag(T)@i'
4. F : es:EO+(Info) ⟶ e':E ⟶ T ⟶ {e:E| (e' <loc e)}  ⟶ bag(T)@i'
5. es : EO+(Info)@i'
6. e : E@i
7. X : EClass(T)@i'
8. B : bag(E(X))@i
9. (prior(X) es e) = B ∈ bag(E(X))@i
10. ↑e ∈b prior(X)
⊢ prior(X)(e) ∈ E

3
1. Info : Type@i'
2. T : Type@i'
3. G : es:EO+(Info) ⟶ E ⟶ bag(T)@i'
4. F : es:EO+(Info) ⟶ e':E ⟶ T ⟶ {e:E| (e' <loc e)}  ⟶ bag(T)@i'
5. es : EO+(Info)@i'
6. e : E@i
7. X : EClass(T)@i'
8. B : bag(E(X))@i
9. (prior(X) es e) = B ∈ bag(E(X))@i
10. ↑e ∈b prior(X)
⊢ e ∈ {e@0:E| (prior(X)(e) <loc e@0)} 

---

Latex:

---

Latex:
.....wf..... 
1.  Info  :  Type@i'
2.  T  :  Type@i'
3.  G  :  es:EO+(Info)  {}\mrightarrow{}  E  {}\mrightarrow{}  bag(T)@i'
4.  F  :  es:EO+(Info)  {}\mrightarrow{}  e':E  {}\mrightarrow{}  T  {}\mrightarrow{}  \{e:E|  (e'  <loc  e)\}    {}\mrightarrow{}  bag(T)@i'
5.  es  :  EO+(Info)@i'
6.  e  :  E@i
7.  X  :  EClass(T)@i'
8.  B  :  bag(E(X))@i
9.  (prior(X)  es  e)  =  B@i
10.  \#(B)  =  1
\mvdash{}  F[es;prior(X)(e);X(prior(X)(e));e]  \mmember{}  bag(T)


By

---

Latex:
((RevHypSubst  (-2)  (-1)  THENA  Auto)
  THEN  (RW  assert\_pushupC  (-1)  THENA  Auto)
  THEN  Fold  `in-eclass`  (-1)
  THEN  Auto)

---

Home Index