---

Step * of Lemma assert-fset-antichain

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[ac:fset(fset(T))].
  uiff(↑fset-antichain(eq;ac);∀xs,ys:fset(T).  (¬xs ⊆≠ ys) supposing (xs ∈ ac and ys ∈ ac))
BY
{ (((UnivCD THENA Auto) THEN Unfold `fset-antichain` 0)
   THEN (InstLemma `assert-fset-pairwise` [⌜fset(T)⌝;⌜deq-fset(eq)⌝]⋅ THENA Auto)
   THEN (RWO "-1" 0 THENA Auto)
   THEN RW assert_pushdownC 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[ac:fset(fset(T))].
    uiff(\muparrow{}fset-antichain(eq;ac);\mforall{}xs,ys:fset(T).    (\mneg{}xs  \msubseteq{}\mneq{}  ys)  supposing  (xs  \mmember{}  ac  and  ys  \mmember{}  ac))


By

---

Latex:
(((UnivCD  THENA  Auto)  THEN  Unfold  `fset-antichain`  0)
  THEN  (InstLemma  `assert-fset-pairwise`  [\mkleeneopen{}fset(T)\mkleeneclose{};\mkleeneopen{}deq-fset(eq)\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (RWO  "-1"  0  THENA  Auto)
  THEN  RW  assert\_pushdownC  0
  THEN  Auto)

---

Home Index