---

Step * 1 1 1 1 1 1 of Lemma fset-ac-le-face-lattice1

.....assertion..... 
1. T : Type
2. eq : EqDecider(T)
3. i : T
4. s : fset(fset(T + T))
5. Point(face-lattice(T;eq)) ⊆r fset(fset(T + T))
6. ∀[x:fset(T + T)]. ↑inr i  ∈b x supposing x ∈ s
7. x : fset(T + T)
8. x ∈ s
9. ↑inr i  ∈b x
10. {y ∈ (i=1) | deq-f-subset(union-deq(T;T;eq;eq)) y x} = {} ∈ fset(fset(T + T))
⊢ {inr i } ∈ {y ∈ (i=1) | deq-f-subset(union-deq(T;T;eq;eq)) y x}
BY
{ (Thin (-1) THEN MoveToConcl (-1) THEN Unfold `face-lattice1` 0 THEN (GenConcl ⌜(inr i ) = a ∈ (T + T)⌝⋅ THENA Auto)) }

1
1. T : Type
2. eq : EqDecider(T)
3. i : T
4. s : fset(fset(T + T))
5. Point(face-lattice(T;eq)) ⊆r fset(fset(T + T))
6. ∀[x:fset(T + T)]. ↑inr i  ∈b x supposing x ∈ s
7. x : fset(T + T)
8. x ∈ s
9. a : T + T
10. (inr i ) = a ∈ (T + T)
⊢ (↑a ∈b x) ⇒ {a} ∈ {y ∈ {{a}} | deq-f-subset(union-deq(T;T;eq;eq)) y x}

---

Latex:

---

Latex:
.....assertion..... 
1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  i  :  T
4.  s  :  fset(fset(T  +  T))
5.  Point(face-lattice(T;eq))  \msubseteq{}r  fset(fset(T  +  T))
6.  \mforall{}[x:fset(T  +  T)].  \muparrow{}inr  i    \mmember{}\msubb{}  x  supposing  x  \mmember{}  s
7.  x  :  fset(T  +  T)
8.  x  \mmember{}  s
9.  \muparrow{}inr  i    \mmember{}\msubb{}  x
10.  \{y  \mmember{}  (i=1)  |  deq-f-subset(union-deq(T;T;eq;eq))  y  x\}  =  \{\}
\mvdash{}  \{inr  i  \}  \mmember{}  \{y  \mmember{}  (i=1)  |  deq-f-subset(union-deq(T;T;eq;eq))  y  x\}


By

---

Latex:
(Thin  (-1)
  THEN  MoveToConcl  (-1)
  THEN  Unfold  `face-lattice1`  0
  THEN  (GenConcl  \mkleeneopen{}(inr  i  )  =  a\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index