---

Step * 1 of Lemma fpf-cap_functionality_wrt_sub

.....truecase..... 
1. A : Type
2. d1 : EqDecider(A)
3. d2 : EqDecider(A)
4. d3 : EqDecider(A)
5. d4 : EqDecider(A)
6. B : A ⟶ Type
7. f : a:A fp-> B[a]
8. g : a:A fp-> B[a]
9. x : A
10. z : B[x]
11. f ⊆ g
12. ↑x ∈ dom(f)
13. ↑x ∈ dom(f)
14. ↑x ∈ dom(g)
⊢ f(x) = g(x) ∈ B[x]
BY
{ ((Unfold `fpf-sub`(-4))
   THEN (InstHyp [⌜x⌝] (-4))⋅
   THEN Auto
   THEN ExRepD
   THEN Auto
   THEN (Thin 14 THEN Thin 13)
   THEN OnSomeHyp UniformMoveToConcl
   THEN BLemma `fpf-dom_functionality2`
   THEN Complete (Auto)) }

---

Latex:

---

Latex:
.....truecase..... 
1.  A  :  Type
2.  d1  :  EqDecider(A)
3.  d2  :  EqDecider(A)
4.  d3  :  EqDecider(A)
5.  d4  :  EqDecider(A)
6.  B  :  A  {}\mrightarrow{}  Type
7.  f  :  a:A  fp->  B[a]
8.  g  :  a:A  fp->  B[a]
9.  x  :  A
10.  z  :  B[x]
11.  f  \msubseteq{}  g
12.  \muparrow{}x  \mmember{}  dom(f)
13.  \muparrow{}x  \mmember{}  dom(f)
14.  \muparrow{}x  \mmember{}  dom(g)
\mvdash{}  f(x)  =  g(x)


By

---

Latex:
((Unfold  `fpf-sub`(-4))
  THEN  (InstHyp  [\mkleeneopen{}x\mkleeneclose{}]  (-4))\mcdot{}
  THEN  Auto
  THEN  ExRepD
  THEN  Auto
  THEN  (Thin  14  THEN  Thin  13)
  THEN  OnSomeHyp  UniformMoveToConcl
  THEN  BLemma  `fpf-dom\_functionality2`
  THEN  Complete  (Auto))

---

Home Index