---

Step * 2 2 1 1 1 of Lemma fdl-1-join-irreducible


1. X : Type
2. y : free-dl-type(X)
3. x : free-dl-type(X)
⊢ λa.Ax ∈ (↑fdl-is-1(x)) ⇒ (↑fdl-is-1(x ∨ y))
BY
{ ((Assert free-dl-type(X) = Point(free-dl(X)) ∈ Type BY
          ((Subst' Point(free-dl(X)) ~ free-dl-type(X) 0 THENA Computation) THEN Auto))
   THEN (OnVar `x' QuotientElimForEquality THENA Auto)
   THEN (Fold `member` 0
   ORELSE (All (Fold `free-dl-type`) THEN Auto THEN (Assert x ∈ Point(free-dl(X)) BY Auto) THEN Auto)
   )) }

1
1. X : Type
2. y : free-dl-type(X)
3. x : Base
4. x1 : Base
5. x = x1 ∈ pertype(λas,bs. ((as ∈ X List List) ∧ (bs ∈ X List List) ∧ dlattice-eq(X;as;bs)))
6. x ∈ X List List
7. x1 ∈ X List List
8. dlattice-eq(X;x;x1)
9. free-dl-type(X) = Point(free-dl(X)) ∈ Type
⊢ λa.Ax ∈ (↑fdl-is-1(x)) ⇒ (↑fdl-is-1(x ∨ y))

---

Latex:

---

Latex:

1.  X  :  Type
2.  y  :  free-dl-type(X)
3.  x  :  free-dl-type(X)
\mvdash{}  \mlambda{}a.Ax  \mmember{}  (\muparrow{}fdl-is-1(x))  {}\mRightarrow{}  (\muparrow{}fdl-is-1(x  \mvee{}  y))


By

---

Latex:
((Assert  free-dl-type(X)  =  Point(free-dl(X))  BY
                ((Subst'  Point(free-dl(X))  \msim{}  free-dl-type(X)  0  THENA  Computation)  THEN  Auto))
  THEN  (OnVar  `x'  QuotientElimForEquality  THENA  Auto)
  THEN  (Fold  `member`  0
  ORELSE  (All  (Fold  `free-dl-type`)  THEN  Auto  THEN  (Assert  x  \mmember{}  Point(free-dl(X))  BY  Auto)  THEN  Auto)
  ))

---

Home Index