---

Step * 2 1 of Lemma fdl-hom_wf

.....assertion..... 
1. X : Type
2. L : BoundedDistributiveLattice
3. f : X ⟶ Point(L)
4. ((fdl-hom(L;f) 0) = 0 ∈ Point(L)) ∧ ((fdl-hom(L;f) 1) = 1 ∈ Point(L))
⊢ ∀as,bs:X List List.  (fdl-hom(L;f) as ∨ fdl-hom(L;f) bs = (fdl-hom(L;f) as ∨ bs) ∈ Point(L))
BY
{ (Intros THEN (Subst' as ∨ bs ~ as @ bs 0 THENA (RW (SubC (TagC (mk_tag_term 100))) 0 THEN Auto))) }

1
1. X : Type
2. L : BoundedDistributiveLattice
3. f : X ⟶ Point(L)
4. ((fdl-hom(L;f) 0) = 0 ∈ Point(L)) ∧ ((fdl-hom(L;f) 1) = 1 ∈ Point(L))
5. as : X List List
6. bs : X List List
⊢ fdl-hom(L;f) as ∨ fdl-hom(L;f) bs = (fdl-hom(L;f) (as @ bs)) ∈ Point(L)

---

Latex:

---

Latex:
.....assertion..... 
1.  X  :  Type
2.  L  :  BoundedDistributiveLattice
3.  f  :  X  {}\mrightarrow{}  Point(L)
4.  ((fdl-hom(L;f)  0)  =  0)  \mwedge{}  ((fdl-hom(L;f)  1)  =  1)
\mvdash{}  \mforall{}as,bs:X  List  List.    (fdl-hom(L;f)  as  \mvee{}  fdl-hom(L;f)  bs  =  (fdl-hom(L;f)  as  \mvee{}  bs))


By

---

Latex:
(Intros  THEN  (Subst'  as  \mvee{}  bs  \msim{}  as  @  bs  0  THENA  (RW  (SubC  (TagC  (mk\_tag\_term  100)))  0  THEN  Auto)))

---

Home Index