---

Step * of Lemma fset-ac-order

∀[T:Type]. ∀eq:EqDecider(T). Order({ac:fset(fset(T))| ↑fset-antichain(eq;ac)} ;ac1,ac2.fset-ac-le(eq;ac1;ac2))
BY
{ (Auto
   THEN (D 0 THEN Auto)
   THEN D 0
   THEN Reduce 0
   THEN Auto
   THEN Try ((InstLemma `fset-ac-le_transitivity` [⌜T⌝;⌜eq⌝;⌜a⌝;⌜b⌝;⌜c⌝]⋅ THEN Auto))
   THEN EAuto 1
   THEN (DSetVars THEN EqTypeCD)
   THEN Auto) }

1
1. T : Type
2. eq : EqDecider(T)
3. Trans({ac:fset(fset(T))| ↑fset-antichain(eq;ac)} ;ac1,ac2.fset-ac-le(eq;ac1;ac2))
4. ac1 : fset(fset(T))
5. ↑fset-antichain(eq;ac1)
6. ac2 : fset(fset(T))
7. ↑fset-antichain(eq;ac2)
8. fset-ac-le(eq;ac1;ac2)
9. fset-ac-le(eq;ac2;ac1)
⊢ ac1 = ac2 ∈ fset(fset(T))

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}eq:EqDecider(T).  Order(\{ac:fset(fset(T))|  \muparrow{}fset-antichain(eq;ac)\}  ;ac1,ac2.fset-ac-le(eq\000C;ac1;ac2))


By

---

Latex:
(Auto
  THEN  (D  0  THEN  Auto)
  THEN  D  0
  THEN  Reduce  0
  THEN  Auto
  THEN  Try  ((InstLemma  `fset-ac-le\_transitivity`  [\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}eq\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}c\mkleeneclose{}]\mcdot{}  THEN  Auto))
  THEN  EAuto  1
  THEN  (DSetVars  THEN  EqTypeCD)
  THEN  Auto)

---

Home Index