Step * 6 of Lemma assert-dlo_eq


1. : ℕ
⊢ ∀b:dl-Obj(). (↑dlo_eq(prop(atm(x));b) ⇐⇒ prop(atm(x)) b ∈ dl-Obj())
BY
(dlObjInduction
   THEN Intros
   THEN Unfold `dlo_eq` 0
   THEN (Unfold `dlo-eq` 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(prop(atm(x));b)  \mLeftarrow{}{}\mRightarrow{}  prop(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