---

Step * of Lemma free-dma-lift-id

∀T:Type. ∀eq:EqDecider(T).
  (free-dma-lift(T;eq;free-DeMorgan-algebra(T;eq);free-dml-deq(T;eq);λi.<i>)
  = (λx.x)
  ∈ dma-hom(free-DeMorgan-algebra(T;eq);free-DeMorgan-algebra(T;eq)))
BY
{ (Auto THEN BLemma `free-dma-lift-unique` THEN Reduce 0 THEN Auto THEN Try ((BLemma `id-is-dma-hom` THEN Auto))) }

---

Latex:

---

Latex:
\mforall{}T:Type.  \mforall{}eq:EqDecider(T).
    (free-dma-lift(T;eq;free-DeMorgan-algebra(T;eq);free-dml-deq(T;eq);\mlambda{}i.<i>)  =  (\mlambda{}x.x))


By

---

Latex:
(Auto
  THEN  BLemma  `free-dma-lift-unique`
  THEN  Reduce  0
  THEN  Auto
  THEN  Try  ((BLemma  `id-is-dma-hom`  THEN  Auto)))

---

Home Index