---

Step * 1 2 1 of Lemma co-value-height_wf


1. T : Type
2. co-value-height : T ⟶ partial(ℕ)
3. a1 : Base
4. (a1)↓
5. ↑is-atomic(a1)
6. ∀[u,v:Top].  (if a1 is a pair then u otherwise v ~ v)
7. x : a1 ~ inl outl(a1)
⊢ 1 + (co-value-height outl(a1)) ∈ partial(ℕ)
BY
{ TACTIC:(Thin (-2) THEN HypSubst' (-1) (-2) THEN RepUR ``is-atomic`` (-2) THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  co-value-height  :  T  {}\mrightarrow{}  partial(\mBbbN{})
3.  a1  :  Base
4.  (a1)\mdownarrow{}
5.  \muparrow{}is-atomic(a1)
6.  \mforall{}[u,v:Top].    (if  a1  is  a  pair  then  u  otherwise  v  \msim{}  v)
7.  x  :  a1  \msim{}  inl  outl(a1)
\mvdash{}  1  +  (co-value-height  outl(a1))  \mmember{}  partial(\mBbbN{})


By

---

Latex:
TACTIC:(Thin  (-2)  THEN  HypSubst'  (-1)  (-2)  THEN  RepUR  ``is-atomic``  (-2)  THEN  Auto)

---

Home Index