---

Step * 1 1 1 1 of Lemma mu-ge-property2


1. mu-ge : Base
2. n@0 : Base
3. z : Base
⊢ case case z of inl(y) => inl ⋅ | inr(z) => inr ⋅  of inl() => n@0 | inr() => eval m = n@0 + 1 in mu-ge m ~ case z
 of inl() =>
 n@0
 | inr() =>
 eval m = n@0 + 1 in
 mu-ge m
BY
{ TACTIC:(RW ((SweepUpC (LiftC true))) 0 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  mu-ge  :  Base
2.  n@0  :  Base
3.  z  :  Base
\mvdash{}  case  case  z  of  inl(y)  =>  inl  \mcdot{}  |  inr(z)  =>  inr  \mcdot{} 
  of  inl()  =>
  n@0
  |  inr()  =>
  eval  m  =  n@0  +  1  in
  mu-ge  m  \msim{}  case  z  of  inl()  =>  n@0  |  inr()  =>  eval  m  =  n@0  +  1  in  mu-ge  m


By

---

Latex:
TACTIC:(RW  ((SweepUpC  (LiftC  true)))  0  THEN  Reduce  0  THEN  Auto)

---

Home Index