---

Step * of Lemma dm-neg-inc

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[i:T].  (¬(<i>) = <1-i> ∈ Point(free-DeMorgan-lattice(T;eq)))
BY
{ (Auto THEN Unfold `free-DeMorgan-lattice` 0) }

1
1. T : Type
2. eq : EqDecider(T)
3. i : T
⊢ ¬(<i>) = <1-i> ∈ Point(free-dist-lattice(T + T; union-deq(T;T;eq;eq)))

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[i:T].    (\mneg{}(<i>)  =  ə-i>)


By

---

Latex:
(Auto  THEN  Unfold  `free-DeMorgan-lattice`  0)

---

Home Index