Step
*
1
2
2
1
1
1
1
1
1
of Lemma
fdl-1-join-irreducible
1. X : Type
2. x : Base
3. x1 : Base
4. x = x1 ∈ pertype(λas,bs. ((as ∈ X List List) ∧ (bs ∈ X List List) ∧ dlattice-eq(X;as;bs)))
5. x ∈ X List List
6. x1 ∈ X List List
7. dlattice-eq(X;x;x1)
8. y : free-dl-type(X)
9. free-dl-type(X) = Point(free-dl(X)) ∈ Type
10. y ∈ Point(free-dl(X))
⊢ fdl-is-1(x) ∈ 𝔹
BY
{ ((Assert x ∈ Point(free-dl(X)) BY ((Assert x ∈ free-dl-type(X) BY (DoSubsume THEN Auto)) THEN Auto)) THEN Auto) }
Latex:
Latex:
1.  X  :  Type
2.  x  :  Base
3.  x1  :  Base
4.  x  =  x1
5.  x  \mmember{}  X  List  List
6.  x1  \mmember{}  X  List  List
7.  dlattice-eq(X;x;x1)
8.  y  :  free-dl-type(X)
9.  free-dl-type(X)  =  Point(free-dl(X))
10.  y  \mmember{}  Point(free-dl(X))
\mvdash{}  fdl-is-1(x)  \mmember{}  \mBbbB{}
By
Latex:
((Assert  x  \mmember{}  Point(free-dl(X))  BY
                ((Assert  x  \mmember{}  free-dl-type(X)  BY  (DoSubsume  THEN  Auto))  THEN  Auto))
  THEN  Auto
  )
Home
Index