Step
*
2
of Lemma
fpf-sub-join-right2
1. A : Type
2. B : A ⟶ Type
3. C : A ⟶ Type
4. eq : EqDecider(A)
5. f : a:A fp-> B[a]
6. g : a:A fp-> C[a]
7. ∀x:A. (((↑x ∈ dom(f)) ∧ (↑x ∈ dom(g))) 
⇒ ((B[x] ⊆r C[x]) c∧ (f(x) = g(x) ∈ C[x])))
8. x : A
9. ↑x ∈ dom(g)
10. ↑x ∈ dom(f ⊕ g)
⊢ g(x) = f ⊕ g(x) ∈ C[x]
BY
{ (Repeat ((Unfolds ``fpf-join fpf-cap fpf-ap`` 0 THEN Reduce 0)) THEN (SplitOnConclITE THENA Auto)) }
1
.....truecase..... 
1. A : Type
2. B : A ⟶ Type
3. C : A ⟶ Type
4. eq : EqDecider(A)
5. f : a:A fp-> B[a]
6. g : a:A fp-> C[a]
7. ∀x:A. (((↑x ∈ dom(f)) ∧ (↑x ∈ dom(g))) 
⇒ ((B[x] ⊆r C[x]) c∧ (f(x) = g(x) ∈ C[x])))
8. x : A
9. ↑x ∈ dom(g)
10. ↑x ∈ dom(f ⊕ g)
11. ↑x ∈ dom(f)
⊢ ((snd(g)) x) = ((snd(f)) x) ∈ C[x]
2
.....falsecase..... 
1. A : Type
2. B : A ⟶ Type
3. C : A ⟶ Type
4. eq : EqDecider(A)
5. f : a:A fp-> B[a]
6. g : a:A fp-> C[a]
7. ∀x:A. (((↑x ∈ dom(f)) ∧ (↑x ∈ dom(g))) 
⇒ ((B[x] ⊆r C[x]) c∧ (f(x) = g(x) ∈ C[x])))
8. x : A
9. ↑x ∈ dom(g)
10. ↑x ∈ dom(f ⊕ g)
11. ¬↑x ∈ dom(f)
⊢ ((snd(g)) x) = ((snd(g)) x) ∈ C[x]
Latex:
Latex:
1.  A  :  Type
2.  B  :  A  {}\mrightarrow{}  Type
3.  C  :  A  {}\mrightarrow{}  Type
4.  eq  :  EqDecider(A)
5.  f  :  a:A  fp->  B[a]
6.  g  :  a:A  fp->  C[a]
7.  \mforall{}x:A.  (((\muparrow{}x  \mmember{}  dom(f))  \mwedge{}  (\muparrow{}x  \mmember{}  dom(g)))  {}\mRightarrow{}  ((B[x]  \msubseteq{}r  C[x])  c\mwedge{}  (f(x)  =  g(x))))
8.  x  :  A
9.  \muparrow{}x  \mmember{}  dom(g)
10.  \muparrow{}x  \mmember{}  dom(f  \moplus{}  g)
\mvdash{}  g(x)  =  f  \moplus{}  g(x)
By
Latex:
(Repeat  ((Unfolds  ``fpf-join  fpf-cap  fpf-ap``  0  THEN  Reduce  0))  THEN  (SplitOnConclITE  THENA  Auto))
Home
Index