---

Step * 1 1 1 2 1 of Lemma fl-point


1. T : Type
2. eq : EqDecider(T)
3. x : fset(fset(T + T))
4. ↑fset-antichain(union-deq(T;T;eq;eq);x)
5. ↑fset-antichain(union-deq(T;T;eq;eq);x)
6. a : fset(T + T)
7. a ∈ x
8. z : T
9. ∀x:T + T. (x ∈ a ⇒ (∀c:fset(T + T). (c ∈ face-lattice-constraints(x) ⇒ (¬c ⊆ a))))
10. inl z ∈ T + T
11. inr z  ∈ T + T
12. inl z ∈ a
13. inr z  ∈ a
14. a@0 : T + T
15. a@0 ∈ {inl z,inr z }
⊢ a@0 ∈ a
BY
{ ((RWO "member-fset-pair" (-1) THENM D -1) THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  x  :  fset(fset(T  +  T))
4.  \muparrow{}fset-antichain(union-deq(T;T;eq;eq);x)
5.  \muparrow{}fset-antichain(union-deq(T;T;eq;eq);x)
6.  a  :  fset(T  +  T)
7.  a  \mmember{}  x
8.  z  :  T
9.  \mforall{}x:T  +  T.  (x  \mmember{}  a  {}\mRightarrow{}  (\mforall{}c:fset(T  +  T).  (c  \mmember{}  face-lattice-constraints(x)  {}\mRightarrow{}  (\mneg{}c  \msubseteq{}  a))))
10.  inl  z  \mmember{}  T  +  T
11.  inr  z    \mmember{}  T  +  T
12.  inl  z  \mmember{}  a
13.  inr  z    \mmember{}  a
14.  a@0  :  T  +  T
15.  a@0  \mmember{}  \{inl  z,inr  z  \}
\mvdash{}  a@0  \mmember{}  a


By

---

Latex:
((RWO  "member-fset-pair"  (-1)  THENM  D  -1)  THEN  Auto)

---

Home Index