---

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


1. X : Type
2. y : Base
3. y1 : Base
4. y = y1 ∈ pertype(λas,bs. ((as ∈ X List List) ∧ (bs ∈ X List List) ∧ dlattice-eq(X;as;bs)))
5. y ∈ X List List
6. y1 ∈ X List List
7. dlattice-eq(X;y;y1)
8. x : Base
9. x1 : Base
10. x = x1 ∈ pertype(λas,bs. ((as ∈ X List List) ∧ (bs ∈ X List List) ∧ dlattice-eq(X;as;bs)))
11. x ∈ X List List
12. x1 ∈ X List List
13. dlattice-eq(X;x;x1)
14. free-dl-type(X) = Point(free-dl(X)) ∈ Type
15. a : ↑(∃a∈x.isaxiom(a))_b
⊢ (∃a∈x @ y. ↑isaxiom(a))
BY
{ ((RWO  "assert-bl-exists" (-1) THENA Auto) THEN RWO  "l_exists_append" 0 THEN Auto) }

---

Latex:

---

Latex:

1.  X  :  Type
2.  y  :  Base
3.  y1  :  Base
4.  y  =  y1
5.  y  \mmember{}  X  List  List
6.  y1  \mmember{}  X  List  List
7.  dlattice-eq(X;y;y1)
8.  x  :  Base
9.  x1  :  Base
10.  x  =  x1
11.  x  \mmember{}  X  List  List
12.  x1  \mmember{}  X  List  List
13.  dlattice-eq(X;x;x1)
14.  free-dl-type(X)  =  Point(free-dl(X))
15.  a  :  \muparrow{}(\mexists{}a\mmember{}x.isaxiom(a))\_b
\mvdash{}  (\mexists{}a\mmember{}x  @  y.  \muparrow{}isaxiom(a))


By

---

Latex:
((RWO    "assert-bl-exists"  (-1)  THENA  Auto)  THEN  RWO    "l\_exists\_append"  0  THEN  Auto)

---

Home Index