---

Step * 1 1 of Lemma assert-ac-covers


1. T : Type
2. eq : EqDecider(T)
3. ac : fset(fset(T))
4. x : fset(T)
5. ¬¬(∃y:fset(T). (y ∈ ac ∧ (↑(deq-f-subset(eq) y x))))
⊢ ↓∃y:fset(T). (y ∈ ac ∧ y ⊆ x)
BY
{ ((InstLemma `decidable__squash_exists_fset` [⌜fset(T)⌝;⌜λ2b.b ⊆ x⌝;⌜deq-fset(eq)⌝;⌜ac⌝]⋅ THENA Auto)
   THEN D -1
   THEN Auto) }

1
1. T : Type
2. eq : EqDecider(T)
3. ac : fset(fset(T))
4. x : fset(T)
5. ¬¬(∃y:fset(T). (y ∈ ac ∧ (↑(deq-f-subset(eq) y x))))
6. ¬↓∃x@0:fset(T). (x@0 ∈ ac ∧ x@0 ⊆ x)
⊢ ↓∃y:fset(T). (y ∈ ac ∧ y ⊆ x)

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  ac  :  fset(fset(T))
4.  x  :  fset(T)
5.  \mneg{}\mneg{}(\mexists{}y:fset(T).  (y  \mmember{}  ac  \mwedge{}  (\muparrow{}(deq-f-subset(eq)  y  x))))
\mvdash{}  \mdownarrow{}\mexists{}y:fset(T).  (y  \mmember{}  ac  \mwedge{}  y  \msubseteq{}  x)


By

---

Latex:
((InstLemma  `decidable\_\_squash\_exists\_fset`  [\mkleeneopen{}fset(T)\mkleeneclose{};\mkleeneopen{}\mlambda{}\msubtwo{}b.b  \msubseteq{}  x\mkleeneclose{};\mkleeneopen{}deq-fset(eq)\mkleeneclose{};\mkleeneopen{}ac\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  -1
  THEN  Auto)

---

Home Index