Step
*
1
of Lemma
fpf-sub-join-symmetry
1. A : Type
2. B : A ─→ Type
3. eq : EqDecider(A)
4. f : a:A fp-> B[a]
5. g : a:A fp-> B[a]
6. f || g
7. x : A@i
8. ↑x ∈ dom(f ⊕ g)@i
⊢ (↑x ∈ dom(g)) ∨ (↑x ∈ dom(f))
BY
{ (((((RWO "fpf-join-dom" (-1)) THENA Auto) THEN (D (-1))) THENL [OrRight; OrLeft]) THEN Auto) }
Latex:
1.  A  :  Type
2.  B  :  A  {}\mrightarrow{}  Type
3.  eq  :  EqDecider(A)
4.  f  :  a:A  fp->  B[a]
5.  g  :  a:A  fp->  B[a]
6.  f  ||  g
7.  x  :  A@i
8.  \muparrow{}x  \mmember{}  dom(f  \moplus{}  g)@i
\mvdash{}  (\muparrow{}x  \mmember{}  dom(g))  \mvee{}  (\muparrow{}x  \mmember{}  dom(f))
By
(((((RWO  "fpf-join-dom"  (-1))  THENA  Auto)  THEN  (D  (-1)))  THENL  [OrRight;  OrLeft])  THEN  Auto)
Home
Index