---

Step * 1 1 of Lemma fpf-union-join-dom


1. [A] : Type
2. eq : EqDecider(A)
3. d : A List
4. f1 : a:{a:A| (a ∈ d)}  ⟶ Top
5. d1 : A List
6. g1 : a:{a:A| (a ∈ d1)}  ⟶ Top
7. x : A
8. R : Top
9. (x ∈ d) ∨ (x ∈ d1)
⊢ (x ∈ d) ∨ ((x ∈ d1) ∧ (↑¬bx ∈b d))
BY
{ ((Decide ⌜↑x ∈b d⌝⋅ THEN Auto)
   THEN (RW assert_pushdownC (-1) THENA Auto)
   THEN (RW assert_pushdownC 0 THENA Auto)
   THEN (ProveProp THEN Auto)⋅)⋅ }

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  eq  :  EqDecider(A)
3.  d  :  A  List
4.  f1  :  a:\{a:A|  (a  \mmember{}  d)\}    {}\mrightarrow{}  Top
5.  d1  :  A  List
6.  g1  :  a:\{a:A|  (a  \mmember{}  d1)\}    {}\mrightarrow{}  Top
7.  x  :  A
8.  R  :  Top
9.  (x  \mmember{}  d)  \mvee{}  (x  \mmember{}  d1)
\mvdash{}  (x  \mmember{}  d)  \mvee{}  ((x  \mmember{}  d1)  \mwedge{}  (\muparrow{}\mneg{}\msubb{}x  \mmember{}\msubb{}  d))


By

---

Latex:
((Decide  \mkleeneopen{}\muparrow{}x  \mmember{}\msubb{}  d\mkleeneclose{}\mcdot{}  THEN  Auto)
  THEN  (RW  assert\_pushdownC  (-1)  THENA  Auto)
  THEN  (RW  assert\_pushdownC  0  THENA  Auto)
  THEN  (ProveProp  THEN  Auto)\mcdot{})\mcdot{}

---

Home Index