---

Step * 1 1 of Lemma path-comp-fun


1. [T] : Type
2. [B] : SeparationSpace
3. ∀f,g:Point(Path(B)).  (f@r1 ≡ g@r0 ⇒ (∃h:Point(Path(B)). path-comp-rel(B;f;g;h)))
4. f : Point(Path(T ⟶ B))
5. g : Point(Path(T ⟶ B))
6. f@r1 ≡ g@r0
7. ∀x:T. (λt.(f t x) ∈ Point(Path(B)))
8. ∀x:T. (λt.(g t x) ∈ Point(Path(B)))
9. ∀x:T. ∃h:Point(Path(B)). path-comp-rel(B;λt.(f t x);λt.(g t x);h)
10. H : x:T ⟶ Point(Path(B))
11. ∀x:T. path-comp-rel(B;λt.(f t x);λt.(g t x);H x)
⊢ ∃h:Point(Path(T ⟶ B)). path-comp-rel(T ⟶ B;f;g;h)
BY
{ ((Assert λt,x. (H x t) ∈ Point(Path(T ⟶ B)) BY
          ((All (RWW "path-ss-point fun-ss-point") THENA Auto)
           THEN DSetVars
           THEN MemTypeCD
           THEN Auto
           THEN (RWO "fun-ss-eq" 0 THEN Auto)
           THEN Reduce 0
           THEN (GenConclTerm ⌜H a⌝⋅ THENA Auto)
           THEN (D -2 THEN Unhide)
           THEN Auto))
   THEN D 0 With ⌜λt,x. (H x t)⌝ 
   THEN Auto) }

1
1. [T] : Type
2. [B] : SeparationSpace
3. ∀f,g:Point(Path(B)).  (f@r1 ≡ g@r0 ⇒ (∃h:Point(Path(B)). path-comp-rel(B;f;g;h)))
4. f : Point(Path(T ⟶ B))
5. g : Point(Path(T ⟶ B))
6. f@r1 ≡ g@r0
7. ∀x:T. (λt.(f t x) ∈ Point(Path(B)))
8. ∀x:T. (λt.(g t x) ∈ Point(Path(B)))
9. ∀x:T. ∃h:Point(Path(B)). path-comp-rel(B;λt.(f t x);λt.(g t x);h)
10. H : x:T ⟶ Point(Path(B))
11. ∀x:T. path-comp-rel(B;λt.(f t x);λt.(g t x);H x)
12. λt,x. (H x t) ∈ Point(Path(T ⟶ B))
⊢ path-comp-rel(T ⟶ B;f;g;λt,x. (H x t))

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [B]  :  SeparationSpace
3.  \mforall{}f,g:Point(Path(B)).    (f@r1  \mequiv{}  g@r0  {}\mRightarrow{}  (\mexists{}h:Point(Path(B)).  path-comp-rel(B;f;g;h)))
4.  f  :  Point(Path(T  {}\mrightarrow{}  B))
5.  g  :  Point(Path(T  {}\mrightarrow{}  B))
6.  f@r1  \mequiv{}  g@r0
7.  \mforall{}x:T.  (\mlambda{}t.(f  t  x)  \mmember{}  Point(Path(B)))
8.  \mforall{}x:T.  (\mlambda{}t.(g  t  x)  \mmember{}  Point(Path(B)))
9.  \mforall{}x:T.  \mexists{}h:Point(Path(B)).  path-comp-rel(B;\mlambda{}t.(f  t  x);\mlambda{}t.(g  t  x);h)
10.  H  :  x:T  {}\mrightarrow{}  Point(Path(B))
11.  \mforall{}x:T.  path-comp-rel(B;\mlambda{}t.(f  t  x);\mlambda{}t.(g  t  x);H  x)
\mvdash{}  \mexists{}h:Point(Path(T  {}\mrightarrow{}  B)).  path-comp-rel(T  {}\mrightarrow{}  B;f;g;h)


By

---

Latex:
((Assert  \mlambda{}t,x.  (H  x  t)  \mmember{}  Point(Path(T  {}\mrightarrow{}  B))  BY
                ((All  (RWW  "path-ss-point  fun-ss-point")  THENA  Auto)
                  THEN  DSetVars
                  THEN  MemTypeCD
                  THEN  Auto
                  THEN  (RWO  "fun-ss-eq"  0  THEN  Auto)
                  THEN  Reduce  0
                  THEN  (GenConclTerm  \mkleeneopen{}H  a\mkleeneclose{}\mcdot{}  THENA  Auto)
                  THEN  (D  -2  THEN  Unhide)
                  THEN  Auto))
  THEN  D  0  With  \mkleeneopen{}\mlambda{}t,x.  (H  x  t)\mkleeneclose{} 
  THEN  Auto)

---

Home Index