---

Step * 1 of Lemma assert-dlo_eq


1. x : ℕ
⊢ ∀b:dl-Obj(). (↑dlo_eq(prog(atm(x));b) ⇐⇒ prog(atm(x)) = b ∈ dl-Obj())
BY
{ (dlObjInduction
   THEN Intros
   THEN Unfold `dlo_eq` 0
   THEN (Unfold `dlo-eq` 0 THEN RW (HigherC MrecIndC) 0)
   THEN Try (Fold `dlo-eq` 0)
   THEN Try (Fold `dlo_eq` 0)
   THEN RW (SweepUpC BetaC) 0
   THEN RW (SweepUpC ReduceC) 0
   THEN Auto
   THEN Try (((Assert "prog" = "prop" ∈ Atom BY Complete (Auto)) THEN Auto))) }

---

Latex:

---

Latex:

1.  x  :  \mBbbN{}
\mvdash{}  \mforall{}b:dl-Obj().  (\muparrow{}dlo\_eq(prog(atm(x));b)  \mLeftarrow{}{}\mRightarrow{}  prog(atm(x))  =  b)


By

---

Latex:
(dlObjInduction
  THEN  Intros
  THEN  Unfold  `dlo\_eq`  0
  THEN  (Unfold  `dlo-eq`  0  THEN  RW  (HigherC  MrecIndC)  0)
  THEN  Try  (Fold  `dlo-eq`  0)
  THEN  Try  (Fold  `dlo\_eq`  0)
  THEN  RW  (SweepUpC  BetaC)  0
  THEN  RW  (SweepUpC  ReduceC)  0
  THEN  Auto
  THEN  Try  (((Assert  "prog"  =  "prop"  BY  Complete  (Auto))  THEN  Auto)))

---

Home Index