---

Step * 2 of Lemma face-lattice-property


1. T : Type@i'
2. eq : EqDecider(T)@i
3. L : BoundedDistributiveLattice@i'
4. eqL : EqDecider(Point(L))@i
5. f0 : T ⟶ Point(L)@i
6. f1 : T ⟶ Point(L)@i
7. ∀x:T. (f0 x ∧ f1 x = 0 ∈ Point(L))
8. g : Hom(face-lattice(T;eq);L)
9. (λx.case x of inl(a) => f0 a | inr(b) => f1 b)
= (g o (λx.free-dlwc-inc(union-deq(T;T;eq;eq);a.face-lattice-constraints(a);x)))
∈ ((T + T) ⟶ Point(L))
10. x : T@i
⊢ (g (x=0)) = (f0 x) ∈ Point(L)
BY
{ ((ApFunToHypEquands `Z' ⌜Z (inl x)⌝ ⌜Point(L)⌝ (-2)⋅ THENA Auto)
   THEN Reduce (-1)
   THEN RWO "face-lattice0-is-inc<" (-1)
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type@i'
2.  eq  :  EqDecider(T)@i
3.  L  :  BoundedDistributiveLattice@i'
4.  eqL  :  EqDecider(Point(L))@i
5.  f0  :  T  {}\mrightarrow{}  Point(L)@i
6.  f1  :  T  {}\mrightarrow{}  Point(L)@i
7.  \mforall{}x:T.  (f0  x  \mwedge{}  f1  x  =  0)
8.  g  :  Hom(face-lattice(T;eq);L)
9.  (\mlambda{}x.case  x  of  inl(a)  =>  f0  a  |  inr(b)  =>  f1  b)
=  (g  o  (\mlambda{}x.free-dlwc-inc(union-deq(T;T;eq;eq);a.face-lattice-constraints(a);x)))
10.  x  :  T@i
\mvdash{}  (g  (x=0))  =  (f0  x)


By

---

Latex:
((ApFunToHypEquands  `Z'  \mkleeneopen{}Z  (inl  x)\mkleeneclose{}  \mkleeneopen{}Point(L)\mkleeneclose{}  (-2)\mcdot{}  THENA  Auto)
  THEN  Reduce  (-1)
  THEN  RWO  "face-lattice0-is-inc<"  (-1)
  THEN  Auto)

---

Home Index