---

Step * 4 of Lemma assert-dlo_eq


1. x : Prog
2. ∀b:dl-Obj(). (↑dlo_eq(prog(x);b) ⇐⇒ prog(x) = b ∈ dl-Obj())
⊢ ∀b:dl-Obj(). (↑dlo_eq(prog((x)*);b) ⇐⇒ prog((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))) }

1
1. x : Prog
2. ∀b:dl-Obj(). (↑dlo_eq(prog(x);b) ⇐⇒ prog(x) = b ∈ dl-Obj())
3. x@0 : Prog
4. (↑dlo_eq(prog((x)*);prog(x@0))) ⇒ (prog((x)*) = prog(x@0) ∈ dl-Obj())
5. (↑dlo_eq(prog((x)*);prog(x@0))) ⇐ prog((x)*) = prog(x@0) ∈ dl-Obj()
6. ↑dlo_eq(prog(x);prog(x@0))
⊢ prog((x)*) = prog((x@0)*) ∈ dl-Obj()

---

Latex:

---

Latex:

1.  x  :  Prog
2.  \mforall{}b:dl-Obj().  (\muparrow{}dlo\_eq(prog(x);b)  \mLeftarrow{}{}\mRightarrow{}  prog(x)  =  b)
\mvdash{}  \mforall{}b:dl-Obj().  (\muparrow{}dlo\_eq(prog((x)*);b)  \mLeftarrow{}{}\mRightarrow{}  prog((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